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