CAMLprim value ml_gsl_linalg_LQ_lssolve_T(value LQ, value TAU, value B, value X, value RES) { _DECLARE_MATRIX(LQ); _DECLARE_VECTOR4(TAU, RES, B, X); _CONVERT_MATRIX(LQ); _CONVERT_VECTOR4(TAU, RES, B, X); gsl_linalg_LQ_lssolve_T(&m_LQ, &v_TAU, &v_B, &v_X, &v_RES); return Val_unit; }
/** * C++ version of gsl_linalg_LQ_lssolve_T(). * @param LQ A matrix * @param tau A vector * @param b A vector * @param x A vector * @param residual A residual vector * @return Error code on failure */ inline int LQ_lssolve_T( matrix const& LQ, vector const& tau, vector const& b, vector& x, vector& residual ){ return gsl_linalg_LQ_lssolve_T( LQ.get(), tau.get(), b.get(), x.get(), residual.get() ); }