Go to the source code of this file.
|
subroutine | zkscl (zrr, zri, fnu, n, yr, yi, nz, rzr, rzi, ascle, tol, elim) |
|
◆ zkscl()
subroutine zkscl |
( |
double precision |
zrr, |
|
|
double precision |
zri, |
|
|
double precision |
fnu, |
|
|
integer |
n, |
|
|
double precision, dimension(n) |
yr, |
|
|
double precision, dimension(n) |
yi, |
|
|
integer |
nz, |
|
|
double precision |
rzr, |
|
|
double precision |
rzi, |
|
|
double precision |
ascle, |
|
|
double precision |
tol, |
|
|
double precision |
elim |
|
) |
| |