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

*
* $Id$
*
* $Log$
* Revision 1.1.2.1  2002/08/29 13:47:41  alibrary
* Adding missing routines
*
* Revision 1.2  2002/07/26 15:33:28  hristov
* Dummy subroutines needed by Sun CC5.2
*
* Revision 1.1.1.1  1999/05/18 15:55:34  fca
* AliRoot sources
*
* Revision 1.1.1.1  1996/04/01 15:02:13  mclareni
* Mathlib gen
*
*
#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	*
	4	* $Log$
b9d0a01d	5	* Revision 1.1.2.1 2002/08/29 13:47:41 alibrary
	6	* Adding missing routines
	7	*
	8	* Revision 1.2 2002/07/26 15:33:28 hristov
	9	* Dummy subroutines needed by Sun CC5.2
	10	*
b05de456	11	* Revision 1.1.1.1 1999/05/18 15:55:34 fca
	12	* AliRoot sources
	13	*
fe4da5cc	14	* Revision 1.1.1.1 1996/04/01 15:02:13 mclareni
	15	* Mathlib gen
	16	*
	17	*
	18	#include "gen/pilot.h"
	19	#if defined(CERNLIB_DOUBLE)
	20	FUNCTION DGAUSS(F,A,B,EPS)
	21	#include "gen/imp64.inc"
	22
	23	CHARACTER NAME()
	24	PARAMETER (NAME = 'DGAUSS')
	25	#include "gausscod.inc"
	26
	27	99 DGAUSS=H
	28	RETURN
	29	END
b05de456	30	#else
	31	SUBROUTINE DGAUSS_DUMMY
	32	END
fe4da5cc	33	#endif