SUBROUTINE FDIST ( IHOP, K, NUMMOD )
Argument Definitions (+ indicates altered content)
INTEGER            IHOP,       K,         +NUMMOD
Description
THIS ROUTINE FINDS UP TO SIX RAYSETS FOR THE CURRENT HOP DISTANCE 
(SET IN SUBROUTINE LUFFY) AND FREQUENCY 
LOOK FOR E, F1 AND F2 LOW ANGLES AND HIGH ANGLES 
 
K IS THE SAMPLE AREA (USED AS AN INDEX)
Source file:fdist.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
GENERIC            ABS,        ATAN,       COS,        SIN
GENERIC            SQRT
Local Variables (+ indicates altered content)
CHARACTER*3       +MLAY(3),   +MODZ(6)
INTEGER           +I,         +IH,        +IL,        +ILM
INTEGER           +IM
REAL              +DHOPKM,    +DTH,       +DTH2,      +HP
REAL              +HP1,       +HP2,       +HT,        +HT1
REAL              +HT2,       +PHE,       +SPHI,      +ST
REAL              +TANP,      +THET
Referenced Common Block Variables (+ indicates altered content)
CON                REAL               D2R,       PIO2
CON                REAL               R2D,       RZ
DON                REAL               AMIND
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)
REFLX              INTEGER            IMODE(45,3)
REFLX              REAL               AFFLX(45,3)
REFLX              REAL               DELFX(45,3)
REFLX              REAL               DMAXKM(3)
REFLX              REAL               FVFLX(45,3)
REFLX              REAL               GDFLX(45,3)
REFLX              REAL               HPFLX(45,3)
REFLX              REAL               HTFLX(45,3)