SUBROUTINE NOMMUF ( )
Description
THIS ROUTINE CALCULATES MUF FOR ALL LAYERS AND CIRCUIT MUF (NO ES) 
BY THE MANUAL METHOD PROGRAMMED FOR COMPUTER USE
Source file:nommuf.f
Intrinsic Functions Called
REAL               AMAX1
GENERIC            COS,        SIN,        SQRT
Local Variables (+ indicates altered content)
INTEGER           +K
REAL              +AE(7),     +AF(7),     +ARC,       +CDEL
REAL              +DMAX,      +EC,        +ELFC,      +ESD
REAL              +FLFC,      +FMUF,      +FOTFY,     +FOUR
REAL              +HOP,       +HPFFY,     +PSI,       +SECP
REAL              +SPHE,      +TDEL
Referenced Common Block Variables (+ indicates altered content)
CON                REAL               RZ
DON                REAL               GCD,       GCDKM
ES                 REAL               FS(3,5),   HS(5)
MFAC               REAL               F2M3(5)
MUFS               REAL              +ALLMUF(24)
MUFS               REAL              +EMUF(24), +ESMUF(24)
MUFS               REAL              +F1MUF(24)
MUFS               REAL              +F2MUF(24)
MUFS               REAL              +FOT(24),  +HPF(24)
RON                INTEGER            KM
RON                REAL               FI(3,5)
TIME               INTEGER            IT