SUBROUTINE LNGPAT ( )

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