[u/mrichter/AliRoot.git] / MICROCERN / gauss64.F

*
* $Id$
*
#include "gen/pilot.h"
#if defined(CERNLIB_DOUBLE)
      FUNCTION DGAUSS(F,A,B,EPS)
#include "gen/imp64.inc"

      CHARACTER NAME*(*)
      PARAMETER (NAME = 'DGAUSS')
#include "gausscod.inc"

   99 DGAUSS=H
      RETURN
      END
#else
      SUBROUTINE DGAUSS_DUMMY
      END
#endif
Commit	Line	Data
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