42 	double a, b, rx, ry, scale, t;  in csqrt()  local
73 	/* Scale to avoid overflow. */  in csqrt()
76 		 * Don't scale a or b if this might give (spurious)  in csqrt()
84 		scale = 2;  in csqrt()
86 		scale = 1;  in csqrt()
89 	/* Scale to reduce inaccuracies when both components are denormal. */  in csqrt()
93 		scale = 0x1p-27;  in csqrt()
99 		rx = scale * t;  in csqrt()
100 		ry = scale * b / (2 * t);  in csqrt()
103 		rx = scale * fabs(b) / (2 * t);  in csqrt()
104 		ry = copysign(scale * t, b);  in csqrt()