diff options
| author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2013-01-18 08:05:40 +0000 |
|---|---|---|
| committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2013-01-18 08:05:40 +0000 |
| commit | 1edf6b64eb5ea6b65099076e92bccb6a90d2d88b (patch) | |
| tree | d48cc72a02cb4ee2c9203876e21a15acaacc12cd /Build/source/utils/pmx/pmx-2.6.18/libf2c/pow_ri.c | |
| parent | 8118b1b3be31a537d3c5f622f817a75a10c27741 (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.c | 41 |
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 |