5 * Revision 1.1.1.1 1996/04/01 15:02:29 mclareni
10 #if !defined(CERNLIB_DOUBLE)
11 FUNCTION CHSUM(MODE,C,N,X)
13 #if defined(CERNLIB_DOUBLE)
14 FUNCTION DCHSUM(MODE,C,N,X)
16 #include "gen/imp64.inc"
23 ELSE IF(MODE .EQ. 2) THEN
27 ELSE IF(MODE .EQ. 3) THEN
31 ELSE IF(MODE .EQ. 4) THEN
44 #if !defined(CERNLIB_DOUBLE)
47 #if defined(CERNLIB_DOUBLE)