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