* Copyright (c) 1980 The Regents of the University of California.
* %sccs.include.proprietary.c%
static char sccsid
[] = "@(#)pow_ci.c 5.4 (Berkeley) %G%";
t = (A).real * (B).real - (A).imag * (B).imag,\
(A).imag = (A).real * (B).imag + (A).imag * (B).real,\
(A).real = t /* A *= B */
pow_ci(p
, a
, b
) /* p = a**b */
p
->real
= (float)1, p
->imag
= (float)0;
for (*p
= x
; --n
> 0; C_MULEQ(*p
, x
))
pow_ci(p
, a
, b
) /* p = a**b */