home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTRAN / F2C_SRC.ZIP / F2C / LIBF77 / POW_CI.C < prev    next >
Encoding:
C/C++ Source or Header  |  1991-06-10  |  202 b   |  17 lines
  1. #include "f2c.h"
  2.  
  3. VOID pow_ci(p, a, b)     /* p = a**b  */
  4. complex *p, *a;
  5. integer *b;
  6. {
  7. doublecomplex p1, a1;
  8.  
  9. a1.r = a->r;
  10. a1.i = a->i;
  11.  
  12. pow_zi(&p1, &a1, b);
  13.  
  14. p->r = p1.r;
  15. p->i = p1.i;
  16. }
  17.