This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / d / gauss64.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.1 1996/04/01 15:02:13 mclareni
6* Mathlib gen
7*
8*
9#include "gen/pilot.h"
10#if defined(CERNLIB_DOUBLE)
11 FUNCTION DGAUSS(F,A,B,EPS)
12#include "gen/imp64.inc"
13
14 CHARACTER NAME*(*)
15 PARAMETER (NAME = 'DGAUSS')
16#include "gausscod.inc"
17
18 99 DGAUSS=H
19 RETURN
20 END
21#endif