SUBROUTINE GENION ( K )
Argument Definitions (+ indicates altered content)
INTEGER            K
Description
THIS SECTION WILL GENERATE AN ELECTRON DENSITY PROFILE, AN IONOGRAM, 
A REFLECTRIX,TABLE OF OBLIQUE FREQUENCIES AND DISTANCES AT SPECIFIED 
ANGLES,ORDINARY MODE ONLY 
 
   HTR(50,3)  TRUE HEIGHT PROFILE FOR ELECTRON DENSITY PROFILE -- KM 
   FNSQ(50,3) ELECTRON DENSITY AS PLASMA FREQUENCY -- (MHZ)**2 
   FVERT(30,5) VERTICAL SOUNDING FREQUENCY--MHZ 
   HTRUE(30,5) TRUE HEIGHT OF REFLECTION--KM 
   HPRIM(30,5) VIRTUAL HEIGHT OF REFLECTION--KM 
 
   IFOB(40,30,5) OBLIQUE OPERATING FREQUENCY -- HZ 
   IDIST(40,30,5) PATH DISTANCE -- KM 
   ANG(40)  ELEVATION ANGLE -- DEGREES
Source file:genion.f
Intrinsic Functions Called
GENERIC            SQRT
External Functions and Subroutines Called
REAL               BENDY,      PEN,        XLIN
SUBROUTINE         GETHP
Local Variables (+ indicates altered content)
INTEGER           +IF
REAL              +FDIF,      +FEX,       +FN,        +FXX
REAL              +HPE(10),    HPX,       +HTE(10),    HTX
REAL              +XTAIL
Referenced Common Block Variables (+ indicates altered content)
MFAC               INTEGER            IEDP
RON                REAL               FI(3,5),   FNSQ(50,3)
RON                REAL              +FVERT(30,5)
RON                REAL               HI(3,5),  +HPRIM(30,5)
RON                REAL               HTR(50,3)
RON                REAL              +HTRUE(30,5)
RON                REAL               YI(3,5)