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