subroutine ml_imtql2(nm, n, d, e, z, ierr, job)
MODIFIED BY C. MOLER TO ELIMINATE MACHEP 11/22/78
MODIFIED TO ADD JOB PARAMETER 08/27/79
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
integer
|
|
|
|
:: |
nm |
|
|
integer
|
|
|
|
:: |
n |
|
|
double precision
|
|
|
|
:: |
d(n) |
|
|
double precision
|
|
|
|
:: |
e(n) |
|
|
double precision
|
|
|
|
:: |
z(nm,n) |
|
|
integer
|
|
|
|
:: |
ierr |
|
|
integer
|
|
|
|
:: |
job |
|
Variables
| Type |
Visibility | Attributes |
|
Name |
| Initial | |
|
double precision,
|
public |
|
:: |
b |
|
|
|
|
double precision,
|
public |
|
:: |
c |
|
|
|
|
double precision,
|
public |
|
:: |
f |
|
|
|
|
double precision,
|
public |
|
:: |
g |
|
|
|
|
integer,
|
public |
|
:: |
i |
|
|
|
|
integer,
|
public |
|
:: |
ii |
|
|
|
|
integer,
|
public |
|
:: |
j |
|
|
|
|
integer,
|
public |
|
:: |
k |
|
|
|
|
integer,
|
public |
|
:: |
l |
|
|
|
|
integer,
|
public |
|
:: |
m |
|
|
|
|
integer,
|
public |
|
:: |
mml |
|
|
|
|
double precision,
|
public |
|
:: |
p |
|
|
|
|
double precision,
|
public |
|
:: |
r |
|
|
|
|
double precision,
|
public |
|
:: |
s |
|
|
|
|
integer,
|
public |
|
:: |
spag_nextblock_1 |
|
|
|
|
integer,
|
public |
|
:: |
spag_nextblock_2 |
|
|
|
Source Code
subroutine ml_imtql2(nm, n, d, e, z, ierr, job)
import int32, real64
integer(kind=int32) :: n
integer(kind=int32) :: nm
real(kind=real64) :: d(n)
real(kind=real64) :: e(n)
real(kind=real64) :: z(nm, n)
integer(kind=int32) :: ierr
integer(kind=int32) :: job
end subroutine ml_imtql2