CAMLprim value ml_gsl_blas_dsdot(value X, value Y) { double r; _DECLARE_VECTOR2(X, Y); _CONVERT_VECTOR2(X, Y); gsl_blas_dsdot(&v_X, &v_Y, &r); return copy_double(r); }
/** * C++ version of gsl_blas_dsdot(). * @param X First vector * @param Y Second vector * @param result Vector product * @return Error code on failure */ int dsdot( vector_float const& X, vector_float const& Y, double* result ){ return gsl_blas_dsdot( X.get(), Y.get(), result ); }