home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / f2c / f77lib / pow_ci.c < prev    next >
C/C++ Source or Header  |  2000-06-22  |  345b  |  21 lines

  1. #include "f2c.h"
  2.  
  3. #ifdef KR_headers
  4. VOID pow_ci(p, a, b)     /* p = a**b  */
  5.  complex *p, *a; integer *b;
  6. #else
  7. extern void pow_zi(doublecomplex*, doublecomplex*, integer*);
  8. void pow_ci(complex *p, complex *a, integer *b)     /* p = a**b  */
  9. #endif
  10. {
  11. doublecomplex p1, a1;
  12.  
  13. a1.r = a->r;
  14. a1.i = a->i;
  15.  
  16. pow_zi(&p1, &a1, b);
  17.  
  18. p->r = p1.r;
  19. p->i = p1.i;
  20. }
  21.