5 * Revision 1.1.1.1 1996/04/01 15:02:13 mclareni
10 #if defined(CERNLIB_DOUBLE)
11 FUNCTION DSIMPS(F,A,B,N2)
12 #include "gen/imp64.inc"
16 PARAMETER (NAME = 'DSIMPS')
17 #include "simpscod.inc"
21 101 FORMAT('NON-POSITIVE OR EVEN NUMBER OF FUNCTION VALUES =',I6)