37 octave_idx_type&,
float*, octave_idx_type&
41 F77_FUNC (sgehrd, SGEHRD) (
const octave_idx_type&,
const octave_idx_type&,
42 const octave_idx_type&,
float*,
43 const octave_idx_type&,
float*,
float*,
44 const octave_idx_type&, octave_idx_type&);
47 F77_FUNC (sorghr, SORGHR) (
const octave_idx_type&,
const octave_idx_type&,
48 const octave_idx_type&,
float*,
49 const octave_idx_type&,
float*,
float*,
50 const octave_idx_type&, octave_idx_type&);
55 const octave_idx_type&,
const octave_idx_type&,
56 const octave_idx_type&,
float*,
57 const octave_idx_type&,
float*,
58 const octave_idx_type&, octave_idx_type&
71 (*current_liboctave_error_handler) (
"FloatHESS requires square matrix");
91 n, h, n, ilo, ihi, pscale, info
100 F77_XFCN (sgehrd, SGEHRD, (n, ilo, ihi, h, n, ptau, pwork,
106 F77_XFCN (sorghr, SORGHR, (n, ilo, ihi, z, n, ptau, pwork,
111 n, ilo, ihi, pscale, n, z,
#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)
octave_idx_type init(const FloatMatrix &a)
F77_RET_T const octave_idx_type const octave_idx_type float const octave_idx_type float float const octave_idx_type octave_idx_type &F77_RET_T const octave_idx_type const octave_idx_type float const octave_idx_type float float const octave_idx_type octave_idx_type &F77_RET_T F77_CONST_CHAR_ARG_DECL
FloatMatrix unitary_hess_mat
F77_RET_T F77_FUNC(sgebal, SGEBAL)(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
void scale(Matrix &m, double x, double y, double z)
const T * fortran_vec(void) const
octave_idx_type cols(void) const