Functions | |
subroutine | CUNIK (ZR, FNU, IKFLG, IPMTR, TOL, INIT, PHI, ZETA1,*ZETA2, SUM, CWRK) |
subroutine CUNIK | ( | ZR | , | |
REAL | FNU, | |||
INTEGER | IKFLG, | |||
INTEGER | IPMTR, | |||
REAL | TOL, | |||
INTEGER | INIT, | |||
COMPLEX | PHI, | |||
ZETA1 | , | |||
* | ZETA2, | |||
COMPLEX | SUM, | |||
COMPLEX,dimension(16),dimension | CWRK | |||
) |