Process codes corrected/completed.
[u/mrichter/AliRoot.git] / MICROCERN / gauss64.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
fe4da5cc 4#include "gen/pilot.h"
5#if defined(CERNLIB_DOUBLE)
6 FUNCTION DGAUSS(F,A,B,EPS)
7#include "gen/imp64.inc"
8
9 CHARACTER NAME*(*)
10 PARAMETER (NAME = 'DGAUSS')
11#include "gausscod.inc"
12
13 99 DGAUSS=H
14 RETURN
15 END
b05de456 16#else
17 SUBROUTINE DGAUSS_DUMMY
18 END
fe4da5cc 19#endif