Lines Matching refs:r
77 double x, y, r, t, scale; in csqrt() local
86 r = fabs(x); in csqrt()
87 r = sqrt(r); in csqrt()
89 w = 0.0 + r * (double complex) I; in csqrt()
91 w = r + y * (double complex) I; in csqrt()
97 r = fabs(y); in csqrt()
98 r = sqrt(0.5 * r); in csqrt()
100 w = r + r * (double complex) I; in csqrt()
102 w = r - r * (double complex) I; in csqrt()
122 r = cabs(w); in csqrt()
124 t = sqrt(0.5 * r + 0.5 * x); in csqrt()
125 r = scale * fabs((0.5 * y) / t ); in csqrt()
128 r = sqrt(0.5 * r - 0.5 * x); in csqrt()
129 t = scale * fabs((0.5 * y) / r); in csqrt()
130 r *= scale; in csqrt()
133 w = t - r * (double complex) I; in csqrt()
135 w = t + r * (double complex) I; in csqrt()