Lines Matching defs:q1
437 double x, z, s, c, ss, cc, r, t, p1, q1;
458 q1 = three8 / x;
466 q1 = ((qr0[0] + z * (qr0[1] + z * (qr0[2] + z *
471 t = isqrtpi * (p1 * cc - q1 * ss) / sqrt(x);
526 double x, z, s, c, ss, cc, u, v, p1, q1, t;
545 q1 = three8 / x;
553 q1 = ((qr0[0] + z * (qr0[1] + z * (qr0[2] + z *
558 return (isqrtpi * (p1 * ss + q1 * cc) / sqrt(x));
610 double a, b, temp, x, z, w, t, q0, q1, h;
702 q1 = w * z - one;
704 while (q1 < big) {
707 temp = z * q1 - q0;
708 q0 = q1;
709 q1 = temp;