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 |
|
) |
| |