40 octave_idx_type&,
double*, octave_idx_type&
46 const octave_idx_type&,
const octave_idx_type&,
47 const octave_idx_type&,
const double*,
48 const octave_idx_type&, Complex*,
49 const octave_idx_type&, octave_idx_type&
55 bool noperm,
bool noscal)
62 (*current_liboctave_error_handler) (
"AEPBALANCE requires square matrix");
74 job = noperm ? (noscal ?
'N' :
'S') : (noscal ?
'P' :
'B');
77 n, p_balanced_mat, n,
ilo,
ihi,
88 balancing_mat.
elem (i, i) = 1.0;
100 p_balancing_mat, n, info
104 return balancing_mat;
#define F77_CHAR_ARG_LEN(l)
F77_RET_T F77_CONST_CHAR_ARG_DECL
F77_RET_T const octave_idx_type Complex const octave_idx_type octave_idx_type octave_idx_type double octave_idx_type & F77_CHAR_ARG_LEN_DECL
T & elem(octave_idx_type n)
#define F77_XFCN(f, F, args)
ComplexMatrix balanced_mat
octave_idx_type rows(void) const
#define F77_CONST_CHAR_ARG2(x, l)
F77_RET_T F77_FUNC(zgebal, ZGEBAL)(F77_CONST_CHAR_ARG_DECL
std::complex< double > Complex
const T * fortran_vec(void) const
octave_idx_type cols(void) const
ComplexMatrix balancing_matrix(void) const