5 * Revision 1.1.1.1 1996/04/01 15:02:07 mclareni
10 #if defined(CERNLIB_DOUBLE)
12 C IMPLICIT DOUBLE PRECISION (D)
13 #include "gen/def64.inc"
14 + D,DBSIR3,DBLE,DBSKR3,DEBIR3,DEBKR3
16 SROUND(D)=D+(D-SNGL(D))
17 BSIR3=SROUND(DBSIR3(DBLE(X),NU))
21 BSKR3=SROUND(DBSKR3(DBLE(X),NU))
25 EBSIR3=SROUND(DEBIR3(DBLE(X),NU))
29 EBSKR3=SROUND(DEBKR3(DBLE(X),NU))