Description

THIS ROUTINE FINDS SPORADIC E MODE AND LOSS INFORMATION (SAME AS SUBROUTINE REGMOD FOR THE OTHER LAYERS) AC(3) IS ABSORPTION LOSS FACTOR, SEE LUFFY. BC(3) IS DENOMINATOR OF LOSS FACTOR.

Source file:	esmod.f

Intrinsic Functions Called

REAL ALOG, ALOG10, AMIN1 GENERIC ASIN, ATAN, COS, SIN GENERIC SQRT

External Functions and Subroutines Called

REAL PRBMUF, PWRDB SUBROUTINE GAIN

Local Variables (+ indicates altered content)

INTEGER +IG, +IGX, +IH, +IHOP INTEGER +IHSRT, +IHSTP, +IHT, +IS INTEGER +K REAL +AC, +ADEL, +ADX, +CDEL REAL +COSP, +DEL, +DUMMY, +ESD REAL +FSDEAD, GEFF, +GHOP, +GP REAL +HOP, +PATH, +PROS, +PS REAL +PSI, +REF, +REFL, +REFU REAL +SABPS, +SDMAX, +SECS, +SFLOS REAL +SFVMOD, +SGRLOS, +SINP, SRGAIN REAL STEFF, STGAIN, +TANS, +THET REAL +XKM, +XTLOS, +Y, YG

Referenced Common Block Variables (+ indicates altered content)

ANOIS REAL RCNSE CON REAL PIO2, R2D CON REAL RZ, VOFL DON REAL AMIND, GCD DON REAL GCDKM ES REAL FS(3,5), HS(5) FRQ INTEGER JMODE FRQ REAL FREQ GEOG REAL GYZ(5) MUFS REAL YFOT(4), YHPF(4) MUFS REAL YMUF(4) RAYS INTEGER IFOB(40,30,5) RON INTEGER KM RON REAL FI(3,5) SIGD REAL ACAV, AFE SIGD REAL ASM, BFE SIGD REAL DSL, 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)