SUBROUTINE CCIRGAIN ( IANT, U, V, Z6, GISO, GAIN )

Argument Definitions (+ indicates altered content)
INTEGER            IANT
REAL              +GAIN,       GISO,       U,          V
REAL               Z6
Description
GAIN CALCULATION  SUBROUTINE 
  INPUT  PARAMETERS: 
      iant = antenna type index number [0-10] 
      u    = elevation angle [0-90] 
      v    = off main beam azimuth angle [0-360] 
      z6   = gain normalizing factor from antinit 
      giso = maximum gain of antenna relative to isotrope (user inp 
  OUTPUT PARAMETERS: 
      gain    = calculated gain returned 
   Written by Greg Hand NTIA/ITS Boulder, Colorado   Aug 1991 
   Please call (303)497-3375 with any questions. 
                            antenna floor value
Source file:ccirgain.f
Intrinsic Functions Called
INTEGER            NINT
REAL               ALOG10
External Functions and Subroutines Called
SUBROUTINE         CURTAIN,    GAINREL
Local Variables (+ indicates altered content)
INTEGER           +IELEV
REAL              +DGS,       +G9,         Z9
Referenced Common Block Variables (+ indicates altered content)
CCIRPARM           REAL               PARM(20)
CTYPE11G           REAL               GAIN_TYPE11(91)
FLOORC             REAL               FLOOR