Description

SUBROUTINES SETRCR AND SETTMT COMBINED 1/10/91 FJR THIS SUBROUTINE CALCULATES THE LOSSES, ETC. FOR ALL MODES AT THE TRANSMITTER/RECEIVER END

Source file:	settxr.f

I/O Operations:

Unit ID Unit No Access Form Operation 99 SEQ FMTD W Operation codes A=rewind,B=backspace,C=close,E=endfile I=inquire,O=open,R=read,W=write

Intrinsic Functions Called

INTEGER IAND REAL ALOG, ALOG10, AMAX1, AMIN1 GENERIC COS, EXP, SQRT

External Functions and Subroutines Called

REAL PRBMUF SUBROUTINE GAIN

Local Variables (+ indicates altered content)

INTEGER +IA, +IG, +IGX, +ILN INTEGER +IM, +IS, +JJ, +K REAL +AC, +ADX, +BC, +CDEL REAL +CPHET, +DEL, +DEND, +DUMMY REAL +ESD, +FMHZ, +FSDEAD, GEFF REAL +HEFF, +HNUX, +P, +PROS REAL +SECP, +SECS, +SINP, +SINS REAL +SPHET, TEFF, +XHOP, +XHPM REAL +XKM, +XLS, +XLSWO, +XNSQ REAL +XV, +Y, YG

Referenced Common Block Variables (+ indicates altered content)

ALLMODE REAL +PROB(20) CON REAL D2R, RZ DON REAL AMIND, GCDKM ES REAL FS(3,5), HS(5) FRQ INTEGER ITXRCP(2) FRQ REAL FREQ GEOG REAL ABIY(5), GYZ(5) INFORM INTEGER INFO LOSX REAL +ADVX(45,3) LOSX REAL +ANDVX(45,3) LOSX REAL +AOFX(45,3) LOSX REAL +EFFLP(45) LOSX REAL +GRLOSX(45,3) LOSX REAL +TGAINX(45,3) MUFS INTEGER MODMUF, NHOPMF(4) MUFS REAL AFMUF(4), DELMUF(4) MUFS REAL FVMUF(4), HPMUF(4) MUFS REAL HTMUF(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 +FHP(45,3) REFLX REAL +FVFLX(45,3) REFLX REAL +GDFLX(45,3) REFLX REAL +GML(45,3) REFLX REAL +HPFLX(45,3) REFLX REAL +HTFLX(45,3) RON INTEGER KM RON REAL FI(3,5) SIGD REAL AFE, BFE SIGD REAL HNU, HTLOSS SIGD REAL XNUZ, XVE