Argument Definitions (+ indicates altered content) INTEGER IANT REAL U, V, +Z9
Description RELATIVE GAIN CALCULATION SUBROUTINE iant = antenna type index number [1-10] u = elevation angle [0-90] v = off azimuth angle [0-360] z9 = returned relative gain
Source file: gainrel.f
Intrinsic Functions Called INTEGER IFIX GENERIC ABS, COS, MOD, SIN GENERIC SQRT
Local Variables (+ indicates altered content) INTEGER +I, +IL, +JV, +K INTEGER +KV REAL +A0, +A1, +A11, +A12 REAL +A2, +A3, +A4, +A5 REAL +A6, +A7, +AA1, +AM REAL +AN, +ASL, +AW, +B0 REAL +B1, +B2, +B3, +B4 REAL +B5, +B6, +B7, +BB1 REAL +BM, +BN, +BW, +C2 REAL +C3, +C4, +D2, +D3 REAL +D4, +DELTA, +DF, +EFI REAL +ETHETA, +FG, +FIJ, +FIR REAL +FT, +FTI, +FX, +FY REAL +H4, +H5, +H6, +PFB REAL +PFRA, +PFRB, +R1, +R4 REAL +R5, +R6, +SFI, +SFR REAL +STI, +STR, +T5, +T6 REAL +T7, +TI, +TR, +U1 REAL +U12, +U13, +U2, +U3 REAL +U4, +UI, +UR, +W0 REAL +W00, +W1, +W2, +W31X REAL +W3X, +W3Y, +W41X, +W4X REAL +W4Y, +W7, +W711X, +W71X REAL +W71Y, +W721X, +W72X, +W72Y REAL +W8, +W81X, +W8X, +W8Y REAL +W91X, +W9X, +W9Y, +WI REAL +WR, +Z1, +Z2, +Z3 REAL +Z4
Referenced Common Block Variables (+ indicates altered content) CCPARM INTEGER NAT CROS REAL CP11, CPFR CROS REAL FR1, H1 CROS REAL P11, P11S CROS REAL PFR, +Q2 CROS REAL +R2, +R3 CROS REAL SL GENERAL REAL BETA, Q1 LOGP INTEGER IEK(35) LOGP REAL FI(35), RIM(35) LOGP REAL RL(35), X(35) LOGP REAL Y(35) SURF REAL COSTH, +GAMMA SURF REAL SINTH TRIG REAL A(0:361), B(0:361) WARR REAL W10(0:90) WARR REAL W3(0:90), W4(0:90) WARR REAL W5(0:90), W6(0:90) WARR REAL W9(0:90) WWAR REAL WW1(0:90,0:30) WWAR REAL WW2(0:90,0:30) WWAR REAL WW3(0:90,0:30) WWAR REAL WW4(0:90,0:30)