private static void copy(
VectorDescriptor xDescriptor, complexf *x,
VectorDescriptor yDescriptor, complexf *y)
{
NativeMethods.cblas_ccopy(
xDescriptor.Size,
x, xDescriptor.Stride,
y, yDescriptor.Stride);
}
private static void rot(
VectorDescriptor xDescriptor, complexf *x,
VectorDescriptor yDescriptor, complexf *y,
float c, float s)
{
NativeMethods.cblas_csrot(
xDescriptor.Size,
x, xDescriptor.Stride,
y, yDescriptor.Stride,
c, s);
}
private static complexf dotu(
VectorDescriptor xDescriptor, complexf *x,
VectorDescriptor yDescriptor, complexf *y)
{
complexf result;
NativeMethods.cblas_cdotu_sub(
xDescriptor.Size,
x, xDescriptor.Stride,
y, yDescriptor.Stride,
&result);
return(result);
}
private static float nrm2(VectorDescriptor descriptor, complexf *x)
{
return(NativeMethods.cblas_scnrm2(descriptor.Size, x, descriptor.Stride));
}
private static int iamin(VectorDescriptor descriptor, complexf *x)
{
return((int)NativeMethods.cblas_icamin(descriptor.Size, x, descriptor.Stride));
}
private static void scal(float a, VectorDescriptor descriptor, complexf *x)
{
NativeMethods.cblas_csscal(descriptor.Size, a, x, descriptor.Stride);
}