SUBROUTINE MUTUAL ( )
Description
SUBROUTINE MUTUAL           (NEXT) 
 
    MUTUAL - CALCULATES THE MUTUAL IMPEDANCE BETWEEN ARBITRARY 
       ORIENTED LINEAR DIPOLE ELEMENTS BY GAUSSIAN INTEGRATION. 
    SEE THE REFERENCES IN SUBROUTINE GAIN FOR DETAILS
Source file:mutual.f
Intrinsic Functions Called
GENERIC            COS,        SIN
External Functions and Subroutines Called
REAL               AGAUSS
SUBROUTINE         REACT,      RESIST
Local Variables (+ indicates altered content)
REAL              +XCON
Referenced Common Block Variables (+ indicates altered content)
CON                REAL               VOFL
MUT                REAL              +CT,        H2
MUT                REAL              +PROD1,    +R21
MUT                REAL               RHI2,     +X21
MUT                REAL               Y0