home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 November / macformat-018.iso / Utility Spectacular / Developer / Mac F2C 1.0 / Mac F2C Libraries / libF77 Sources / pow_ii.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-16  |  395 b   |  32 lines  |  [TEXT/KAHL]
  1. #include "f2c.h"
  2.  
  3. #ifdef KR_headers
  4. integer pow_ii(ap, bp) integer *ap, *bp;
  5. #else
  6. integer pow_ii(integer *ap, integer *bp)
  7. #endif
  8. {
  9.     integer pow, x, n;
  10.  
  11.     x = *ap;
  12.     n = *bp;
  13.  
  14.     if (n <= 0) {
  15.         if (n == 0 || x == 1)
  16.             return 1;
  17.         if (x != -1)
  18.             return x == 0 ? 1/x : 0;
  19.         n = -n;
  20.         }
  21.     for(pow = 1; ; )
  22.         {
  23.         if(n & 01)
  24.             pow *= x;
  25.         if(n >>= 1)
  26.             x *= x;
  27.         else
  28.             break;
  29.         }
  30.     return(pow);
  31.     }
  32.