home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / libF77 / pow_ci.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-01-10  |  207 b   |  17 lines
  1. #include "complex"
  2.  
  3. pow_ci(p, a, b)     /* p = a**b  */
  4. complex *p, *a;
  5. long int *b;
  6. {
  7. dcomplex p1, a1;
  8.  
  9. a1.dreal = a->real;
  10. a1.dimag = a->imag;
  11.  
  12. pow_zi(&p1, &a1, b);
  13.  
  14. p->real = p1.dreal;
  15. p->imag = p1.dimag;
  16. }
  17.