SUBROUTINE CISI ( X, CI, SI )

Argument Definitions (+ indicates altered content)
REAL              +CI,        +SI,         X
Description
 cisi.f 
 
 
X 
CI IS COSINE INTEGRAL OF X 
SI IS SINE   INTEGRAL OF X
Source file:cisi.f
Intrinsic Functions Called
REAL               ALOG
GENERIC            ABS,        COS,        SIN
Local Variables (+ indicates altered content)
REAL              +F,         +G,         +S,         +SQ
REAL              +T,         +TERM,      +X2