04-mar-2004 NvE Functionality of AliObjMatrix extended to provide the number of refer...
[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