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() ); }
