SUBROUTINE ESREG ( )

Description
    THIS ROUTINE COMPUTES AN ES - F MODE.  IT IS A COMBINATION OF 
    SUBROUTINE REGMOD AND SUBROUTINE ESMOD.  ONE ES HOP IS DONE AND 
    THE REMAINDER ARE F HOPS.  THE POINT IS TO ADD NEW RADIATION 
    ANGLE POSSIBILITIES. 
    YOU CANNOT HAVE REGULAR E - N*F MODE FROM THE SAME IONOSPHERE 
    ONE COULD USE THE LOGIC BELOW TO MIX MODES FROM TWO OR MORE 
    SAMPLE AREAS 
 
AC(3) IS ABSORPTION LOSS FACTOR, SEE LUFFY. 
BC(3) IS DENOMINATOR OF LOSS FACTOR.
Source file:esreg.f
Intrinsic Functions Called
REAL               ALOG,       ALOG10,     AMAX1,      AMIN1
GENERIC            ABS,        ASIN,       ATAN,       COS
GENERIC            SIN,        SQRT
External Functions and Subroutines Called
REAL               PRBMUF,     PWRDB
SUBROUTINE         GAIN
Local Variables (+ indicates altered content)
INTEGER           +IG,        +IGX,       +IH,        +IHLOW
INTEGER           +IHX,       +IM,        +IMD,       +IME
INTEGER           +IMS,       +INS,       +IS,        +ISMOD
INTEGER           +KF,        +KS,        +L,         +LX(3)
INTEGER           +NHOPF
REAL              +ABPSF,     +AC,        +AF,        +BC
REAL              +CDEL,      +CPHES,     +CPHET,     +CPR
REAL              +D1,        +D2,        +DEL,       +DHOPKM
REAL              +DTH,       +DTH2,      +DUMMY,      DUMMY1
REAL               DUMMY2,    +ESD,       +FMHZ,      +FSDEAD
REAL              +FV,        +FVFOT,     +FVHPF,     +FVS
REAL              +GDR,       +GDR1,      +GDR2,       GEFF
REAL              +GHOPF,     +HOP,       +HP1,       +HP2
REAL              +HT,        +HT1,       +HT2,       +OBFL
REAL              +OBFU,      +PATH,      +PATHF,     +PATHS
REAL              +PFL,       +PHE,       +PHES,      +PHF
REAL              +PROBF,     +PROBS,     +PROS,      +PSI
REAL              +PSIS,      +PSL,       +PSU,       +REF
REAL              +REFL,      +REFU,      +SECP,      +SINP
REAL              +SPHET,     +SPHI,      +ST,        +TANP
REAL               TEFF,      +TGCD,      +THET,      +XKM
REAL              +XLSF,      +XLSL,      +XLSU,      +XMUF
REAL              +XNSQ,      +Y,          YG
Referenced Common Block Variables (+ indicates altered content)
ANOIS              REAL               RCNSE
CON                REAL               D2R,       PIO2
CON                REAL               R2D,       RZ
CON                REAL               VOFL
DON                REAL               AMIND,     GCDKM
ES                 REAL               FS(3,5),   HS(5)
FRQ                INTEGER            JMODE
FRQ                REAL               FREQ
GEOG               REAL               GYZ(5)
MUFS               REAL               FVMUF(4),  YFOT(4)
MUFS               REAL               YHPF(4),   YMUF(4)
RAYS               INTEGER            IFOB(40,30,5)
REFLX              INTEGER            IMODE(45,3)
REFLX              REAL               AFFLX(45,3)
REFLX              REAL               DELFX(45,3)
REFLX              REAL               DELPEN(3,5)
REFLX              REAL              +DMAXKM(3)
REFLX              REAL               FVFLX(45,3)
REFLX              REAL               GDFLX(45,3)
REFLX              REAL               HPFLX(45,3)
REFLX              REAL               HTFLX(45,3)
RON                INTEGER            KM
RON                REAL               FI(3,5)
SIGD               REAL               ACAV,      AFE
SIGD               REAL               BFE,       DSL
SIGD               REAL               DSU
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)
ZON                REAL              +TLHGH(7), +TLLOW(7)
ZON                REAL              +TLOSS(7)