/* LQ decomposition */ CAMLprim value ml_gsl_linalg_LQ_decomp(value A, value TAU) { _DECLARE_MATRIX(A); _DECLARE_VECTOR(TAU); _CONVERT_MATRIX(A); _CONVERT_VECTOR(TAU); gsl_linalg_LQ_decomp(&m_A, &v_TAU); return Val_unit; }
/** * C++ version of gsl_linalg_LQ_decomp(). * @param A A matrix * @param tau A vector * @return Error code on failure */ inline int LQ_decomp( matrix& A, vector& tau ){ return gsl_linalg_LQ_decomp( A.get(), tau.get() ); }