Go to the source code of this file.
|
subroutine | cunik (ZR, FNU, IKFLG, IPMTR, TOL, INIT, PHI, ZETA1, ZETA2, SUM, CWRK) |
|
◆ cunik()
subroutine cunik |
( |
complex |
ZR, |
|
|
real |
FNU, |
|
|
integer |
IKFLG, |
|
|
integer |
IPMTR, |
|
|
real |
TOL, |
|
|
integer |
INIT, |
|
|
complex |
PHI, |
|
|
complex |
ZETA1, |
|
|
complex |
ZETA2, |
|
|
complex |
SUM, |
|
|
complex, dimension(16) |
CWRK |
|
) |
| |