CAMLprim value ml_gsl_blas_saxpy(value alpha, value X, value Y) { _DECLARE_VECTOR2(X, Y); _CONVERT_VECTOR2(X, Y); gsl_blas_saxpy(Double_val(alpha), &v_X, &v_Y); return Val_unit; }
/** * C++ version of gsl_blas_saxpy(). * @param alpha A vector * @param X A vector * @param Y A vector * @return Error code on failure */ int saxpy( float alpha, vector_float const& X, vector_float& Y ){ return gsl_blas_saxpy( alpha, X.get(), Y.get() ); }