summaryrefslogtreecommitdiff
path: root/Build/source/utils/pmx/pmx-2.6.18/libf2c/pow_ri.c
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2013-01-18 08:05:40 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2013-01-18 08:05:40 +0000
commit1edf6b64eb5ea6b65099076e92bccb6a90d2d88b (patch)
treed48cc72a02cb4ee2c9203876e21a15acaacc12cd /Build/source/utils/pmx/pmx-2.6.18/libf2c/pow_ri.c
parent8118b1b3be31a537d3c5f622f817a75a10c27741 (diff)
pmx 2.6.19
git-svn-id: svn://tug.org/texlive/trunk@28860 c570f23f-e606-0410-a88d-b1316a301751
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