Ejemplo n.º 1
0
void magma_drot(
    magma_int_t n,
    double *dx, magma_int_t incx,
    double *dy, magma_int_t incy,
    double dc, double ds )
{
    cublasDrot( n, dx, incx, dy, incy, dc, ds );
}
Ejemplo n.º 2
0
Archivo: ardblas.c Proyecto: rforge/gcb
void d_rot(SEXP rx, SEXP rincx, SEXP ry, SEXP rincy, SEXP rsc, SEXP rss)
{
	int
		nx, ny, n,
		incx = asInteger(rincx),
		incy = asInteger(rincy);
	double
		sc = asReal(rsc),
		ss = asReal(rss),
		* x, * y;

	unpackVector(rx, &nx, &x);
	unpackVector(ry, &ny, &y);
	n = imin2(nx, ny);

	cublasDrot(n, x, incx, y, incy, sc, ss);
	checkCublasError("d_rot");
}
Ejemplo n.º 3
0
Archivo: rot.hpp Proyecto: CQMP/scripts
//
// Overloaded function for dispatching to
// * CUBLAS backend, and
// * double value-type.
//
inline void rot( const int n, double* x, const int incx, double* y,
        const int incy, const double c, const double s ) {
    cublasDrot( n, x, incx, y, incy, c, s );
}