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