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