39 octave_idx_type&,
double*, octave_idx_type&
45 const octave_idx_type&,
const octave_idx_type&,
46 const octave_idx_type&,
const double*,
47 const octave_idx_type&,
double*,
48 const octave_idx_type&, octave_idx_type&
60 (*current_liboctave_error_handler) (
"AEPBALANCE requires square matrix");
72 job = noperm ? (noscal ?
'N' :
'S') : (noscal ?
'P' :
'B');
75 n, p_balanced_mat, n,
ilo,
ihi, pscale, info
83 Matrix balancing_mat (n, n, 0.0);
85 balancing_mat.
elem (i ,i) = 1.0;
87 double *p_balancing_mat = balancing_mat.
fortran_vec ();
97 p_balancing_mat, n, info
101 return balancing_mat;
F77_RET_T F77_CONST_CHAR_ARG_DECL
#define F77_CHAR_ARG_LEN(l)
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)
Matrix balancing_matrix(void) const
F77_RET_T const octave_idx_type double const octave_idx_type octave_idx_type octave_idx_type double octave_idx_type & F77_CHAR_ARG_LEN_DECL
F77_RET_T F77_FUNC(dgebal, DGEBAL)(F77_CONST_CHAR_ARG_DECL
const T * fortran_vec(void) const
octave_idx_type cols(void) const