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)