[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / c / rdawsn.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/04/01 15:02:07  mclareni
* Mathlib gen
*
*
#include "gen/pilot.h"
#if defined(CERNLIB_DOUBLE)
      FUNCTION RDAWSN(X)
#include "gen/def64.inc"
     +      DDAWSN,D

      SROUND(D)=D+(D-SNGL(D))

      RDAWSN=SROUND(DDAWSN(DBLE(X)))
      RETURN

      ENTRY DAWSON(X)
      DAWSON=SROUND(DDAWSN(DBLE(X)))
      RETURN
      END
#endif
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/04/01 15:02:07 mclareni
	6	* Mathlib gen
	7	*
	8	*
	9	#include "gen/pilot.h"
	10	#if defined(CERNLIB_DOUBLE)
	11	FUNCTION RDAWSN(X)
	12	#include "gen/def64.inc"
	13	+ DDAWSN,D
	14
	15	SROUND(D)=D+(D-SNGL(D))
	16
	17	RDAWSN=SROUND(DDAWSN(DBLE(X)))
	18	RETURN
	19
	20	ENTRY DAWSON(X)
	21	DAWSON=SROUND(DDAWSN(DBLE(X)))
	22	RETURN
	23	END
	24	#endif