diff options
Diffstat (limited to 'gcc/f/runtime/libF77/h_dnnt.c')
-rw-r--r-- | gcc/f/runtime/libF77/h_dnnt.c | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/gcc/f/runtime/libF77/h_dnnt.c b/gcc/f/runtime/libF77/h_dnnt.c new file mode 100644 index 00000000000..9d0aa25f1d3 --- /dev/null +++ b/gcc/f/runtime/libF77/h_dnnt.c @@ -0,0 +1,14 @@ +#include "f2c.h" + +#ifdef KR_headers +double floor(); +shortint h_dnnt(x) doublereal *x; +#else +#undef abs +#include <math.h> +shortint h_dnnt(doublereal *x) +#endif +{ +return( (*x)>=0 ? + floor(*x + .5) : -floor(.5 - *x) ); +} |