void CPP_dqrls( double * x, int * n, int * p, double * y, int * ny, double * tol, double * b, double * rsd, double * qty, int * k, int * jpvt, double * qraux, double * work ) { dqrls_(x,n,p,y,ny,tol,b,rsd,qty,k,jpvt,qraux,work); }
JNIEXPORT void JNICALL Java_com_oracle_truffle_r_runtime_ffi_jni_JNI_1RAppl_native_1dqrls(JNIEnv *env, jclass c, jdoubleArray jx, int n, int p, jdoubleArray jy, int ny, double tol, jdoubleArray jb, jdoubleArray jrsd, jdoubleArray jqty, jintArray jk, jintArray jjpvt, jdoubleArray jqraux, jdoubleArray jwork) { double *x = (*env)->GetPrimitiveArrayCritical(env, jx, NULL); double *y = (*env)->GetPrimitiveArrayCritical(env, jy, NULL); double *b = (*env)->GetPrimitiveArrayCritical(env, jb, NULL); double *rsd = (*env)->GetPrimitiveArrayCritical(env, jrsd, NULL); double *qty = (*env)->GetPrimitiveArrayCritical(env, jqty, NULL); int *k = (*env)->GetPrimitiveArrayCritical(env, jk, NULL); int *jpvt = (*env)->GetPrimitiveArrayCritical(env, jjpvt, NULL); double *qraux = (*env)->GetPrimitiveArrayCritical(env, jqraux, NULL); double *work = (*env)->GetPrimitiveArrayCritical(env, jwork, NULL); dqrls_(x, &n, &p, y, &ny, &tol, b, rsd, qty, k, jpvt, qraux, work); (*env)->ReleasePrimitiveArrayCritical(env, jx, x, 0); (*env)->ReleasePrimitiveArrayCritical(env, jy, y, 0); (*env)->ReleasePrimitiveArrayCritical(env, jb, b, 0); (*env)->ReleasePrimitiveArrayCritical(env, jrsd, rsd, 0); (*env)->ReleasePrimitiveArrayCritical(env, jqty, qty, 0); (*env)->ReleasePrimitiveArrayCritical(env, jk, k, 0); (*env)->ReleasePrimitiveArrayCritical(env, jjpvt, jpvt, 0); (*env)->ReleasePrimitiveArrayCritical(env, jqraux, qraux, 0); (*env)->ReleasePrimitiveArrayCritical(env, jwork, work, 0); }