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

*
* $Id$
*
#include "gen/pilot.h"
C This will be GAUSS,IF=DOUBLE and GAUSS64,IF=-DOUBLE.
      FUNCTION GAUSS(F,A,B,EPS)

      CHARACTER NAME*(*)
      PARAMETER (NAME = 'GAUSS')
#include "gausscod.inc"
   99 GAUSS=H
      RETURN
      END
Commit	Line	Data
	1	*
	2	* $Id$
	3	*
	4	#include "gen/pilot.h"
	5	C This will be GAUSS,IF=DOUBLE and GAUSS64,IF=-DOUBLE.
	6	FUNCTION GAUSS(F,A,B,EPS)
	7
	8	CHARACTER NAME()
	9	PARAMETER (NAME = 'GAUSS')
	10	#include "gausscod.inc"
	11	99 GAUSS=H
	12	RETURN
	13	END