CAMLprim value ml_gsl_blas_sscal(value alpha, value X) { _DECLARE_VECTOR(X); _CONVERT_VECTOR(X); gsl_blas_sscal(Double_val(alpha), &v_X); return Val_unit; }
/** * C++ version of gsl_blas_sscal(). * @param alpha A constant * @param X A vector */ void sscal( float alpha, vector_float& X ){ gsl_blas_sscal( alpha, X.get() ); }