public interface laein
LAEIN uses inverse iteration to find a right or left eigenvector
corresponding to the eigenvalue W of a complex upper Hessenberg
matrix H.
Subroutines
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
logical(kind=lk),
|
intent(in) |
|
|
:: |
rightv |
|
|
logical(kind=lk),
|
intent(in) |
|
|
:: |
noinit |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
n |
|
|
complex(kind=sp),
|
intent(in) |
|
|
:: |
h(ldh,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldh |
|
|
complex(kind=sp),
|
intent(in) |
|
|
:: |
w |
|
|
complex(kind=sp),
|
intent(inout) |
|
|
:: |
v(*) |
|
|
complex(kind=sp),
|
intent(out) |
|
|
:: |
b(ldb,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldb |
|
|
real(kind=sp),
|
intent(out) |
|
|
:: |
rwork(*) |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
eps3 |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
smlnum |
|
|
integer(kind=ilp),
|
intent(out) |
|
|
:: |
info |
|
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
logical(kind=lk),
|
intent(in) |
|
|
:: |
rightv |
|
|
logical(kind=lk),
|
intent(in) |
|
|
:: |
noinit |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
n |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
h(ldh,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldh |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
wr |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
wi |
|
|
real(kind=dp),
|
intent(inout) |
|
|
:: |
vr(*) |
|
|
real(kind=dp),
|
intent(inout) |
|
|
:: |
vi(*) |
|
|
real(kind=dp),
|
intent(out) |
|
|
:: |
b(ldb,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldb |
|
|
real(kind=dp),
|
intent(out) |
|
|
:: |
work(*) |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
eps3 |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
smlnum |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
bignum |
|
|
integer(kind=ilp),
|
intent(out) |
|
|
:: |
info |
|
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
logical(kind=lk),
|
intent(in) |
|
|
:: |
rightv |
|
|
logical(kind=lk),
|
intent(in) |
|
|
:: |
noinit |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
n |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
h(ldh,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldh |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
wr |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
wi |
|
|
real(kind=sp),
|
intent(inout) |
|
|
:: |
vr(*) |
|
|
real(kind=sp),
|
intent(inout) |
|
|
:: |
vi(*) |
|
|
real(kind=sp),
|
intent(out) |
|
|
:: |
b(ldb,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldb |
|
|
real(kind=sp),
|
intent(out) |
|
|
:: |
work(*) |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
eps3 |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
smlnum |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
bignum |
|
|
integer(kind=ilp),
|
intent(out) |
|
|
:: |
info |
|
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
logical(kind=lk),
|
intent(in) |
|
|
:: |
rightv |
|
|
logical(kind=lk),
|
intent(in) |
|
|
:: |
noinit |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
n |
|
|
complex(kind=dp),
|
intent(in) |
|
|
:: |
h(ldh,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldh |
|
|
complex(kind=dp),
|
intent(in) |
|
|
:: |
w |
|
|
complex(kind=dp),
|
intent(inout) |
|
|
:: |
v(*) |
|
|
complex(kind=dp),
|
intent(out) |
|
|
:: |
b(ldb,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldb |
|
|
real(kind=dp),
|
intent(out) |
|
|
:: |
rwork(*) |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
eps3 |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
smlnum |
|
|
integer(kind=ilp),
|
intent(out) |
|
|
:: |
info |
|
Module Procedures