C++ (Cpp) cblas_drotmg 예제들

예제 #1

파일: neanderthal.c 프로젝트: ddosic/neanderthal-atlas

JNIEXPORT void JNICALL Java_uncomplicate_neanderthal_CBLAS_drotmg
(JNIEnv *env, jclass clazz, jobject args, jobject P) {

  double *cargs = (double *) (*env)->GetDirectBufferAddress(env, args);
  double *cP = (double *) (*env)->GetDirectBufferAddress(env, P);
  cblas_drotmg(cargs, cargs + 1, cargs + 2, cargs[3], cP);
};

예제 #2

파일: neanderthal.c 프로젝트: uncomplicate/neanderthal-atlas

JNIEXPORT void JNICALL Java_uncomplicate_neanderthal_CBLAS_drotmg
(JNIEnv *env, jclass clazz, jobject d1d2xy, jint offset_d1d2xy, jint inc_d1d2xy,
 jobject param) {

    double *c_d1d2xy = (double *) (*env)->GetDirectBufferAddress(env, d1d2xy) + offset_d1d2xy;
    double *c_param = (double *) (*env)->GetDirectBufferAddress(env, param);
    cblas_drotmg(c_d1d2xy, c_d1d2xy + inc_d1d2xy, c_d1d2xy + 2 * inc_d1d2xy, c_d1d2xy[3*inc_d1d2xy], c_param);
};