SUBROUTINE ZMUT ( ZSUM )
Argument Definitions (+ indicates altered content)
COMPLEX           +ZSUM
Description
SUBROUTINE ZMUT             (NEXT) 
 
    ZMUT - CALCULATES THE SELF-IMPEDANCE AND MUTUAL-IMPEDANCE 
       BETWEEN LINEAR PARALLEL DIPOLE ELEMENTS OF EQUAL LENGTHS. 
    SEE THE REFERENCES IN SUBROUTINE GAIN.
Source file:zmut.f
Intrinsic Functions Called
COMPLEX            CMPLX
GENERIC            COS,        SIN,        SQRT
External Functions and Subroutines Called
COMPLEX            CSZ1
Local Variables (+ indicates altered content)
COMPLEX           +CSU1,      +CSUZP,     +CSV1
REAL              +CW1,       +D2,        +EL2,       +SW1
REAL              +T,         +U1,        +UZ,        +UZP
REAL              +V1,        +VZ,        +W1
Referenced Common Block Variables (+ indicates altered content)
CON                REAL               PI2
CUR                INTEGER            KODE
CUR                REAL               DIJ,       EIL