JNIEXPORT void JNICALL Java_uncomplicate_neanderthal_CBLAS_srotg (JNIEnv *env, jclass clazz, jobject params) { float *ca = (float *) (*env)->GetDirectBufferAddress(env, params); float *cb = ca + 1; float *cc = ca + 2; float *cs = ca + 3; cblas_srotg(ca, cb, cc, cs); };
JNIEXPORT void JNICALL Java_uncomplicate_neanderthal_CBLAS_srotg (JNIEnv *env, jclass clazz, jobject abcs, jint offset_abcs, jint inc_abcs) { float *c_abcs = (float *) (*env)->GetDirectBufferAddress(env, abcs) + offset_abcs; cblas_srotg(c_abcs, c_abcs + inc_abcs, c_abcs + 2 * inc_abcs, c_abcs + 3 * inc_abcs); };
// // Overloaded function for dispatching to // * CBLAS backend, and // * float value-type. // inline void rotg( float& a, float& b, float& c, float& s ) { cblas_srotg( &a, &b, &c, &s ); }