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); }