Argument Definitions (+ indicates altered content)

INTEGER KOP REAL DELTA, EFF, FMC, +RAIN REAL TEX(4), TOAZ, YEPS, YND REAL YNH, YNL, YSIG

Description

gain.f

Source file:	iongain.f

Intrinsic Functions Called

GENERIC SIN

External Functions and Subroutines Called

SUBROUTINE IONGAIN2

Local Variables (+ indicates altered content)

REAL +DELTA_90, EFF_90, +GMORPH, RAIN_90 REAL +TOAZ_0

Argument Definitions (+ indicates altered content)

INTEGER KOP REAL DELTA, +EFF, FMC, +RAIN REAL TEX(4), TOAZ, YEPS, YND REAL YNH, YNL, YSIG

Description

.LT. 0 INDICATES TO CALCULATE GROUND REFLECTION LOSS ITR = 1 INDICATES TRANSMITTER ANTENNA ITR = 2 INDICATES RECEIVER ANTENNA POWER GAIN OF ANTENNA AND GROUND REFLECTION LOSS FOR LOSS, KOP IS ZERO OR MINUS DIMENSION A(10),B(10),CA(10),SA(10) toaz is off azimuth in degrees DELTA IS ELEVATION ANGLE,RADIANS FMC IS FREQUENCY,MHZ. BETA IS 0.0 FOR LOSS AND VARIES WITH ANTENNA TYPE. SIGMA IS GROUND CONDUCTIVITY, MHOS/METER. ER IS GROUND RELATIVE DIELECTRIC CONSTANT. PHI,EL,H AND EX(4) VARY WITH ANTENNA TYPE RAIN IS LOSS OR GAIN. THE REFLECTION COEFFICIENTS ARE KSUBV = -CV * EXP(I * PSIV), KSUBV = CV * EXP(I * GAMMAV) KSUBH = -CH * EXP(I * PSIH), KSUBH = CH * EXP(I * GAMMAH) IE NORMALIZED WITH PSI = GAMMA + PI, PSI = GAMMA - PI IONCAP REPORT VOLUME 1 PAGE 115 OR ITSA-1 PAGE 65 N O T E THIS IS NOT THE SAME AS MA AND WALTERS, ITS-74, PAGE 8

Source file:	iongain.f

Intrinsic Functions Called

INTEGER NINT REAL ALOG, ALOG10, AMAX1, AMOD GENERIC ABS, ASIN, ATAN, COS GENERIC SIN, SQRT, TAN

Statement functions Defined

REAL +COT

External Functions and Subroutines Called

SUBROUTINE CISI

Local Variables (+ indicates altered content)

INTEGER +I, +IBETA, +IK, +J INTEGER +M, +NEP, +NN REAL +A, +A6, +A7, +ALPHA REAL +ARG, +ASXV, +B, +B6 REAL +B7, +BETA, +BPRIM, +BRK REAL +BRV, +C, +CA(10), +CB REAL +CFAC2, +CG, +CH, +CHI REAL +CHQ, +CIN2, +CIN4, +CIN_2KL REAL +CIN_KL, +CI_2KL, +CI_KL, +CODIF REAL +COPSI1, +COPSI2, +COPSI3, +COPSI4 REAL +COPSI5, +COPSI6, +COPSI7, +COPSI8 REAL +COSUM, +CV, +CVI, +D REAL +DENOM, +DUMMY, +DX, +DY REAL +DZ, +E, +EH, +EL REAL +EL1, +ELFAC, +ELFAC2, +EP REAL +ER, +ERT, +EV, +EX(4) REAL +F, +F1, +F7, +F8 REAL +FAC, +FAC1, +FAC2, +FAC3 REAL +FAC4, +FAC6, +FLOOR, +FM REAL +FN, +G, +G2, +G7 REAL +G8, +H, +H1, +H2 REAL +HAC2, +HAC4, +HIMG, +HK REAL +HQ, +HRAIN, +HREAL, +HT REAL +HTWAVE, +HWAVE, +P, +PHI REAL +PSIH, +PSIHI, +PSIV, +PSIVI REAL +Q, +R, +RA, +RELTA REAL +RETA, +RHI, +RHO, +RHO12 REAL +RINTW, +S, +SA(10), +SB REAL +SEL, +SFAC2, +SG, +SHQ REAL +SIDIF, +SIGMA, +SIN2KL, +SISUM REAL +SI_2KL, +SI_KL, +SOK, +SPHIP REAL +SS, +SV, +SX, +SZ REAL +T, +TEMP, +TWAVE, +U REAL +U1, +U2, +U3, +U4 REAL +UC18, +UC27, +UC36, +UC45 REAL +V, +V1, +V2, +V3 REAL +V4, +VALUE, +VIMG, +VK REAL +VRAIN, +VREAL, W, +W1 REAL +W2, +W3, +W4, W5 REAL W6, W7, W8, +WAVE REAL +X, +X7, +X8, +XB1 REAL +XKH, +XKV, +XR, +XT1 REAL +XT2, +Y, +Y1, +Y2 REAL +Y3, +Y4, +Y7, +Y8 REAL +YH, +YV, +Z, +Z1 REAL +Z2, +Z3, +Z4

Referenced Common Block Variables (+ indicates altered content)

CON REAL PI, PIO2