fe4da5cc |
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 FERDR(X,K) |
12 | SROUND(D)=D+(D-SNGL(D)) |
13 | |
14 | FERDR=SROUND(DFERDR(DBLE(X),K)) |
15 | RETURN |
16 | |
17 | END |
18 | #endif |