5 * Revision 1.1.1.1 1996/04/01 15:02:11 mclareni
10 #if defined(CERNLIB_DOUBLE)
11 FUNCTION CELINT(Z,AKC,A,B)
17 SROUND(D)=D+(D-SNGL(D))
18 W=WELINT(DCMPLX(DBLE(REAL(Z)),DBLE(AIMAG(Z))),DBLE(AKC),DBLE(A),
20 CELINT=CMPLX(SROUND(DREAL(W)),SROUND(DIMAG(W)))