Go to the source code of this file.
|
subroutine | zunik (ZRR, ZRI, FNU, IKFLG, IPMTR, TOL, INIT, PHIR, PHII, ZETA1R, ZETA1I, ZETA2R, ZETA2I, SUMR, SUMI, CWRKR, CWRKI) |
|
◆ zunik()
subroutine zunik |
( |
double precision |
ZRR, |
|
|
double precision |
ZRI, |
|
|
double precision |
FNU, |
|
|
integer |
IKFLG, |
|
|
integer |
IPMTR, |
|
|
double precision |
TOL, |
|
|
integer |
INIT, |
|
|
double precision |
PHIR, |
|
|
double precision |
PHII, |
|
|
double precision |
ZETA1R, |
|
|
double precision |
ZETA1I, |
|
|
double precision |
ZETA2R, |
|
|
double precision |
ZETA2I, |
|
|
double precision |
SUMR, |
|
|
double precision |
SUMI, |
|
|
double precision, dimension(16) |
CWRKR, |
|
|
double precision, dimension(16) |
CWRKI |
|
) |
| |