CAMLprim value ml_gsl_linalg_QRPT_Rsvx(value QR, value P, value X) { GSL_PERMUT_OF_BIGARRAY(P); _DECLARE_MATRIX(QR); _DECLARE_VECTOR(X); _CONVERT_MATRIX(QR); _CONVERT_VECTOR(X); gsl_linalg_QRPT_Rsvx(&m_QR, &perm_P, &v_X); return Val_unit; }
/** * C++ version of gsl_linalg_QRPT_Rsvx(). * @param QR A QR decomposition matrix * @param p A permutation * @param x A vector * @return Error code on failure */ inline int QRPT_Rsvx( matrix const& QR, permutation const& p, vector& x ){ return gsl_linalg_QRPT_Rsvx( QR.get(), p.get(), x.get() ); }