summaryrefslogtreecommitdiff
path: root/Build/source/utils/pmx/pmx-2.6.18/libf2c/pow_ri.c
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/utils/pmx/pmx-2.6.18/libf2c/pow_ri.c')
-rw-r--r--Build/source/utils/pmx/pmx-2.6.18/libf2c/pow_ri.c41
1 files changed, 0 insertions, 41 deletions
diff --git a/Build/source/utils/pmx/pmx-2.6.18/libf2c/pow_ri.c b/Build/source/utils/pmx/pmx-2.6.18/libf2c/pow_ri.c
deleted file mode 100644
index e29d416eba2..00000000000
--- a/Build/source/utils/pmx/pmx-2.6.18/libf2c/pow_ri.c
+++ /dev/null
@@ -1,41 +0,0 @@
-#include "f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-double pow_ri(ap, bp) real *ap; integer *bp;
-#else
-double pow_ri(real *ap, integer *bp)
-#endif
-{
-double pow, x;
-integer n;
-unsigned long u;
-
-pow = 1;
-x = *ap;
-n = *bp;
-
-if(n != 0)
- {
- if(n < 0)
- {
- n = -n;
- x = 1/x;
- }
- for(u = n; ; )
- {
- if(u & 01)
- pow *= x;
- if(u >>= 1)
- x *= x;
- else
- break;
- }
- }
-return(pow);
-}
-#ifdef __cplusplus
-}
-#endif