REAL FUNCTION RESIST ( S )

Argument Definitions (+ indicates altered content)
REAL               S
Description
FUNCTION RESIST             (NEXT) 
 
    RESIST - PARAMETERS FOR THE MUTUAL RESISTANCE EVALUATION BY 
       GAUSSIAN INTEGRATION. 
    CALLED BY AGAUSS (BY DIRECTION OF MUTUAL) TO EVALUATE INTEGRAND 
    SEE REFERENCES IN SUBROUTINE GAIN
Source file:resist.f
Intrinsic Functions Called
GENERIC            ABS,        SIN,        SQRT
Local Variables (+ indicates altered content)
REAL              +CA,        +CA1,       +CA2,       +FACR
REAL              +R,         +R1,        +R2,        +RHO2
REAL              +SR,        +SR1,       +SR2,       +SY
REAL              +SZ,        +TERM
Referenced Common Block Variables (+ indicates altered content)
CON                REAL               PI2
MUT                REAL               CFAC,      CT
MUT                REAL               H2,        PROD1
MUT                REAL               Y0,        Z0