CAMLprim value ml_gsl_linalg_QRPT_update(value Q, value R, value P, value U, value V) { GSL_PERMUT_OF_BIGARRAY(P); _DECLARE_MATRIX2(Q, R); _DECLARE_VECTOR2(U, V); _CONVERT_MATRIX2(Q, R); _CONVERT_VECTOR2(U, V); gsl_linalg_QRPT_update(&m_Q, &m_R, &perm_P, &v_U, &v_V); return Val_unit; }
/** * C++ version of gsl_linalg_QRPT_update(). * @param Q A matrix * @param R A matrix * @param p A permutation * @param u A vector * @param v A vector * @return Error code on failure */ inline int QRPT_update( matrix& Q, matrix& R, permutation const& p, vector& u, vector const& v ){ return gsl_linalg_QRPT_update( Q.get(), R.get(), p.get(), u.get(), v.get() ); }