39 octave_idx_type&,
float*, octave_idx_type&
45 const octave_idx_type&,
const octave_idx_type&,
46 const octave_idx_type&,
const float*,
47 const octave_idx_type&,
float*,
48 const octave_idx_type&, octave_idx_type&
54 bool noperm,
bool noscal)
61 (*current_liboctave_error_handler) (
"AEPBALANCE requires square matrix");
73 job = noperm ? (noscal ?
'N' :
'S') : (noscal ?
'P' :
'B');
76 n, p_balanced_mat, n,
ilo,
ihi, pscale, info
86 balancing_mat.
elem (i ,i) = 1.0;
88 float *p_balancing_mat = balancing_mat.
fortran_vec ();
98 p_balancing_mat, n, info
102 return balancing_mat;
#define F77_CHAR_ARG_LEN(l)
F77_RET_T F77_CONST_CHAR_ARG_DECL
F77_RET_T const octave_idx_type float const octave_idx_type octave_idx_type octave_idx_type float octave_idx_type & F77_CHAR_ARG_LEN_DECL
T & elem(octave_idx_type n)
FloatMatrix balancing_matrix(void) const
#define F77_XFCN(f, F, args)
octave_idx_type rows(void) const
#define F77_CONST_CHAR_ARG2(x, l)
F77_RET_T F77_FUNC(sgebal, SGEBAL)(F77_CONST_CHAR_ARG_DECL
const T * fortran_vec(void) const
octave_idx_type cols(void) const