Argument Definitions (+ indicates altered content)

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

Description

SUBROUTINE GAIN (NEXT) this is the GAIN routine for HFMUFES ITS-78 antennas

Source file:	mufesgan.f

I/O Operations:

Unit ID Unit No Access Form Operation * SEQ FMTD W Operation codes A=rewind,B=backspace,C=close,E=endfile I=inquire,O=open,R=read,W=write

Intrinsic Functions Called

COMPLEX CMPLX, CONJG, CSQRT INTEGER IABS REAL AIMAG, ALOG, ALOG10, AMAX1 REAL CABS, FLOAT GENERIC ABS, ACOS, ASIN, ATAN2 GENERIC COS, MOD, REAL, SIN GENERIC SQRT, TAN

External Functions and Subroutines Called

COMPLEX CSZ1 REAL CANG, ONEJ SUBROUTINE CMPINV, COLL, ECH, MUTUAL SUBROUTINE SIM, ZMUT

Local Variables (+ indicates altered content)

COMPLEX +A1, +ACSQ, +AF, +AZH COMPLEX +AZV, +B1, +CTD, +CTU COMPLEX +CURNT, +DELZ, +DIF, +EPHI COMPLEX +ETA, +ETHETA1, +ETHETA2, +HRATIO COMPLEX +QPAR, +QPER, R(5,5), +RC COMPLEX RDZ(5,10), RDZB(10), RDZE(5,5), RDZZ(5) COMPLEX +RH, +RHCP, RP(5,5), RPZB(5) COMPLEX RPZE(5), RPZZ, RT(5,10), RTZB(10) COMPLEX RTZE(5,5), RTZZ(5), +RV, RZB(5) COMPLEX RZE(5), +RZZ, +SQRD, +V COMPLEX +WK2, +WK2OK, +WKOK2, +Z(20,20) COMPLEX +ZM, +ZSUM1, +ZSUM2, +ZSUM3 COMPLEX +ZSUM4, +ZT, +ZTERM1, +ZTERM2 COMPLEX +ZTERM3, +ZTERM4, +ZTR INTEGER +I, +II, +IJ, +IJEND INTEGER +IKEX, +IPJ, +IPJEND, +J INTEGER +JEN, +JEND, +JJ, +JK INTEGER +JL, +K, +M, +MID INTEGER +MN, +MNEND, +N, +NB INTEGER +NBB, +NE, +NEE, +NII INTEGER +NIP, +NJ, +NM1, +NM2 REAL +A, +A2, +A4, +A5 REAL +AA, +AA2, +AB4, +AB5 REAL +AI, +ALPHA, +AM, +AN REAL +ARG5, +ARGL1, +ARGL2, +AS REAL +B2, +B4, +B5, +BB REAL +BB2, +BETA, +BI, +BP REAL +BP1, +BP2, +BPP, +C REAL +C1, +C11, +C14, +C22 REAL +C23, +C2KEL, +CAYA, +CAYVH REAL +CB, +CBAY, +CBETA, +CBS REAL +CC, +CCB, +CCP, +CD REAL +CDEL, +CDELP, +CELE, +CFAC2 REAL +CH, +CI, +CI2, +CI4 REAL +CIG, +CIGP, +CIJ, +CIN2 REAL +CIN4, +CIPJ, +CIX(20), +CIY(20) REAL +CL1, +CL2, +CM, +CMN REAL +CMP, +CN, +CNP, +CONST REAL +COT, +CP1, +CP2, +CP5 REAL +CP6, +CP7, +CP8, +CPH REAL +CPHI, +CPHIP, +CPSI, +CPSIPH REAL +CQ2, +CR, +CR5, +CRB REAL +CS, +CSB, +CSP, +CTHETAZ REAL +CTK, +CTS1, +CTS4, +CV REAL +CW, +CW2H, +CWB, +CWC REAL +CWL, +CWLH, +CXC, +D(20) REAL +D1, +DAB4, +DAB5, +DC REAL +DD, +DEL, +DELR1, +DELR2 REAL +DELTAP, +DELTD, +DI, +DMPIO2 REAL +DP, +DX, +DY, +DZ REAL +E1I, +E1R, +E2I, +E2R REAL +E3I, +E3R, +E4I, +E4R REAL +E5I, +E5R, +E6I, +E6R REAL +E7I, +E7R, +E8I, +E8R REAL +EL, +EL1, +EL2, +EM REAL +EM1, +EN, +ENN1, +EPHI1 REAL +EPHI2, +EPHR, +EPI, +EPMAG REAL +EPR, +EPS, +EQ, +ER REAL +ETA1, +ETA2, +ETETA1, +ETETA2 REAL +ETHET1, +ETHET2, +ETHI, +ETHR REAL +ETI, +ETMAG, +ETR, +EX(4) REAL +F, +F1, +F11, +F12 REAL +F2, +F4C, +FAC, +FAC2 REAL +FAC4, +FACTOR, +FAK, +FI1 REAL +FI2, +FI4, +FLOG, +FLOOR REAL +FMULT, +FU1, +FU2, +FU3 REAL +FU4, +G, +G1, +G11 REAL +G12, +G2, +GI, +H REAL +HAB5, +HAC2, +HAC4, +HQ REAL +HQWAVE, +HT, +HWAVE, +P REAL +P1I, +P1R, +P2I, +P2R REAL +P3I, +P3R, +P4I, +P4R REAL +P5I, +P5R, +P6I, +P6R REAL +P7I, +P7R, +P8I, +P8R REAL +PAM, +PAN, +PARH, +PARV REAL +PHI, +PLOG, +PR, +PSIG REAL +PSIH, +PSIPH, +PSIV, +Q REAL +QQ, +QU, +R1, +R11 REAL +R2, +R4, +R4C, +RA REAL +RAINE, +RAIN_MIN, +RATIO, +RB REAL +RETA, +RHAB, +RHI, +RIN REAL +RINFR, +RINTW, +RM1P, +RM2M REAL +RP1M, +RP2P, +RQ, +RVAB REAL +RZ, +RZERO, +S11, +S14 REAL +S22, +S23, +S2KEL, +SB REAL +SBZ, +SCB, +SCP, +SD REAL +SDEL, +SDELP, +SFAC, +SFAC2 REAL +SI2, +SI4, +SIG, +SIGMA REAL +SIGP, +SIS, +SL1, +SL2 REAL +SM1P, +SM2M, +SP1, +SP1M REAL +SP2, +SP2P, +SPH, +SPHI2 REAL +SPHIP2, +SPSI2, +SPSIPH, +SPSIPH2 REAL +SQRTWO, +SR, +SR5, +SRQ REAL +SRT, +SS, +SSP, +STHETA REAL +STK, +STS1, +STS4, +SUM0 REAL +SUM1, +SUM2, +SUMD, +SW2H REAL +SWB, +SWC, +SWL, +SWLH REAL +SWLH2, +SX1, +SX2, +T REAL +TA, +TB, +TCS, +TD REAL +TH, +THETAZ, +TIP, +TRAIN REAL +TS, +TS1, +TS2, +TSC REAL +TT, +TT1, +TT2, +TX(20,20) REAL +TX1, +TXS, +TY(20,20), +U1 REAL +U12, +U1G, +U2, +U2G REAL +U3, +U34, +U3G, +U4 REAL +U4G, +UZ, +V1, +V2 REAL +V3, +V4, +VI1, +VI1G REAL +VI1H, +VI2, +VI2G, +VI2H REAL +VI3, +VI3G, +VI3H, +VI4 REAL +VI4G, +VI4H, +VI5G, +VI5H REAL +VI6G, +VI6H, +VI7G, +VI7H REAL +VI8G, +VI8H, +VR1, +VR1G REAL +VR1H, +VR2, +VR2G, +VR2H REAL +VR3, +VR3G, +VR3H, +VR4 REAL +VR4G, +VR4H, +VR5G, +VR5H REAL +VR6G, +VR6H, +VR7G, +VR7H REAL +VR8G, +VR8H, +VRT, +VZ REAL +W1, +W1H1, +W1H2, +W2 REAL +W2H, +W2H1, +W2H2, +W3 REAL +W33, +W3H1, +W3H2, +W4 REAL +W4H, +W4H1, +W4H2, +W5 REAL +W6, +WAVE, +WB, +WC REAL +WH, +WK, +WL, +WLH REAL +X, +XH, +XINTR, +XK(20) REAL +XL, +XX, +Y1, +Y2 REAL +Y3, +Y4, +YI(20,20), +YR(20,20) REAL +YRN, +YZ, +Z1, +Z2 REAL +Z3, +Z4, +ZTS

Referenced Common Block Variables (+ indicates altered content)

CON REAL D2R, GAMA CON REAL PI, PI2 CON REAL PIO2, R2D CON REAL VOFL CUR INTEGER +KODE CUR REAL +DIJ, +EIL CUR REAL +HIJ HFMUFES_ONE COMPLEX ZS(20) HFMUFES_ONE INTEGER +NMX, +NO HFMUFES_ONE REAL +D1D(20), +ELL(20) MUT REAL +CFAC, +H2 MUT REAL R21, +RHI2 MUT REAL X21, +Y0 MUT REAL +Z0 WAITS REAL +HH(48), +XI(48)