63 const std::string& balance_job)
69 (*current_liboctave_error_handler) (
"GEPBALANCE requires square matrix");
92 char job = balance_job[0];
95 n, p_balanced_mat, n, p_balanced_mat2,
96 n, ilo, ihi, plscale, prscale, pwork, info
114 n, ilo, ihi, plscale, prscale,
115 n, p_balancing_mat, n, info
122 n, ilo, ihi, plscale, prscale,
123 n, p_balancing_mat2, n, info
F77_RET_T const octave_idx_type double const octave_idx_type double const octave_idx_type octave_idx_type octave_idx_type & IHI
#define F77_CHAR_ARG_LEN(l)
void gripe_nonconformant(const char *op, octave_idx_type op1_len, octave_idx_type op2_len)
F77_RET_T const octave_idx_type double const octave_idx_type double * B
octave_idx_type init(const Matrix &a, const Matrix &b, const std::string &balance_job)
F77_RET_T const octave_idx_type & N
F77_RET_T const octave_idx_type double const octave_idx_type & LDA
T & elem(octave_idx_type n)
#define F77_XFCN(f, F, args)
octave_idx_type rows(void) const
#define F77_CONST_CHAR_ARG2(x, l)
const dim_vector & dims(void) const
Return a const-reference so that dims ()(i) works efficiently.
F77_RET_T F77_FUNC(dggbal, DGGBAL)(F77_CONST_CHAR_ARG_DECL
F77_RET_T const octave_idx_type double const octave_idx_type double const octave_idx_type & LDB
F77_RET_T const octave_idx_type double const octave_idx_type double const octave_idx_type octave_idx_type octave_idx_type double double * RSCALE
F77_RET_T F77_CONST_CHAR_ARG_DECL
F77_RET_T const octave_idx_type const octave_idx_type const octave_idx_type const double const double octave_idx_type & M
F77_RET_T const octave_idx_type double const octave_idx_type double const octave_idx_type octave_idx_type octave_idx_type double double double octave_idx_type &INFO F77_CHAR_ARG_LEN_DECL
F77_RET_T const octave_idx_type const octave_idx_type const octave_idx_type const double const double octave_idx_type double * V
F77_RET_T const octave_idx_type double const octave_idx_type double const octave_idx_type octave_idx_type octave_idx_type double * LSCALE
F77_RET_T const octave_idx_type double * A
F77_RET_T const octave_idx_type double const octave_idx_type double const octave_idx_type octave_idx_type octave_idx_type double double double * WORK
#define OCTAVE_LOCAL_BUFFER(T, buf, size)
F77_RET_T const octave_idx_type double const octave_idx_type double const octave_idx_type octave_idx_type & ILO
const T * fortran_vec(void) const
octave_idx_type cols(void) const
F77_RET_T const octave_idx_type const octave_idx_type const octave_idx_type const double const double octave_idx_type double const octave_idx_type & LDV