SUBROUTINE ECH ( ZSUM )

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