home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / f2csrc.zip / f2csrc / libF77 / pow_ci.c < prev    next >
C/C++ Source or Header  |  1994-07-28  |  365b  |  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.