SUBROUTINE FINDF ( K )
Argument Definitions (+ indicates altered content)
INTEGER            K
Description
   THIS ROUTINE DOES AREA COVERAGE FOR A SPECIFIED FREQUENCY 
   (FIND ALL MODES FOR AN OPERATING FREQUENCY) 
   INSERTS PENETRATION ANGLES INTO THE ANGLE TABLE AND COMPUTES ALL 
   RAY PATH PARAMETERS FOR EACH ANGLE AT THE FREQUENCY "FREQ" 
 
   FREQ  GIVEN OPERATING FREQUENCY  - MHZ- 
   GHOP  GIVEN GROUND DISTANCE -RADIANS- 
   DELPEN(3,5) PENETRATION ANGLE FOR FREQUENCY FMHZ -DEGREES- 
 
 
   DELMOD(6,5)  TAKE OFF ANGLE AT FMHZ,GHOP -DEGREES- 
   HPMOD (6,5)  VIRTUAL HEIGHT AT FMHZ,GHOP -KM- 
   HTMOD (6,5)  TRUE    HEIGHT AT FMHZ,GHOP -KM- 
   DSKPKM       SKIP DISTANCE AT FMHZ,GHOP -KM- 
   DELSKP       TAKE OFF ANGLE FOR SKIP DISTANCE -DEGREES- 
   HPSKP        VIRTUAL HEIGHT FOR SKIP DISTANCE -KM- 
   HTSKP        TRUE    HEIGHT FOR SKIP DISTANCE -KM- 
   NANG IS THE HIGHEST ANGLE NUMBER (PRESET IN SUBROUTINE SANG) 
 
   K IS THE SAMPLE AREA 
   ICUSP IS THE INSERT CUSP INDEX 
   (=-1 FOR NOT IN, =0 FOR ONE SIDE IN, =1 FOR FINISHED) 
   IH IS THE HEIGHT INDEX FOR COMMON/RAYS/ (FROM 1 TO 30) 
   ILOW IS THE LOWER LIMIT (IH) FOR LAYER 
   IHIGH IS THE UPPER LIMIT (IH) FOR LAYER 
   IA IS THE ANGLE INDEX FOR COMMON/RAYS/ (1 TO NANG .LE. 40) 
   IAF IS THE ANGLE INDEX FOR COMMON/REFLX/ (1 TO 45) 
   IFOB IS IN KHZ 
 
LONG PATH PARAMETERS,SEE SUBR LNGPAT.
Source file:findf.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
CHARACTER          CHAR
INTEGER            IAND
REAL               AMAX1
GENERIC            ASIN,       COS
External Functions and Subroutines Called
SUBROUTINE         PENANG
Local Variables (+ indicates altered content)
CHARACTER         +ITF
INTEGER           +IA,        +IAF,       +ICUSP,     +ICUSPMAX
INTEGER           +ICUSPSKP,  +IH,        +IHIGH,     +IL
INTEGER           +ILOW,      +ITYPE(3),  +JFHZ
REAL              +DEL,       +FC2,       +FV,        +GDR
REAL              +HP,        +HT,        +PHE,       +RCOSD
REAL              +SKPSPH,    +SLOPD,     +SLOPE,     +SPH
REAL              +XFSQ,      +XHP,       +XMUT
Referenced Common Block Variables (+ indicates altered content)
CON                REAL               D2R,       PIO2
CON                REAL               RZ
DON                REAL               AMIND
FRQ                REAL               FREQ
INFORM             INTEGER            INFO
LOSX               INTEGER           +IAFTXR(3)
RAYS               INTEGER            IFOB(40,30,5)
RAYS               INTEGER            NANG
RAYS               REAL               ANG(40)
REFLX              INTEGER           +IMODE(45,3)
REFLX              INTEGER           +ISKP(3)
REFLX              REAL              +AFFLX(45,3)
REFLX              REAL              +DELFX(45,3)
REFLX              REAL               DELPEN(3,5)
REFLX              REAL              +DELSKP(3)
REFLX              REAL              +DMAXKM(3)
REFLX              REAL              +DSKPKM(3)
REFLX              REAL              +FVFLX(45,3)
REFLX              REAL              +FVSKP(3), +GDFLX(45,3)
REFLX              REAL              +HPFLX(45,3)
REFLX              REAL              +HPSKP(3), +HTFLX(45,3)
REFLX              REAL              +HTSKP(3)
RON                REAL               AFAC(30,5)
RON                REAL               FI(3,5),   FVERT(30,5)
RON                REAL               HPRIM(30,5)
RON                REAL               HTRUE(30,5)