1*10510Sdlw /* 2*10510Sdlw * "@(#)pow_ci.c 1.1" 3*10510Sdlw */ 4*10510Sdlw 5*10510Sdlw #include "complex" 6*10510Sdlw 7*10510Sdlw pow_ci(p, a, b) /* p = a**b */ 8*10510Sdlw complex *p, *a; 9*10510Sdlw long int *b; 10*10510Sdlw { 11*10510Sdlw dcomplex p1, a1; 12*10510Sdlw 13*10510Sdlw a1.dreal = a->real; 14*10510Sdlw a1.dimag = a->imag; 15*10510Sdlw 16*10510Sdlw pow_zi(&p1, &a1, b); 17*10510Sdlw 18*10510Sdlw p->real = p1.dreal; 19*10510Sdlw p->imag = p1.dimag; 20*10510Sdlw } 21