SUBROUTINE PARMPREC ( IANT, IPERF )

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)