Merging the VirtualMC branch to the main development branch (HEAD)
[u/mrichter/AliRoot.git] / MICROCERN / gauss.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.2.1  2002/07/11 17:14:48  alibrary
6 * Adding MICROCERN
7 *
8 * Revision 1.1.1.1  1999/05/18 15:55:34  fca
9 * AliRoot sources
10 *
11 * Revision 1.1.1.1  1996/04/01 15:02:13  mclareni
12 * Mathlib gen
13 *
14 *
15 #include "gen/pilot.h"
16 C This will be GAUSS,IF=DOUBLE and GAUSS64,IF=-DOUBLE.
17       FUNCTION GAUSS(F,A,B,EPS)
18
19       CHARACTER NAME*(*)
20       PARAMETER (NAME = 'GAUSS')
21 #include "gausscod.inc"
22    99 GAUSS=H
23       RETURN
24       END