public interface laed9
LAED9 finds the roots of the secular equation, as defined by the
values in D, Z, and RHO, between KSTART and KSTOP. It makes the
appropriate calls to DLAED4 and then stores the new matrix of
eigenvectors for use in calculating the next level of Z vectors.
Subroutines
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
k |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
kstart |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
kstop |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
n |
|
|
real(kind=dp),
|
intent(out) |
|
|
:: |
d(*) |
|
|
real(kind=dp),
|
intent(out) |
|
|
:: |
q(ldq,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldq |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
rho |
|
|
real(kind=dp),
|
intent(inout) |
|
|
:: |
dlamda(*) |
|
|
real(kind=dp),
|
intent(inout) |
|
|
:: |
w(*) |
|
|
real(kind=dp),
|
intent(out) |
|
|
:: |
s(lds,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
lds |
|
|
integer(kind=ilp),
|
intent(out) |
|
|
:: |
info |
|
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
k |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
kstart |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
kstop |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
n |
|
|
real(kind=sp),
|
intent(out) |
|
|
:: |
d(*) |
|
|
real(kind=sp),
|
intent(out) |
|
|
:: |
q(ldq,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldq |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
rho |
|
|
real(kind=sp),
|
intent(inout) |
|
|
:: |
dlamda(*) |
|
|
real(kind=sp),
|
intent(inout) |
|
|
:: |
w(*) |
|
|
real(kind=sp),
|
intent(out) |
|
|
:: |
s(lds,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
lds |
|
|
integer(kind=ilp),
|
intent(out) |
|
|
:: |
info |
|
Module Procedures