This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / c / rfrsin.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1996/04/01 15:02:02  mclareni
6 * Mathlib gen
7 *
8 *
9 #include "gen/pilot.h"
10 #if defined(CERNLIB_DOUBLE)
11       FUNCTION RFRSIN(X)
12 #include "gen/def64.inc"
13      +    DFRSIN,DFRCOS,D
14
15       SROUND(D)=D+(D-SNGL(D))
16
17       RFRSIN=SROUND(DFRSIN(DBLE(X)))
18       RETURN
19
20       ENTRY FRSIN(X)
21       FRSIN=SROUND(DFRSIN(DBLE(X)))
22       RETURN
23
24       ENTRY RFRCOS(X)
25       RFRCOS=SROUND(DFRCOS(DBLE(X)))
26       RETURN
27
28       ENTRY FRCOS(X)
29       FRCOS=SROUND(DFRCOS(DBLE(X)))
30       RETURN
31
32       END
33 #endif