CMake: Retrieve Git information
[u/mrichter/AliRoot.git] / MICROCERN / gauss64.F
1 *
2 * $Id$
3 *
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
16 #else
17       SUBROUTINE DGAUSS_DUMMY
18       END
19 #endif