SUBROUTINE SIM ( )
Description
SUBROUTINE SIM              (NEXT) 
 
    SIM - CALCULATES THE MUTUAL IMPEDANCE BETWEEN LINEAR PARALLEL 
       DIPOLE ELEMENTS OF UNEQUAL LENGTHS. 
    SEE THE REFERENCES IN SUBROUTINE GAIN.
Source file:sim.f
Intrinsic Functions Called
COMPLEX            CMPLX
GENERIC            COS,        SIN,        SQRT
External Functions and Subroutines Called
COMPLEX            CSZ1
Local Variables (+ indicates altered content)
INTEGER           +J
REAL              +CW1,       +CW2,       +DJJ,       +DJS
REAL              +HD,        +HS,        +SW1,       +SW2
REAL              +TT,        +U1,        +U2,        +UZ
REAL              +UZP,       +V1,        +V2,        +VZ
REAL              +VZP
Referenced Common Block Variables (+ indicates altered content)
HFMUFES_ONE        COMPLEX           +ZS(20)
HFMUFES_ONE        INTEGER            NMX,       NO
HFMUFES_ONE        REAL               D1D(20),   ELL(20)