CAMLprim value ml_gsl_linalg_PTLQ_update (value Q, value L, value P, value V, value W)
{
_DECLARE_MATRIX2(Q,L);
_DECLARE_VECTOR2(V,W);
GSL_PERMUT_OF_BIGARRAY(P);
_CONVERT_MATRIX2(Q,L);
_CONVERT_VECTOR2(V,W);
gsl_linalg_PTLQ_update (&m_Q, &m_L, &perm_P, &v_V, &v_W);
return Val_unit;
}
/**
* C++ version of gsl_linalg_PTLQ_update().
* @param Q A matrix
* @param L A matrix
* @param p A permutation
* @param v A vector
* @param w A vector
* @return Error code on failure
*/
inline int PTLQ_update( matrix& Q, matrix& L, permutation const& p, vector const& v, vector& w ){
return gsl_linalg_PTLQ_update( Q.get(), L.get(), p.get(), v.get(), w.get() ); }