Merging the VirtualMC branch to the main development branch (HEAD)
[u/mrichter/AliRoot.git] / 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