This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / c / rstrh0.F
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