CAMLprim value spoc_cublasIsamin(value n, value x, value incx, value dev){
CAMLparam4(n,x,incx, dev);
CAMLlocal3(dev_vec_array, dev_vec, gi);
int res;
int id;
CUdeviceptr d_A;
GET_VEC(x, d_A);
CUBLAS_GET_CONTEXT;
res = cublasIsamin(Int_val(n), (float*)d_A, Int_val(incx));
CUBLAS_CHECK_CALL(cublasGetError());
CUDA_RESTORE_CONTEXT;
CAMLreturn(Val_int(res));
}
magma_int_t magma_isamin(
magma_int_t n,
const float *dx, magma_int_t incx )
{
return cublasIsamin( n, dx, incx );
}
