SUBROUTINE CURMUF ( )

Description
THIS ROUTINE CALCULATES MUF FOR ALL LAYERS AND CIRCUIT MUF (NO ES) 
MUF FACTORS ARE COMPUTED USING COMPLETE ELECTRON DENSITY PROFILES
Source file:curmuf.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               AMAX1,      AMIN1
GENERIC            ABS,        ASIN,       ATAN,       COS
GENERIC            EXP,        SIN,        SQRT
External Functions and Subroutines Called
REAL               BENDY,      PEN
SUBROUTINE         F2DIS,      GETHP,      LECDEN
Local Variables (+ indicates altered content)
INTEGER           +K,         +KR,        +KS,        +KSX
INTEGER           +KT,        +NFQ,       +NHOPS,     +NTRY
REAL              +A,         +A1,        +A2,        +AE
REAL              +BETA,      +BEX,       +CDEL,      +CPSI
REAL              +DEL,       +DEL1,      +DEL2,      +DELE
REAL              +DELS,      +DUMMY1,    +DUMMY2,    +DUMMY3
REAL              +DZF,       +ESD,       +FOB1,      +FOB2
REAL              +FQDEL,     +FREQ,      +FX1,       +FX2
REAL              +FXE,       +FZERO,     +HOP,        HP1
REAL              +HP2,       +HPE,       +HPX1,      +HPX2
REAL              +HPY1,      +HPY2,       HT1,       +HT2
REAL              +HTE,       +PHE,       +PSI,       +SECP
REAL              +SECPX,      SIG,       +SIGB,      +SIGZ
REAL              +SPH,       +SPHE,      +SPSI,      +TANP
REAL              +TDEL,      +TDELX,     +XES,       +XFSQ
REAL              +XHOPS,     +XHP,       +XMUT,      +XT1
REAL              +XT2,       +XTE,       +ZDIF
Referenced Common Block Variables (+ indicates altered content)
CON                REAL               D2R,       PIO2
CON                REAL               R2D,       RZ
DON                REAL               AMIND,     GCD
DON                REAL               GCDKM,     SSN
ES                 REAL              +FS(3,5),   HS(5)
GEOG               REAL               CLCK(5)
INFORM             INTEGER            INFO
MFAC               INTEGER            IEDP
MUFS               INTEGER           +MODMUF,   +NHOPMF(4)
MUFS               REAL              +AFMUF(4), +ALLMUF(24)
MUFS               REAL              +ANGMUF(24)
MUFS               REAL              +DELMUF(4)
MUFS               REAL              +EMUF(24), +ESMUF(24)
MUFS               REAL              +F1MUF(24)
MUFS               REAL              +F2MUF(24)
MUFS               REAL              +FOT(24),  +FVMUF(4)
MUFS               REAL              +HPF(24),  +HPMUF(4)
MUFS               REAL              +HTMUF(4), +SIGL(4)
MUFS               REAL              +SIGU(4),  +YFOT(4)
MUFS               REAL              +YHPF(4),  +YMUF(4)
RON                INTEGER            KFX,       KM
RON                REAL               CLAT(5),   FI(3,5)
RON                REAL               HI(3,5),   YI(3,5)
TIME               INTEGER            IT