SUBROUTINE NOISY ( KJ, XLA, CEG, ANOS )
Argument Definitions (+ indicates altered content)
INTEGER            KJ
REAL              +ANOS,       CEG,        XLA
Description
NOISY IS A GENERAL PURPOSE ROUTINE USED TO EVALUATE A FOURIER 
SERIES IN TWO VARIABLES. 
KJ --- NUMBER OF FOURIER COEFFICIENT ARRAY TO BE USED 
XLA --- GEOGRAPHIC LATITUDE, DEGREES, 
CEG --- GEOGRAPHIC EAST LONGITUDE, DEGREES 
ANOS --- NOISE VALUE, MEDIAN POWER DB ABOVE KTB 
ABP --- NORMALIZING FACTORS FOR FOURIER SERIES 
KJ = 1 TO 6 IS ATMOSPHERIC NOISE, KJ = 7 IS LAND MASS MAP AND 
KJ = 8 IS RATIO OF F2 HEIGHT OF MAXIMUM TO SEMITHICKNESS 
 
* NOTE - XLA, CEG, ANOS, ABP ARE NOT ALWAYS AS PREVIOUSLY DEFINED 
FOURIER VARIABLES AND ATMOSPHERIC RADIO NOISE
Source file:noisy.f
Intrinsic Functions Called
GENERIC            COS,        SIN
Local Variables (+ indicates altered content)
INTEGER           +J,         +K,         +LM,        +LN
REAL              +ALF,       +BET,       +C1,        +CX
REAL              +Q,         +R,         +S1,        +SS
REAL              +SX(15),    +TX,        +ZZ(29)
Referenced Common Block Variables (+ indicates altered content)
TWO                REAL               ABP(2,9),  P(29,16,8)