m_eigen_solver Module Reference

The purpose of the module is to solve an eigenvalue problem for a complex general matrix. Subroutines are imported from EISPACK (https://netlib.org/eispack/) with minor modifications for compatibility. More...

Functions/Subroutines
subroutine, public	cg (nm, nl, ar, ai, wr, wi, zr, zi, fv1, fv2, fv3, ierr)
subroutine, public	cbal (nm, nl, ar, ai, low, igh, scale)
subroutine, public	corth (nm, nl, low, igh, ar, ai, ortr, orti)
subroutine, public	comqr2 (nm, nl, low, igh, ortr, orti, hr, hi, wr, wi, zr, zi, ierr)
subroutine	cbabk2 (nm, nl, low, igh, scale, ml, zr, zi)
subroutine, public	csroot (xr, xi, yr, yi)
subroutine, public	cdiv (ar, ai, br, bi, cr, ci)
subroutine, public	pythag (a, b, c)

Detailed Description

The purpose of the module is to solve an eigenvalue problem for a complex general matrix. Subroutines are imported from EISPACK (https://netlib.org/eispack/) with minor modifications for compatibility.

Function/Subroutine Documentation

cbabk2()

subroutine m_eigen_solver::cbabk2	(	integer	nm,
		integer	nl,
		integer	low,
		integer	igh,
		double precision, dimension(nl)	scale,
		integer	ml,
		double precision, dimension(nm, ml)	zr,
		double precision, dimension(nm, ml)	zi )

Here is the caller graph for this function:

cbal()

subroutine, public m_eigen_solver::cbal	(	integer	nm,
		integer	nl,
		real(kind(0d0)), dimension(nm, nl)	ar,
		real(kind(0d0)), dimension(nm, nl)	ai,
		integer	low,
		integer	igh,
		real(kind(0d0)), dimension(nl)	scale )

Here is the caller graph for this function:

cdiv()

subroutine, public m_eigen_solver::cdiv	(	real(kind(0d0))	ar,
		real(kind(0d0))	ai,
		real(kind(0d0))	br,
		real(kind(0d0))	bi,
		real(kind(0d0))	cr,
		real(kind(0d0))	ci )

Here is the caller graph for this function:

cg()

subroutine, public m_eigen_solver::cg	(	integer	nm,
		integer	nl,
		real(kind(0d0)), dimension(nm, nl)	ar,
		real(kind(0d0)), dimension(nm, nl)	ai,
		real(kind(0d0)), dimension(nl)	wr,
		real(kind(0d0)), dimension(nl)	wi,
		real(kind(0d0)), dimension(nm, nl)	zr,
		real(kind(0d0)), dimension(nm, nl)	zi,
		real(kind(0d0)), dimension(nl)	fv1,
		real(kind(0d0)), dimension(nl)	fv2,
		real(kind(0d0)), dimension(nl)	fv3,
		integer	ierr )

Here is the call graph for this function:

comqr2()

subroutine, public m_eigen_solver::comqr2	(	integer	nm,
		integer	nl,
		integer	low,
		integer	igh,
		real(kind(0d0)), dimension(igh)	ortr,
		real(kind(0d0)), dimension(igh)	orti,
		real(kind(0d0)), dimension(nm, nl)	hr,
		real(kind(0d0)), dimension(nm, nl)	hi,
		real(kind(0d0)), dimension(nl)	wr,
		real(kind(0d0)), dimension(nl)	wi,
		real(kind(0d0)), dimension(nm, nl)	zr,
		real(kind(0d0)), dimension(nm, nl)	zi,
		integer	ierr )

Here is the call graph for this function:

Here is the caller graph for this function:

corth()

subroutine, public m_eigen_solver::corth	(	integer	nm,
		integer	nl,
		integer	low,
		integer	igh,
		real(kind(0d0)), dimension(nm, nl)	ar,
		real(kind(0d0)), dimension(nm, nl)	ai,
		real(kind(0d0)), dimension(igh)	ortr,
		real(kind(0d0)), dimension(igh)	orti )

Here is the call graph for this function:

Here is the caller graph for this function:

csroot()

subroutine, public m_eigen_solver::csroot	(	real(kind(0d0))	xr,
		real(kind(0d0))	xi,
		real(kind(0d0))	yr,
		real(kind(0d0))	yi )

Here is the call graph for this function:

Here is the caller graph for this function:

pythag()

subroutine, public m_eigen_solver::pythag	(	real(kind(0d0))	a,
		real(kind(0d0))	b,
		real(kind(0d0))	c )

Here is the caller graph for this function: