MICROCERN/gauss.F

   1 *
   2 * $Id$
   3 *
   4 #include "gen/pilot.h"
   5 C This will be GAUSS,IF=DOUBLE and GAUSS64,IF=-DOUBLE.
   6       FUNCTION GAUSS(F,A,B,EPS)
   7
   8       CHARACTER NAME*(*)
   9       PARAMETER (NAME = 'GAUSS')
  10 #include "gausscod.inc"
  11    99 GAUSS=H
  12       RETURN
  13       END