37 octave_idx_type&,
float*, octave_idx_type&
41 F77_FUNC (cgehrd, CGEHRD) (
const octave_idx_type&,
const octave_idx_type&,
42 const octave_idx_type&, FloatComplex*,
43 const octave_idx_type&, FloatComplex*,
44 FloatComplex*,
const octave_idx_type&,
48 F77_FUNC (cunghr, CUNGHR) (
const octave_idx_type&,
const octave_idx_type&,
49 const octave_idx_type&, FloatComplex*,
50 const octave_idx_type&, FloatComplex*,
51 FloatComplex*,
const octave_idx_type&,
57 const octave_idx_type&,
const octave_idx_type&,
58 const octave_idx_type&,
float*,
59 const octave_idx_type&, FloatComplex*,
60 const octave_idx_type&, octave_idx_type&
73 (*current_liboctave_error_handler)
74 (
"FloatComplexHESS requires square matrix");
94 n, h, n, ilo, ihi, pscale, info
103 F77_XFCN (cgehrd, CGEHRD, (n, ilo, ihi, h, n, ptau, pwork, lwork, info));
108 F77_XFCN (cunghr, CUNGHR, (n, ilo, ihi, z, n, ptau, pwork,
113 n, ilo, ihi, pscale, n, z, n, info
#define F77_CHAR_ARG_LEN(l)
FloatComplexMatrix hess_mat
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)
octave_idx_type init(const FloatComplexMatrix &a)
F77_RET_T const octave_idx_type FloatComplex const octave_idx_type octave_idx_type octave_idx_type float octave_idx_type & F77_CHAR_ARG_LEN_DECL
F77_RET_T F77_FUNC(cgebal, CGEBAL)(F77_CONST_CHAR_ARG_DECL
void scale(Matrix &m, double x, double y, double z)
F77_RET_T const octave_idx_type const octave_idx_type FloatComplex const octave_idx_type FloatComplex FloatComplex const octave_idx_type octave_idx_type &F77_RET_T const octave_idx_type const octave_idx_type FloatComplex const octave_idx_type FloatComplex FloatComplex const octave_idx_type octave_idx_type &F77_RET_T F77_CONST_CHAR_ARG_DECL
std::complex< float > FloatComplex
const T * fortran_vec(void) const
FloatComplexMatrix unitary_hess_mat
octave_idx_type cols(void) const