MICROCERN/gauss64.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.2.1  2002/08/29 13:47:41  alibrary
   6 * Adding missing routines
   7 *
   8 * Revision 1.2  2002/07/26 15:33:28  hristov
   9 * Dummy subroutines needed by Sun CC5.2
  10 *
  11 * Revision 1.1.1.1  1999/05/18 15:55:34  fca
  12 * AliRoot sources
  13 *
  14 * Revision 1.1.1.1  1996/04/01 15:02:13  mclareni
  15 * Mathlib gen
  16 *
  17 *
  18 #include "gen/pilot.h"
  19 #if defined(CERNLIB_DOUBLE)
  20       FUNCTION DGAUSS(F,A,B,EPS)
  21 #include "gen/imp64.inc"
  22
  23       CHARACTER NAME*(*)
  24       PARAMETER (NAME = 'DGAUSS')
  25 #include "gausscod.inc"
  26
  27    99 DGAUSS=H
  28       RETURN
  29       END
  30 #else
  31       SUBROUTINE DGAUSS_DUMMY
  32       END
  33 #endif