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)