4 double sqrt(), f__cabs();
5 VOID z_sqrt(resx, z) doublecomplex *resx, *z;
9 extern double f__cabs(double, double);
10 void z_sqrt(doublecomplex *resx, doublecomplex *z)
16 if( (mag = f__cabs(z->r, z->i)) == 0.)
20 res.r = sqrt(0.5 * (mag + z->r) );
21 res.i = z->i / res.r / 2;
25 res.i = sqrt(0.5 * (mag - z->r) );
28 res.r = z->i / res.i / 2;