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

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

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

      RSTRH0=SROUND(DSTRH0(DBLE(X)))
      RETURN

      ENTRY STRH0(X)
      STRH0=SROUND(DSTRH0(DBLE(X)))
      RETURN

      ENTRY RSTRH1(X)

      RSTRH1=SROUND(DSTRH1(DBLE(X)))
      RETURN

      ENTRY STRH1(X)

      STRH1=SROUND(DSTRH1(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:08 mclareni
	6	* Mathlib gen
	7	*
	8	*
	9	#include "gen/pilot.h"
	10	#if defined(CERNLIB_DOUBLE)
	11	FUNCTION RSTRH0(X)
	12	#include "gen/def64.inc"
	13	+ DSTRH0,DSTRH1,D
	14
	15	SROUND(D)=D+(D-SNGL(D))
	16
	17	RSTRH0=SROUND(DSTRH0(DBLE(X)))
	18	RETURN
	19
	20	ENTRY STRH0(X)
	21	STRH0=SROUND(DSTRH0(DBLE(X)))
	22	RETURN
	23
	24	ENTRY RSTRH1(X)
	25
	26	RSTRH1=SROUND(DSTRH1(DBLE(X)))
	27	RETURN
	28
	29	ENTRY STRH1(X)
	30
	31	STRH1=SROUND(DSTRH1(DBLE(X)))
	32	RETURN
	33
	34	END
	35	#endif