private static void axpy(
complexf a,
VectorDescriptor xDescriptor, complexf *x,
VectorDescriptor yDescriptor, complexf *y)
{
NativeMethods.cblas_caxpy(
xDescriptor.Size,
&a,
x, xDescriptor.Stride,
y, yDescriptor.Stride);
}
public void DotUTest(complexf?value)
{
Vector <complexf> x;
Vector <complexf> y;
complexf * xPtr;
complexf * yPtr;
complexf i = complexf.ImaginaryOne;
GetComplexVectors(bytes, out x, out y, out xPtr, out yPtr);
complexf dot = BLAS.Dot(x, y);
Assert.IsTrue(AreEqual(-0.58 + 8.28 * i, dot, delta));
dot = BLAS.Dot(x.Descriptor, xPtr + x.Offset, y.Descriptor, yPtr + y.Offset);
Assert.IsTrue(AreEqual(-0.58 + 8.28 * i, dot, delta));
dot = BLAS.Dot(y, x);
Assert.IsTrue(AreEqual(-0.58 + 8.28 * i, dot, delta));
dot = BLAS.Dot(y.Descriptor, yPtr + y.Offset, x.Descriptor, xPtr + x.Offset);
Assert.IsTrue(AreEqual(-0.58 + 8.28 * i, dot, delta));
}
private static void scal(complexf a, VectorDescriptor descriptor, complexf *x)
{
NativeMethods.cblas_cscal(descriptor.Size, &a, x, descriptor.Stride);
}
