extern complex w_c(complex *);