SUBROUTINE ANTCAL ( BMAIN, BAZIM, DEL, GAIN )

Argument Definitions (+ indicates altered content)
REAL               BAZIM,      BMAIN,      DEL,       +GAIN
Description
       bmain- is main beam azmuthal bearing (degrees) 
       bazim- is azimuthal bearing (degrees) to calculate 
       del  - is elevation angle (degrees) 
       gain - is returned 
calculates gain of antenna for azimuthal offset and elevation angle
Source file:antcal.f
Intrinsic Functions Called
INTEGER            NINT
REAL               FLOAT
External Functions and Subroutines Called
SUBROUTINE         CCIRGAIN,   CURTAIN
Local Variables (+ indicates altered content)
INTEGER           +IELEV,     +IFREQ,     +JANT
REAL              +FREQ,      +GN,        +OFAZ
Referenced Common Block Variables (+ indicates altered content)
CCIRPARM           REAL               GISO,      GNORM(30)
CCIRPARM           REAL               PARM(20),  Z6
CTYPE11G           REAL               GAIN_TYPE11(91)
GAIN_10            REAL               GAIN10(90,29)