CAMLprim value ml_gsl_linalg_bidiag_unpack_B(value A, value DIAG, value SUPERDIAG) { _DECLARE_MATRIX(A); _DECLARE_VECTOR2(DIAG, SUPERDIAG); _CONVERT_MATRIX(A); _CONVERT_VECTOR2(DIAG, SUPERDIAG); gsl_linalg_bidiag_unpack_B(&m_A, &v_DIAG, &v_SUPERDIAG); return Val_unit; }
/** * C++ version of gsl_linalg_bidiag_unpack_B(). * @param A A matrix * @param diag A vector of diagonal elements * @param superdiag Off-diagonal vector (one element shorte than @c diag) * @return Error code on failure */ inline int bidiag_unpack_B( matrix const& A, vector& diag, vector& superdiag ){ return gsl_linalg_bidiag_unpack_B( A.get(), diag.get(), superdiag.get() ); }