ordschur.cc File Reference

#include "defun.h"
#include "error.h"
#include "oct-obj.h"
#include "f77-fcn.h"

Include dependency graph for ordschur.cc:

Go to the source code of this file.

Macros
#define	PREPARE_ARGS(TYPE, TYPE_M, TYPE_COND)
#define	PREPARE_OUTPUT()

Functions
F77_RET_T	F77_FUNC (dtrsen, DTRSEN)(F77_CONST_CHAR_ARG_DECL
F77_RET_T const octave_idx_type const octave_idx_type double const octave_idx_type double const octave_idx_type double double octave_idx_type double double double const octave_idx_type octave_idx_type const octave_idx_type octave_idx_type &F77_RET_T	F77_FUNC (ztrsen, ZTRSEN)(F77_CONST_CHAR_ARG_DECL
F77_RET_T const octave_idx_type const octave_idx_type double const octave_idx_type double const octave_idx_type double double octave_idx_type double double double const octave_idx_type octave_idx_type const octave_idx_type octave_idx_type &F77_RET_T const octave_idx_type const octave_idx_type Complex const octave_idx_type Complex const octave_idx_type Complex octave_idx_type double double Complex const octave_idx_type octave_idx_type &F77_RET_T	F77_FUNC (strsen, STRSEN)(F77_CONST_CHAR_ARG_DECL
F77_RET_T const octave_idx_type const octave_idx_type double const octave_idx_type double const octave_idx_type double double octave_idx_type double double double const octave_idx_type octave_idx_type const octave_idx_type octave_idx_type &F77_RET_T const octave_idx_type const octave_idx_type Complex const octave_idx_type Complex const octave_idx_type Complex octave_idx_type double double Complex const octave_idx_type octave_idx_type &F77_RET_T const octave_idx_type const octave_idx_type float const octave_idx_type float const octave_idx_type float float octave_idx_type float float float const octave_idx_type octave_idx_type const octave_idx_type octave_idx_type &F77_RET_T	F77_FUNC (ctrsen, CTRSEN)(F77_CONST_CHAR_ARG_DECL
F77_RET_T const octave_idx_type const octave_idx_type double const octave_idx_type double const octave_idx_type double double octave_idx_type double double double const octave_idx_type octave_idx_type const octave_idx_type octave_idx_type &F77_RET_T const octave_idx_type const octave_idx_type Complex const octave_idx_type Complex const octave_idx_type Complex octave_idx_type double double Complex const octave_idx_type octave_idx_type &F77_RET_T const octave_idx_type const octave_idx_type float const octave_idx_type float const octave_idx_type float float octave_idx_type float float float const octave_idx_type octave_idx_type const octave_idx_type octave_idx_type &F77_RET_T const octave_idx_type const octave_idx_type FloatComplex const octave_idx_type FloatComplex const octave_idx_type FloatComplex octave_idx_type float float FloatComplex const octave_idx_type octave_idx_type &OCTAVE_EXPORT octave_value_list	Fordschur (const octave_value_list &args, int)

Variables
F77_RET_T	F77_CONST_CHAR_ARG_DECL

Macro Definition Documentation

#define PREPARE_ARGS	(		TYPE,
			TYPE_M,
			TYPE_COND
	)

Value:

TYPE ## Matrix U = args(0).TYPE_M ## _value (); \
          TYPE ## Matrix S = args(1).TYPE_M ## _value (); \
          if (error_state) \
            { \
              error ("ordschur: U and S must be real or complex floating point matrices"); \
              return retval; \
            } \
          TYPE ## Matrix w (dim_vector (n, 1)); \
          TYPE ## Matrix work (dim_vector (n, 1)); \
          octave_idx_type m; \
          octave_idx_type info; \
          TYPE_COND cond1, cond2;

Referenced by Fordschur().

#define PREPARE_OUTPUT

(

)

Value:

if (info != 0) \
            { \
              error ("ordschur: trsen failed"); \
              return retval; \
            } \
          retval(0) = U; \
          retval(1) = S;

Referenced by Fordschur().

Function Documentation

F77_RET_T F77_FUNC	(	dtrsen	,
		DTRSEN
	)

F77_RET_T const octave_idx_type const octave_idx_type double const octave_idx_type double const octave_idx_type double double octave_idx_type double double double const octave_idx_type octave_idx_type const octave_idx_type octave_idx_type& F77_RET_T F77_FUNC	(	ztrsen	,
		ZTRSEN
	)

F77_RET_T const octave_idx_type const octave_idx_type double const octave_idx_type double const octave_idx_type double double octave_idx_type double double double const octave_idx_type octave_idx_type const octave_idx_type octave_idx_type& F77_RET_T const octave_idx_type const octave_idx_type Complex const octave_idx_type Complex const octave_idx_type Complex octave_idx_type double double Complex const octave_idx_type octave_idx_type& F77_RET_T F77_FUNC	(	strsen	,
		STRSEN
	)

F77_RET_T const octave_idx_type const octave_idx_type double const octave_idx_type double const octave_idx_type double double octave_idx_type double double double const octave_idx_type octave_idx_type const octave_idx_type octave_idx_type& F77_RET_T const octave_idx_type const octave_idx_type Complex const octave_idx_type Complex const octave_idx_type Complex octave_idx_type double double Complex const octave_idx_type octave_idx_type& F77_RET_T const octave_idx_type const octave_idx_type float const octave_idx_type float const octave_idx_type float float octave_idx_type float float float const octave_idx_type octave_idx_type const octave_idx_type octave_idx_type& F77_RET_T F77_FUNC	(	ctrsen	,
		CTRSEN
	)

F77_RET_T const octave_idx_type const octave_idx_type double const octave_idx_type double const octave_idx_type double double octave_idx_type double double double const octave_idx_type octave_idx_type const octave_idx_type octave_idx_type& F77_RET_T const octave_idx_type const octave_idx_type Complex const octave_idx_type Complex const octave_idx_type Complex octave_idx_type double double Complex const octave_idx_type octave_idx_type& F77_RET_T const octave_idx_type const octave_idx_type float const octave_idx_type float const octave_idx_type float float octave_idx_type float float float const octave_idx_type octave_idx_type const octave_idx_type octave_idx_type& F77_RET_T const octave_idx_type const octave_idx_type FloatComplex const octave_idx_type FloatComplex const octave_idx_type FloatComplex octave_idx_type float float FloatComplex const octave_idx_type octave_idx_type& OCTAVE_EXPORT octave_value_list Fordschur	(	const octave_value_list &	args,
		int
	)

Definition at line 108 of file ordschur.cc.

References Array< T >::data(), error(), error_state, F77_CONST_CHAR_ARG, F77_XFCN, Array< T >::fortran_vec(), Array< T >::numel(), PREPARE_ARGS, PREPARE_OUTPUT, print_usage(), Faddeeva::w(), and wi.

Variable Documentation

F77_RET_T const octave_idx_type const octave_idx_type double const octave_idx_type double const octave_idx_type double double octave_idx_type double double double const octave_idx_type octave_idx_type const octave_idx_type octave_idx_type& F77_RET_T const octave_idx_type const octave_idx_type Complex const octave_idx_type Complex const octave_idx_type Complex octave_idx_type double double Complex const octave_idx_type octave_idx_type& F77_RET_T const octave_idx_type const octave_idx_type float const octave_idx_type float const octave_idx_type float float octave_idx_type float float float const octave_idx_type octave_idx_type const octave_idx_type octave_idx_type& F77_RET_T F77_CONST_CHAR_ARG_DECL

Definition at line 35 of file ordschur.cc.