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...
|
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) |
|
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.
◆ 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 ) |
◆ 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 ) |
◆ 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 ) |
◆ 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 ) |
◆ 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 ) |
◆ 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 ) |
◆ csroot()
subroutine, public m_eigen_solver::csroot |
( |
real(kind(0d0)) | xr, |
|
|
real(kind(0d0)) | xi, |
|
|
real(kind(0d0)) | yr, |
|
|
real(kind(0d0)) | yi ) |
◆ pythag()
subroutine, public m_eigen_solver::pythag |
( |
real(kind(0d0)) | a, |
|
|
real(kind(0d0)) | b, |
|
|
real(kind(0d0)) | c ) |