Argument Definitions (+ indicates altered content) COMPLEX +ZSUM
Description SUBROUTINE ECH (NEXT) ECH - CALCULATES THE MUTUAL IMPEDANCE BETWEEN LINEAR DIPOLE ELEMENTS IN ECHELON OF EQUAL LENGTHS. SEE THE REFERENCES IN SUBROUTINES GAIN AND COLL.
Source file: ech.f
Intrinsic Functions Called COMPLEX CMPLX, CONJG GENERIC COS, SIN, SQRT
External Functions and Subroutines Called COMPLEX CSZ1
Local Variables (+ indicates altered content) COMPLEX +CSU1, +CSU2, +CSUZP, +CSV1 COMPLEX +CSV2, +CSVZP, +ZE REAL +D2, +HML, +HPL, +T REAL +TS, +U1, +U2, +U4 REAL +UZ, +UZP, +V1, +V2 REAL +V4, +VZ, +VZP
Referenced Common Block Variables (+ indicates altered content) CON REAL PI2 CUR INTEGER KODE CUR REAL DIJ, EIL CUR REAL HIJ