void magma_srotm(
magma_int_t n,
float *dx, magma_int_t incx,
float *dy, magma_int_t incy,
const float *param )
{
cublasSrotm( n, dx, incx, dy, incy, param );
}
CAMLprim value spoc_cublasSrotm (value n, value x, value incx, value y, value incy, value sparam, value dev){
CAMLparam5(n,x,incx, y, incy);
CAMLxparam2(sparam, dev);
CAMLlocal4(dev_vec_array, dev_vec, res, gi);
CUdeviceptr d_A;
CUdeviceptr d_B;
CUdeviceptr d_C;
float result;
int id;
GET_VEC(x, d_A);
GET_VEC(y, d_B);
GET_VEC(sparam, d_C);
CUBLAS_GET_CONTEXT;
cublasSrotm(Int_val(n), (float*)d_A, Int_val(incx), (float*)d_B, Int_val(incy), (float*)sparam);
CUBLAS_CHECK_CALL(cublasGetError());
CUBLAS_RESTORE_CONTEXT;
CAMLreturn(Val_unit);
}
