5 * Revision 1.1.1.1 1996/04/01 15:02:13 mclareni
10 C This will be SIMPS,IF=DOUBLE and SIMPS64,IF=-DOUBLE
11 FUNCTION SIMPS(F,A,B,N2)
15 PARAMETER (NAME = 'SIMPS')
16 #include "simpscod.inc"
19 101 FORMAT('NON-POSITIVE OR EVEN NUMBER OF FUNCTION VALUES =',I6)