summaryrefslogtreecommitdiff
path: root/libf2c/libF77/pow_ci.c
diff options
context:
space:
mode:
Diffstat (limited to 'libf2c/libF77/pow_ci.c')
-rw-r--r--libf2c/libF77/pow_ci.c16
1 files changed, 0 insertions, 16 deletions
diff --git a/libf2c/libF77/pow_ci.c b/libf2c/libF77/pow_ci.c
deleted file mode 100644
index 1df3eb34b00..00000000000
--- a/libf2c/libF77/pow_ci.c
+++ /dev/null
@@ -1,16 +0,0 @@
-#include "f2c.h"
-
-extern void pow_zi (doublecomplex *, doublecomplex *, integer *);
-void
-pow_ci (complex * p, complex * a, integer * b) /* p = a**b */
-{
- doublecomplex p1, a1;
-
- a1.r = a->r;
- a1.i = a->i;
-
- pow_zi (&p1, &a1, b);
-
- p->r = p1.r;
- p->i = p1.i;
-}