CAMLprim value ml_gsl_blas_srot(value X, value Y, value c, value s) { _DECLARE_VECTOR2(X, Y); _CONVERT_VECTOR2(X, Y); gsl_blas_srot(&v_X, &v_Y, Double_val(c), Double_val(s)); return Val_unit; }
/** * C++ version of gsl_blas_srot(). * @param X A vector * @param Y A vector * @param c A constant * @param s A constant * @return Error code on failure */ int srot( vector_float& X, vector_float& Y, float c, float s ){ return gsl_blas_srot( X.get(), Y.get(), c, s ); }