CAMLprim value ml_gsl_linalg_L_solve_T(value L, value B, value X) { _DECLARE_MATRIX(L); _DECLARE_VECTOR2(B,X); _CONVERT_MATRIX(L); _CONVERT_VECTOR2(B,X); gsl_linalg_L_solve_T(&m_L, &v_B, &v_X); return Val_unit; }
/** * C++ version of gsl_linalg_L_solve_T(). * @param L A matrix * @param b A vector * @param x A vector * @return Error code on failure */ inline int L_solve_T( matrix const& L, vector const& b, vector& x ){ return gsl_linalg_L_solve_T( L.get(), b.get(), x.get() ); }