SUBROUTINE SETVARS ( )

Source file:setvars.f
Local Variables (+ indicates altered content)
INTEGER           +I,         +J,         +K
REAL              +ZERO
Referenced Common Block Variables (+ indicates altered content)
CANTENNA           INTEGER           +NUMANTS
GEOG               REAL              +ARTIC(5)
INFORM             INTEGER           +IHLNG,    +IHSHR
RAYS               INTEGER           +IFOB(40,30,5)
RON                REAL              +AFAC(30,5)
RON                REAL              +FVERT(30,5)
RON                REAL              +HPRIM(30,5)
RON                REAL              +HTRUE(30,5)
ZON                INTEGER           +NMODE(7)
ZON                REAL              +ABPS(7),  +ADV(7)
ZON                REAL              +B(7),     +CREL(7)
ZON                REAL              +EFF(7),   +FLDST(7)
ZON                REAL              +FSLOS(7), +GRLOS(7)
ZON                REAL              +HN(7),    +HP(7)
ZON                REAL              +OBF(7),   +PROB(7)
ZON                REAL              +RELY(7),  +RGAIN(7)
ZON                REAL              +SIGPOW(7)
ZON                REAL              +SN(7),    +SPRO(7)
ZON                REAL              +TGAIN(7), +TIMED(7)