Merging the VirtualMC branch to the main development branch (HEAD)
[u/mrichter/AliRoot.git] / MICROCERN / gauss.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
b9d0a01d 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*
fe4da5cc 11* Revision 1.1.1.1 1996/04/01 15:02:13 mclareni
12* Mathlib gen
13*
14*
15#include "gen/pilot.h"
16C 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