summaryrefslogtreecommitdiff
path: root/contrib/libf2c/libF77/c_exp.c
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/libf2c/libF77/c_exp.c')
-rw-r--r--contrib/libf2c/libF77/c_exp.c19
1 files changed, 0 insertions, 19 deletions
diff --git a/contrib/libf2c/libF77/c_exp.c b/contrib/libf2c/libF77/c_exp.c
deleted file mode 100644
index 52d0d2ffc95c..000000000000
--- a/contrib/libf2c/libF77/c_exp.c
+++ /dev/null
@@ -1,19 +0,0 @@
-#include "f2c.h"
-
-#ifdef KR_headers
-extern double exp(), cos(), sin();
-
- VOID c_exp(r, z) complex *r, *z;
-#else
-#undef abs
-#include "math.h"
-
-void c_exp(complex *r, complex *z)
-#endif
-{
- double expx, zi = z->i;
-
- expx = exp(z->r);
- r->r = expx * cos(zi);
- r->i = expx * sin(zi);
- }