REAL FUNCTION F2 ( THETA, PHI )

Argument Definitions (+ indicates altered content)
REAL               PHI,        THETA
Description
PARAMETERS: 
  THETA - takeoff angle in radians 
  PHI - azimuthal angle in radians
Source file:f2.f
Intrinsic Functions Called
INTEGER            IABS
GENERIC            COS,        SIN
Local Variables (+ indicates altered content)
INTEGER           +I,         +NBS
REAL              +ARG,       +COF,       +CPHI,      +CPSI
REAL              +CTHETA,    +EF,        +FX,        +FYI
REAL              +FYR,       +FZPHR,     +FZTHR,     +SPHI
REAL              +SPSI2,     +STHETA
Referenced Common Block Variables (+ indicates altered content)
ANTDAT             INTEGER            NOSTAK,    NUMBAY
FWAVE              REAL               C(8),      CEIL
FWAVE              REAL               EIL,       PS(14)
FWAVE              REAL               R(14),     XR
FWAVE              REAL               Y(14),     Z(8)