home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / fortran / libf2c-0.000 / libf2c-0 / libf2c / libF77 / pow_ci.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-03-20  |  345 b   |  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.