MICROCERN/gauss64.F

   1 *
   2 * $Id$
   3 *
   4 #include "gen/pilot.h"
   5 #if defined(CERNLIB_DOUBLE)
   6       FUNCTION DGAUSS(F,A,B,EPS)
   7 #include "gen/imp64.inc"
   8
   9       CHARACTER NAME*(*)
  10       PARAMETER (NAME = 'DGAUSS')
  11 #include "gausscod.inc"
  12
  13    99 DGAUSS=H
  14       RETURN
  15       END
  16 #else
  17       SUBROUTINE DGAUSS_DUMMY
  18       END
  19 #endif