summaryrefslogtreecommitdiff
path: root/Build/source/utils/pmx/pmx-src/libf2c/pow_qq.c
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/utils/pmx/pmx-src/libf2c/pow_qq.c')
-rw-r--r--Build/source/utils/pmx/pmx-src/libf2c/pow_qq.c39
1 files changed, 39 insertions, 0 deletions
diff --git a/Build/source/utils/pmx/pmx-src/libf2c/pow_qq.c b/Build/source/utils/pmx/pmx-src/libf2c/pow_qq.c
new file mode 100644
index 00000000000..09fe18ec8e7
--- /dev/null
+++ b/Build/source/utils/pmx/pmx-src/libf2c/pow_qq.c
@@ -0,0 +1,39 @@
+#include "f2c.h"
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+#ifdef KR_headers
+longint pow_qq(ap, bp) longint *ap, *bp;
+#else
+longint pow_qq(longint *ap, longint *bp)
+#endif
+{
+ longint pow, x, n;
+ unsigned long long u; /* system-dependent */
+
+ x = *ap;
+ n = *bp;
+
+ if (n <= 0) {
+ if (n == 0 || x == 1)
+ return 1;
+ if (x != -1)
+ return x == 0 ? 1/x : 0;
+ n = -n;
+ }
+ u = n;
+ for(pow = 1; ; )
+ {
+ if(u & 01)
+ pow *= x;
+ if(u >>= 1)
+ x *= x;
+ else
+ break;
+ }
+ return(pow);
+ }
+#ifdef __cplusplus
+}
+#endif