void magma_drotm(
magma_int_t n,
double *dx, magma_int_t incx,
double *dy, magma_int_t incy,
const double *param )
{
cublasDrotm( n, dx, incx, dy, incy, param );
}
void d_rotm(SEXP rx, SEXP rincx, SEXP ry, SEXP rincy, SEXP rsparam)
{
int
nx, ny, n, ns,
incx = asInteger(rincx),
incy = asInteger(rincy);
double
* sparam,
* x, * y;
unpackVector(rsparam, &ns, &sparam);
unpackVector(rx, &nx, &x);
unpackVector(ry, &ny, &y);
n = imin2(nx, ny);
cublasDrotm(n, x, incx, y, incy, sparam);
checkCublasError("d_rotm");
}
