MICROCERN/gauss64.F

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