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