Community Company Search Contact

pow_ii.cpp from Oscill8 at Krugle

Show pow_ii.cpp syntax highlighted

#include "auto_f2c.h"

#ifdef KR_headers
integer pow_ii(ap, bp) integer ap, bp;
#else
integer pow_ii(integer ap, integer bp)
#endif
{
  integer pow, x, n;
  unsigned long u;
  
  x = ap;
  n = bp;
  
  if (n <= 0) {
    if (n == 0 || x == 1)
      return 1;
    if (x != -1)
      return x == 0 ? 1/x : 0;
    n = -n;
  }
  u = n;
  for(pow = 1; ; )
    {
      if(u & 01)
	pow *= x;
      if(u >>= 1)
	x *= x;
      else
	break;
    }
  return(pow);
}

See more files for this project here

Oscill8

Oscill8 is a suite of tools for analyzing dynamical systems which concentrates on understanding how the dynamical behavior depends on the parameters using bifurcation theory and reaction network theory.

Project homepage: http://sourceforge.net/projects/oscill8
Programming language(s): C,C#,C++
License: other

  cabs.cpp
  d_imag.cpp
  d_lg10.cpp
  d_sign.cpp
  i_dnnt.cpp
  i_nint.cpp
  pow_dd.cpp
  pow_di.cpp
  pow_ii.cpp
  r_lg10.cpp
  z_abs.cpp
  z_exp.cpp
  z_log.cpp