2004-07-15 Toon Moene <toon@moene.indiv.nluug.nl>

[pf3gnuchains/gcc-fork.git] / libf2c / libF77 / h_dnnt.c

diff --git a/libf2c/libF77/h_dnnt.c b/libf2c/libF77/h_dnnt.c
deleted file mode 100644 (file)
index 46c83bb..0000000
--- a/libf2c/libF77/h_dnnt.c
+++ /dev/null
@@ -1,9 +0,0 @@
-#include "f2c.h"
-
-#undef abs
-#include <math.h>
-shortint
-h_dnnt (doublereal * x)
-{
-  return (shortint) (*x >= 0. ? floor (*x + .5) : -floor (.5 - *x));
-}