Merge branch 'master' of https://git.cern.ch/reps/AliRoot
[u/mrichter/AliRoot.git] / MICROCERN / gauss.F
1 *
2 * $Id$
3 *
4 #include "gen/pilot.h"
5 C This will be GAUSS,IF=DOUBLE and GAUSS64,IF=-DOUBLE.
6       FUNCTION GAUSS(F,A,B,EPS)
7
8       CHARACTER NAME*(*)
9       PARAMETER (NAME = 'GAUSS')
10 #include "gausscod.inc"
11    99 GAUSS=H
12       RETURN
13       END