SUBROUTINE INMUF ( IHOP, NUMMOD )

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)