qz.cc File Reference

#include <cfloat>
#include <iostream>
#include <iomanip>
#include "CmplxQRP.h"
#include "CmplxQR.h"
#include "dbleQR.h"
#include "f77-fcn.h"
#include "lo-math.h"
#include "quit.h"
#include "defun.h"
#include "error.h"
#include "gripes.h"
#include "oct-obj.h"
#include "oct-map.h"
#include "ov.h"
#include "pager.h"
#include "symtab.h"
#include "utils.h"
#include "variables.h"

Include dependency graph for qz.cc:

Go to the source code of this file.

Typedefs
typedef octave_idx_type(*	sort_function )(const octave_idx_type &LSIZE, const double &ALPHA, const double &BETA, const double &S, const double &P)

Functions
F77_RET_T	F77_FUNC (dggbal, DGGBAL)(F77_CONST_CHAR_ARG_DECL
F77_RET_T	F77_FUNC (zggbal, ZGGBAL)(F77_CONST_CHAR_ARG_DECL
F77_RET_T	F77_FUNC (dggbak, DGGBAK)(F77_CONST_CHAR_ARG_DECL
F77_RET_T	F77_FUNC (zggbak, ZGGBAK)(F77_CONST_CHAR_ARG_DECL
F77_RET_T	F77_FUNC (dgghrd, DGGHRD)(F77_CONST_CHAR_ARG_DECL
F77_RET_T	F77_FUNC (zgghrd, ZGGHRD)(F77_CONST_CHAR_ARG_DECL
F77_RET_T	F77_FUNC (dhgeqz, DHGEQZ)(F77_CONST_CHAR_ARG_DECL
F77_RET_T	F77_FUNC (zhgeqz, ZHGEQZ)(F77_CONST_CHAR_ARG_DECL
F77_RET_T	F77_FUNC (dlag2, DLAG2)(const double *A
F77_RET_T	F77_FUNC (dsubsp, DSUBSP)(const octave_idx_type &NMAX
F77_RET_T	F77_FUNC (dtgevc, DTGEVC)(F77_CONST_CHAR_ARG_DECL
F77_RET_T	F77_FUNC (ztgevc, ZTGEVC)(F77_CONST_CHAR_ARG_DECL
F77_RET_T	F77_FUNC (xdlamch, XDLAMCH)(F77_CONST_CHAR_ARG_DECL
F77_RET_T	F77_FUNC (xdlange, XDLANGE)(F77_CONST_CHAR_ARG_DECL
static octave_idx_type	fcrhp (const octave_idx_type &lsize, const double &alpha, const double &beta, const double &s, const double &)
static octave_idx_type	fin (const octave_idx_type &lsize, const double &alpha, const double &beta, const double &, const double &p)
static octave_idx_type	folhp (const octave_idx_type &lsize, const double &alpha, const double &beta, const double &s, const double &)
static octave_idx_type	fout (const octave_idx_type &lsize, const double &alpha, const double &beta, const double &, const double &p)
OCTAVE_EXPORT octave_value_list	Fqz (const octave_value_list &args, int nargout)

Variables
F77_RET_T const octave_idx_type double *	A
F77_RET_T const octave_idx_type const octave_idx_type const octave_idx_type Complex const octave_idx_type Complex const octave_idx_type Complex *	ALPHA
F77_RET_T const octave_idx_type const octave_idx_type const octave_idx_type double const octave_idx_type double const octave_idx_type double double *	ALPHAI
F77_RET_T const octave_idx_type const octave_idx_type const octave_idx_type double const octave_idx_type double const octave_idx_type double *	ALPHAR
F77_RET_T const octave_idx_type double const octave_idx_type double *	B
F77_RET_T const octave_idx_type const octave_idx_type const octave_idx_type double const octave_idx_type double const octave_idx_type double double double *	BETA
F77_RET_T const octave_idx_type const octave_idx_type const octave_idx_type Complex const octave_idx_type Complex const octave_idx_type Complex Complex Complex *	CQ
F77_RET_T octave_idx_type const octave_idx_type const Complex const octave_idx_type const Complex const octave_idx_type Complex const octave_idx_type Complex const octave_idx_type const octave_idx_type octave_idx_type Complex *	CWORK
F77_RET_T const octave_idx_type const octave_idx_type const octave_idx_type Complex const octave_idx_type Complex const octave_idx_type Complex Complex Complex const octave_idx_type Complex *	CZ
F77_RET_T const octave_idx_type double double double const double &	EPS
F77_RET_T const octave_idx_type double const octave_idx_type double const octave_idx_type octave_idx_type octave_idx_type double double double octave_idx_type &INFO	F77_CHAR_ARG_LEN_DECL
F77_RET_T	F77_CONST_CHAR_ARG_DECL
F77_RET_T const octave_idx_type double double double const double octave_idx_type octave_idx_type &	FAIL
F77_RET_T const octave_idx_type double const octave_idx_type double const octave_idx_type octave_idx_type octave_idx_type &	IHI
F77_RET_T const octave_idx_type double const octave_idx_type double const octave_idx_type octave_idx_type &	ILO
F77_RET_T const octave_idx_type double double double const double octave_idx_type octave_idx_type octave_idx_type *	IND
F77_RET_T const octave_idx_type double const octave_idx_type &	LDA
F77_RET_T const octave_idx_type double const octave_idx_type double const octave_idx_type &	LDB
F77_RET_T const octave_idx_type const octave_idx_type const octave_idx_type double const octave_idx_type double const octave_idx_type double const octave_idx_type &	LDQ
F77_RET_T const octave_idx_type const octave_idx_type const octave_idx_type const double const double octave_idx_type double const octave_idx_type &	LDV
F77_RET_T octave_idx_type const octave_idx_type double const octave_idx_type double const octave_idx_type double const octave_idx_type &	LDVL
F77_RET_T octave_idx_type const octave_idx_type double const octave_idx_type double const octave_idx_type double const octave_idx_type double const octave_idx_type &	LDVR
F77_RET_T const octave_idx_type const octave_idx_type const octave_idx_type double const octave_idx_type double const octave_idx_type double const octave_idx_type double const octave_idx_type &	LDZ
F77_RET_T const octave_idx_type double const octave_idx_type double const octave_idx_type octave_idx_type octave_idx_type double *	LSCALE
F77_RET_T const octave_idx_type const octave_idx_type const octave_idx_type double const octave_idx_type double const octave_idx_type double double double double const octave_idx_type double const octave_idx_type double const octave_idx_type &	LWORK
F77_RET_T const octave_idx_type const octave_idx_type const octave_idx_type const double const double octave_idx_type &	M
F77_RET_T octave_idx_type const octave_idx_type double const octave_idx_type double const octave_idx_type double const octave_idx_type double const octave_idx_type const octave_idx_type &	MM
F77_RET_T const octave_idx_type &	N
F77_RET_T const octave_idx_type double double double const double octave_idx_type &	NDIM
F77_RET_T const octave_idx_type const octave_idx_type const octave_idx_type double const octave_idx_type double const octave_idx_type double *	Q
F77_RET_T const octave_idx_type double const octave_idx_type double const octave_idx_type octave_idx_type octave_idx_type double double *	RSCALE
F77_RET_T const octave_idx_type const octave_idx_type const octave_idx_type Complex const octave_idx_type Complex const octave_idx_type Complex Complex Complex const octave_idx_type Complex const octave_idx_type Complex const octave_idx_type double *	RWORK
F77_RET_T const octave_idx_type const double const octave_idx_type const double &	SAFMIN
F77_RET_T const octave_idx_type const double const octave_idx_type const double double &	SCALE1
F77_RET_T const octave_idx_type const double const octave_idx_type const double double double &	SCALE2
F77_RET_T octave_idx_type *	SELECT
F77_RET_T const octave_idx_type const octave_idx_type const octave_idx_type const double const double octave_idx_type double *	V
F77_RET_T octave_idx_type const octave_idx_type double const octave_idx_type double const octave_idx_type double *	VL
F77_RET_T octave_idx_type const octave_idx_type double const octave_idx_type double const octave_idx_type double const octave_idx_type double *	VR
F77_RET_T const octave_idx_type const double const octave_idx_type const double double double double double double &	WI
F77_RET_T const octave_idx_type double const octave_idx_type double const octave_idx_type octave_idx_type octave_idx_type double double double *	WORK
F77_RET_T const octave_idx_type const double const octave_idx_type const double double double double &	WR1
F77_RET_T const octave_idx_type const double const octave_idx_type const double double double double double &	WR2
F77_RET_T octave_idx_type const octave_idx_type const Complex const octave_idx_type const Complex const octave_idx_type Complex *	xVL
F77_RET_T octave_idx_type const octave_idx_type const Complex const octave_idx_type const Complex const octave_idx_type Complex const octave_idx_type Complex *	xVR
F77_RET_T const octave_idx_type const octave_idx_type const octave_idx_type double const octave_idx_type double const octave_idx_type double const octave_idx_type double *	Z

Typedef Documentation

F77_RET_T const octave_idx_type double double double sort_function

Definition at line 61 of file qz.cc.

Function Documentation

F77_RET_T F77_FUNC	(	dggbal	,
		DGGBAL
	)

Referenced by Fqz().

F77_RET_T F77_FUNC	(	zggbal	,
		ZGGBAL
	)

F77_RET_T F77_FUNC	(	dggbak	,
		DGGBAK
	)

F77_RET_T F77_FUNC	(	zggbak	,
		ZGGBAK
	)

F77_RET_T F77_FUNC	(	dgghrd	,
		DGGHRD
	)

F77_RET_T F77_FUNC	(	zgghrd	,
		ZGGHRD
	)

F77_RET_T F77_FUNC	(	dhgeqz	,
		DHGEQZ
	)

F77_RET_T F77_FUNC	(	zhgeqz	,
		ZHGEQZ
	)

F77_RET_T F77_FUNC	(	dlag2	,
		DLAG2
	)		const

F77_RET_T F77_FUNC	(	dsubsp	,
		DSUBSP
	)		const

F77_RET_T F77_FUNC	(	dtgevc	,
		DTGEVC
	)

F77_RET_T F77_FUNC	(	ztgevc	,
		ZTGEVC
	)

F77_RET_T F77_FUNC	(	xdlamch	,
		XDLAMCH
	)

F77_RET_T F77_FUNC	(	xdlange	,
		XDLANGE
	)

static octave_idx_type fcrhp ( const octave_idx_type &  lsize, const double &  alpha, const double &  beta, const double &  s, const double &    )

static

Definition at line 244 of file qz.cc.

Referenced by Fqz().

static octave_idx_type fin ( const octave_idx_type &  lsize, const double &  alpha, const double &  beta, const double &  , const double &  p  )

static

Definition at line 254 of file qz.cc.

Referenced by Fqz().

static octave_idx_type folhp ( const octave_idx_type &  lsize, const double &  alpha, const double &  beta, const double &  s, const double &    )

static

Definition at line 272 of file qz.cc.

Referenced by Fqz().

static octave_idx_type fout ( const octave_idx_type &  lsize, const double &  alpha, const double &  beta, const double &  , const double &  p  )

static

Definition at line 282 of file qz.cc.

Referenced by Fqz(), and tree_jit::optimize().

OCTAVE_EXPORT octave_value_list Fqz	(	const octave_value_list &	args,
		int	nargout
	)

Definition at line 375 of file qz.cc.

References CQ, CZ, Array< T >::data(), dsubsp(), empty_arg(), eps, error(), error_state, F77_CHAR_ARG_LEN, F77_CONST_CHAR_ARG2, F77_FUNC(), F77_XFCN, fcrhp(), fin(), folhp(), Array< T >::fortran_vec(), fout(), gripe_empty_arg(), gripe_nonconformant(), gripe_square_matrix_required(), ComplexMatrix::hermitian(), octave_value_list::length(), nn, octave_print_internal(), OCTAVE_QUIT, panic_impossible, print_usage(), base_qr< qr_type >::Q(), base_qr< qr_type >::R(), transpose(), VL, VR, wi, xdlamch(), and xdlange().

Variable Documentation

F77_RET_T octave_idx_type const octave_idx_type const Complex* A

Definition at line 70 of file qz.cc.

F77_RET_T const octave_idx_type const octave_idx_type const octave_idx_type Complex const octave_idx_type Complex const octave_idx_type Complex* ALPHA

Definition at line 158 of file qz.cc.

F77_RET_T const octave_idx_type const octave_idx_type const octave_idx_type double const octave_idx_type double const octave_idx_type double double* ALPHAI

Definition at line 140 of file qz.cc.

F77_RET_T const octave_idx_type const octave_idx_type const octave_idx_type double const octave_idx_type double const octave_idx_type double* ALPHAR

Definition at line 140 of file qz.cc.

F77_RET_T octave_idx_type const octave_idx_type const Complex const octave_idx_type const Complex* B

Definition at line 70 of file qz.cc.

F77_RET_T const octave_idx_type const octave_idx_type const octave_idx_type Complex const octave_idx_type Complex const octave_idx_type Complex Complex * BETA

Definition at line 140 of file qz.cc.

F77_RET_T const octave_idx_type const octave_idx_type const octave_idx_type Complex const octave_idx_type Complex const octave_idx_type Complex Complex Complex* CQ

Definition at line 158 of file qz.cc.

Referenced by Fqz().

F77_RET_T octave_idx_type const octave_idx_type const Complex const octave_idx_type const Complex const octave_idx_type Complex const octave_idx_type Complex const octave_idx_type const octave_idx_type octave_idx_type Complex* CWORK

Definition at line 209 of file qz.cc.

F77_RET_T const octave_idx_type const octave_idx_type const octave_idx_type Complex const octave_idx_type Complex const octave_idx_type Complex Complex Complex const octave_idx_type Complex* CZ

Definition at line 158 of file qz.cc.

Referenced by Fqz().

F77_RET_T const octave_idx_type double double double const double& EPS

Definition at line 185 of file qz.cc.

F77_RET_T const octave_idx_type const octave_idx_type const double const octave_idx_type double double& F77_CHAR_ARG_LEN_DECL

Definition at line 70 of file qz.cc.

F77_RET_T F77_CONST_CHAR_ARG_DECL

Definition at line 90 of file qz.cc.

F77_RET_T const octave_idx_type double double double const double octave_idx_type octave_idx_type& FAIL

Definition at line 185 of file qz.cc.

F77_RET_T const octave_idx_type const octave_idx_type const octave_idx_type& IHI

Definition at line 70 of file qz.cc.

F77_RET_T const octave_idx_type const octave_idx_type& ILO

Definition at line 70 of file qz.cc.

F77_RET_T const octave_idx_type double double double const double octave_idx_type octave_idx_type octave_idx_type* IND

Definition at line 185 of file qz.cc.

F77_RET_T octave_idx_type const octave_idx_type const Complex const octave_idx_type& LDA

Definition at line 70 of file qz.cc.

F77_RET_T octave_idx_type const octave_idx_type const Complex const octave_idx_type const Complex const octave_idx_type& LDB

Definition at line 70 of file qz.cc.

F77_RET_T const octave_idx_type const octave_idx_type const octave_idx_type Complex const octave_idx_type Complex const octave_idx_type Complex Complex Complex const octave_idx_type & LDQ

Definition at line 114 of file qz.cc.

F77_RET_T const octave_idx_type const octave_idx_type const octave_idx_type const double const double octave_idx_type Complex const octave_idx_type& LDV

Definition at line 90 of file qz.cc.

F77_RET_T octave_idx_type const octave_idx_type const Complex const octave_idx_type const Complex const octave_idx_type Complex const octave_idx_type & LDVL

Definition at line 195 of file qz.cc.

F77_RET_T octave_idx_type const octave_idx_type const Complex const octave_idx_type const Complex const octave_idx_type Complex const octave_idx_type Complex const octave_idx_type & LDVR

Definition at line 195 of file qz.cc.

F77_RET_T const octave_idx_type const octave_idx_type const octave_idx_type Complex const octave_idx_type Complex const octave_idx_type Complex Complex Complex const octave_idx_type Complex const octave_idx_type & LDZ

Definition at line 114 of file qz.cc.

F77_RET_T const octave_idx_type const octave_idx_type const octave_idx_type const double* LSCALE

Definition at line 70 of file qz.cc.

F77_RET_T const octave_idx_type const octave_idx_type const octave_idx_type Complex const octave_idx_type Complex const octave_idx_type Complex Complex Complex const octave_idx_type Complex const octave_idx_type Complex const octave_idx_type & LWORK

Definition at line 140 of file qz.cc.

F77_RET_T octave_idx_type const octave_idx_type const Complex const octave_idx_type const Complex const octave_idx_type Complex const octave_idx_type Complex const octave_idx_type const octave_idx_type octave_idx_type& M

Definition at line 90 of file qz.cc.

F77_RET_T octave_idx_type const octave_idx_type const Complex const octave_idx_type const Complex const octave_idx_type Complex const octave_idx_type Complex const octave_idx_type const octave_idx_type & MM

Definition at line 195 of file qz.cc.

F77_RET_T octave_idx_type const octave_idx_type& N

Definition at line 70 of file qz.cc.

F77_RET_T const octave_idx_type double double double const double octave_idx_type& NDIM

Definition at line 185 of file qz.cc.

F77_RET_T const octave_idx_type const octave_idx_type const octave_idx_type double const octave_idx_type double const octave_idx_type double double double double * Q

Definition at line 114 of file qz.cc.

Referenced by sparse_base_lu< SparseComplexMatrix, Complex, SparseMatrix, double >::col_perm(), EigsComplexNonSymmetricMatrixShift(), EigsRealNonSymmetricMatrixShift(), EigsRealSymmetricMatrixShift(), find_starting_node(), Gqrdelete(), Gqrinsert(), Gqrshift(), Gqrupdate(), Gsymrcm(), SparseMatrix::inverse(), SparseComplexMatrix::inverse(), sparse_base_chol< chol_type, chol_elt, p_type >::inverse(), sparse_base_lu< SparseComplexMatrix, Complex, SparseMatrix, double >::operator=(), sparse_base_lu< lu_type, lu_elt_type, p_type, p_elt_type >::Pc(), sparse_base_lu< lu_type, lu_elt_type, p_type, p_elt_type >::Pc_mat(), sparse_base_lu< lu_type, lu_elt_type, p_type, p_elt_type >::Pc_vec(), and xpow().

F77_RET_T const octave_idx_type const octave_idx_type const octave_idx_type const double const double* RSCALE

Definition at line 70 of file qz.cc.

F77_RET_T octave_idx_type const octave_idx_type const Complex const octave_idx_type const Complex const octave_idx_type Complex const octave_idx_type Complex const octave_idx_type const octave_idx_type octave_idx_type Complex double * RWORK

Definition at line 158 of file qz.cc.

F77_RET_T const octave_idx_type const double const octave_idx_type const double& SAFMIN

Definition at line 175 of file qz.cc.

F77_RET_T const octave_idx_type const double const octave_idx_type const double double& SCALE1

Definition at line 175 of file qz.cc.

F77_RET_T const octave_idx_type const double const octave_idx_type const double double double& SCALE2

Definition at line 175 of file qz.cc.

F77_RET_T octave_idx_type * SELECT

Definition at line 195 of file qz.cc.

F77_RET_T const octave_idx_type const octave_idx_type const octave_idx_type const double const double octave_idx_type Complex* V

Definition at line 90 of file qz.cc.

F77_RET_T octave_idx_type const octave_idx_type double const octave_idx_type double const octave_idx_type double* VL

Definition at line 195 of file qz.cc.

Referenced by Fqz().

F77_RET_T octave_idx_type const octave_idx_type double const octave_idx_type double const octave_idx_type double const octave_idx_type double* VR

Definition at line 195 of file qz.cc.

Referenced by Fqz().

F77_RET_T const octave_idx_type const double const octave_idx_type const double double double double double double& WI

Definition at line 175 of file qz.cc.

F77_RET_T octave_idx_type const octave_idx_type double const octave_idx_type double const octave_idx_type double const octave_idx_type double const octave_idx_type const octave_idx_type octave_idx_type double* WORK

Definition at line 70 of file qz.cc.

F77_RET_T const octave_idx_type const double const octave_idx_type const double double double double& WR1

Definition at line 175 of file qz.cc.

F77_RET_T const octave_idx_type const double const octave_idx_type const double double double double double& WR2

Definition at line 175 of file qz.cc.

F77_RET_T octave_idx_type const octave_idx_type const Complex const octave_idx_type const Complex const octave_idx_type Complex* xVL

Definition at line 209 of file qz.cc.

F77_RET_T octave_idx_type const octave_idx_type const Complex const octave_idx_type const Complex const octave_idx_type Complex const octave_idx_type Complex* xVR

Definition at line 209 of file qz.cc.

F77_RET_T const octave_idx_type double double double * Z

Definition at line 114 of file qz.cc.

Referenced by drawcn(), F__contourc__(), mark_facets(), and qp().