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)