Argument Definitions (+ indicates altered content) INTEGER IANT, IPERF
Source file: parmprec.f
Intrinsic Functions Called INTEGER IFIX, NINT GENERIC ABS, COS, SIN, SQRT
External Functions and Subroutines Called SUBROUTINE BESSEL, REFCOF, SURFIM
Local Variables (+ indicates altered content) INTEGER +I, +IL, +JJ, +K REAL +A0, +A1H, +ALF, +AM REAL +AU(0:30), +B0, +B1H, BJ1 REAL +BM, +BTA, +BU(0:30), +DELTA REAL DLTETA, +DX0, +DY0, +F4 REAL +FTETA0, +H11, +HH, +PFRA REAL +PFRH, PSI, +Q0J1, +Q0X REAL +QX, +QY, +RIK, +S4 REAL +SA, +SB, +SX, +SY REAL T1, T2, T3, T4 REAL +THETI, +THETR, +U, +W0J1 REAL +W0Y, +W1(0:90), +W2(0:90), +W31 REAL +W32, +W33, +W34, +X0 REAL +XX, +Y0, +YY
Referenced Common Block Variables (+ indicates altered content) CCPARM INTEGER NAT CCPARM REAL AH1, BH1 CROS REAL H1, PFR CROS REAL R3 GENERAL REAL BETA, D1 GENERAL REAL E1 LOGP INTEGER IEK(35) LOGP REAL H(30) SURF REAL RO TRIG REAL A(0:361), B(0:361) WARR REAL +W10(0:90) WARR REAL +W3(0:90), +W4(0:90) WARR REAL +W5(0:90), +W6(0:90) WARR REAL +W9(0:90) WWAR REAL +WW1(0:90,0:30) WWAR REAL +WW2(0:90,0:30) WWAR REAL +WW3(0:90,0:30) WWAR REAL +WW4(0:90,0:30)