summaryrefslogtreecommitdiffstats
path: root/lib/libF77/z_abs.c
diff options
context:
space:
mode:
Diffstat (limited to 'lib/libF77/z_abs.c')
-rw-r--r--lib/libF77/z_abs.c12
1 files changed, 0 insertions, 12 deletions
diff --git a/lib/libF77/z_abs.c b/lib/libF77/z_abs.c
deleted file mode 100644
index 7e67ad2..0000000
--- a/lib/libF77/z_abs.c
+++ /dev/null
@@ -1,12 +0,0 @@
-#include "f2c.h"
-
-#ifdef KR_headers
-double f__cabs();
-double z_abs(z) doublecomplex *z;
-#else
-double f__cabs(double, double);
-double z_abs(doublecomplex *z)
-#endif
-{
-return( f__cabs( z->r, z->i ) );
-}
OpenPOWER on IntegriCloud