diff options
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 |