summaryrefslogtreecommitdiffstats
path: root/libf2c/libF77/r_int.c
diff options
context:
space:
mode:
authorpeter <peter@FreeBSD.org>2008-06-01 00:03:21 +0000
committerpeter <peter@FreeBSD.org>2008-06-01 00:03:21 +0000
commita2be5f0c15218b0177d73b17d9bcb7589965d685 (patch)
treec9f0cd9c22378356a1716d32e13e70bc90f98b9c /libf2c/libF77/r_int.c
parent9e0f3cc19c9df1594c9cc36cfd8fddc83c52ad12 (diff)
downloadFreeBSD-src-a2be5f0c15218b0177d73b17d9bcb7589965d685.zip
FreeBSD-src-a2be5f0c15218b0177d73b17d9bcb7589965d685.tar.gz
Reorganize the gcc vendor import work area. This flattens out a bunch
of unnecessary path components that are relics of cvs2svn. (These are directory moves)
Diffstat (limited to 'libf2c/libF77/r_int.c')
-rw-r--r--libf2c/libF77/r_int.c9
1 files changed, 9 insertions, 0 deletions
diff --git a/libf2c/libF77/r_int.c b/libf2c/libF77/r_int.c
new file mode 100644
index 0000000..3c1b28e
--- /dev/null
+++ b/libf2c/libF77/r_int.c
@@ -0,0 +1,9 @@
+#include "f2c.h"
+
+#undef abs
+#include <math.h>
+double
+r_int (real * x)
+{
+ return ((*x > 0) ? floor (*x) : -floor (-*x));
+}
OpenPOWER on IntegriCloud