COMPLEX FUNCTION CSZ1 ( X )

Argument Definitions (+ indicates altered content)
REAL               X
Description
COMPLEX FUNCTION CSZ1       (NEXT) 
 
    CSZ1 - EVALUATES THE COSINE-INTEGRAL AND SINE-INTEGRAL FUNCTIONS. 
    SEE THE REFERENCES IN SUBROUTINE GAIN AND THOSE GIVEN BELOW.
Source file:csz1.f
Intrinsic Functions Called
COMPLEX            CMPLX,      CONJG
DOUBLE PRECISION   DABS
REAL               ALOG,       CABS
GENERIC            ABS,        COS,        MOD,        SIN
Local Variables (+ indicates altered content)
COMPLEX           +A,         +AM1,       +AM2,       +B
COMPLEX           +BM1,       +BM2,       +SA
INTEGER           +K
REAL              +CI,        +EN,        +P,         +SI
REAL*8            +T,         +TESTQ,     +TM1
REAL              +TN,        +X2
Referenced Common Block Variables (+ indicates altered content)
CON                REAL               GAMA,      PIO2