Description THIS SUBROUTINE PUTS THE LONG PATH MODE TOGETHER
Source file: lngpat.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 CHARACTER CHAR INTEGER IAND REAL ALOG10, AMAX1, AMIN1 GENERIC ATAN, COS, SQRT
External Functions and Subroutines Called REAL PRBMUF, PWRDB SUBROUTINE BABS, CONVH, GETTOP, TABS
Local Variables (+ indicates altered content) CHARACTER +ITF, +MR CHARACTER*25 +OUTDAT INTEGER +IA, +IS, +ITRY, +JJ INTEGER +K, +NHOPS REAL +AF, +AM, CH, +CPR REAL +DEL, +DF, +DI, +DIKM REAL +DM, +DR, +DSLFF, +DSUFF REAL +DT, +DUMMY, +FHOP, +FREE REAL +GLOSS, +GMKM, +HPX, +P REAL +PHE, PTOT, +RAY, +RCOSD REAL +SPHE, +TLOSL, +XLF, +XLM REAL +XLR, +XLT, +ZLFOT, +ZLHPF REAL +ZLMUF
Referenced Common Block Variables (+ indicates altered content) ALLMODE INTEGER +NMMOD, +NMODE(20) ALLMODE REAL +ABPS(20), +ADV(20) ALLMODE REAL +B(20), +EFF(20) ALLMODE REAL +FLDST(20) ALLMODE REAL +FSLOS(20) ALLMODE REAL +GRLOS(20) ALLMODE REAL +HN(20), +HP(20) ALLMODE REAL +OBF(20), +PROB(20) ALLMODE REAL +RGAIN(20) ALLMODE REAL +SIGPOW(20) ALLMODE REAL +SN(20), +TGAIN(20) ALLMODE REAL +TIMED(20) ALLMODE REAL +TLHGH(20) ALLMODE REAL +TLLOW(20) ALLMODE REAL +TLOSS(20) ANOIS REAL RCNSE CON REAL D2R, RZ CON REAL VOFL DON REAL GCD FRQ INTEGER ITXRCP(2) FRQ REAL FREQ INFORM INTEGER INFO LOSX INTEGER IAFTXR(3) 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) LPATH INTEGER LTXRGM(2) MUFS REAL FVMUF(4), YFOT(4) MUFS REAL YHPF(4), YMUF(4) REFLX INTEGER IMODE(45,3) REFLX REAL DELFX(45,3) REFLX REAL FHP(45,3) REFLX REAL GDFLX(45,3) REFLX REAL GML(45,3) REFLX REAL HPFLX(45,3) SIGD REAL ASM, DSL SIGD REAL +DSLF, DSU SIGD REAL +DSUF