Argument Definitions (+ indicates altered content) INTEGER IHOP, +NUMMOD
Description THIS ROUTINE INSERTS OVER-THE-MUF OR ZERO DISTANCE MODES IHOP WILL MATCH THE CORRECT NUMBER OF HOP ON SOME CALL THE ROUTINE ASSURES SMOOTH TRANSITIONS IF NO MODE IN REFLECTRIX ADD A OVER-THE-MUF MODE FOR EACH LAYER.
Source file: inmuf.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 GENERIC ATAN, COS, SIN, SQRT
External Functions and Subroutines Called REAL XLIN SUBROUTINE REGMOD
Local Variables (+ indicates altered content) CHARACTER*7 +HIMUFS(3) CHARACTER*4 +MLAY(3,2), +MODZ(3) INTEGER +I, +IH, +IHX, +II INTEGER +IL, +ILM, +ILY, +IM INTEGER +INEW INTEGER +INM(3) INTEGER +INUM, +IRESET, +ISAV, +ITP INTEGER +JH, +K, +NNOW REAL +CDEL, +EPS, +ESD, +FMAX REAL +FOB1, +FV, +GHOPKM, +HOP REAL +HOPKM, +HPNOW, +HPVER, +HT REAL +OSIGL(3), +OSIGU(3), +OYFOT(3), +OYHPF(3) REAL +OYMUF(3) REAL +PSI, +SECP, +SLOPE, +SLP REAL +SPH, +SPHE, +TDEL, +XFSQ REAL +XHP, +XMUT
Referenced Common Block Variables (+ indicates altered content) CON REAL R2D, RZ DON REAL GCD, GCDKM FRQ INTEGER JMODE FRQ REAL FREQ INFORM INTEGER INFO MODES INTEGER +ITMOD(6,3) MODES REAL +AFMOD(6,3) MODES REAL +DELMOD(6,3) MODES REAL +FVMOD(6,3) MODES REAL +GHOP, +HPMOD(6,3) MODES REAL +HTMOD(6,3) MUFS INTEGER MODMUF, NHOPMF(4) MUFS REAL AFMUF(4), DELMUF(4) MUFS REAL FVMUF(4), HPMUF(4) MUFS REAL HTMUF(4), +SIGL(4) MUFS REAL +SIGU(4), +YFOT(4) MUFS REAL +YHPF(4), +YMUF(4) RON REAL AFAC(30,5) RON REAL FI(3,5), FVERT(30,5) RON REAL HI(3,5), HPRIM(30,5) RON REAL HTRUE(30,5)