1 files changed, 14 insertions, 0 deletions
diff --git a/libf2c/libF77/c_exp.c b/libf2c/libF77/c_exp.c
new file mode 100644
index 0000000..56a8695
--- /dev/null
+++ b/libf2c/libF77/c_exp.c
@@ -0,0 +1,14 @@
+#include "f2c.h"
+
+#undef abs
+#include "math.h"
+
+void
+c_exp (complex * r, complex * z)
+{
+  double expx, zi = z->i;
+
+  expx = exp (z->r);
+  r->r = expx * cos (zi);
+  r->i = expx * sin (zi);
+}