Lines Matching refs:z1
1408 double r1, r2, t2, z, xh, xl, yh, yl, zh, z1, z2, zl, x5, wh, wl; in gam_n() local
1450 z1 = x + one; in gam_n()
1452 z = z1 * z2; in gam_n()
1454 zh = (double) ((float) z1); in gam_n()
1461 z1 = x + 2.0; in gam_n()
1463 zh = z1; in gam_n()
1467 z = z1 * z2; in gam_n()
1469 xl = zl * (z2 + zh * (z1 + zh)) - (xh - zh * (zh * zh - one)); in gam_n()
1474 z1 = x + 2.0; in gam_n()
1476 z = z1 * z2; in gam_n()
1477 zh = (double) ((float) z1); in gam_n()
1488 z1 = x + 2.0; in gam_n()
1490 z = z1 * z2; in gam_n()
1491 zh = (double) ((float) z1); in gam_n()
1493 z1 = x - (zh - 2.0); in gam_n()
1494 yl = z1 * (z2 + zh) - (yh - zh * (zh + one)); in gam_n()
1504 wl = (z1 * yy.h + x5 * yy.l) - (wh - zh * yy.h); in gam_n()
1509 z1 = x + 3.0; in gam_n()
1511 z = z2 * z1; in gam_n()
1512 zh = (double) ((float) z1); in gam_n()
1515 z1 = x + 6.0; in gam_n()
1534 double t, t1, t2, t3, t4, t5, w, y, z, z1, z2, z3, z5; in tgamma() local
1664 z1 = ss.l - (t1 - ss.h); /* (t1,z1) = ss */ in tgamma()
1669 z5 = z1 * t4 + t1 * z2; /* (t5,z5) = ss*ww */ in tgamma()
1671 z1 = z5 - (t1 - t5); in tgamma()
1673 z2 = z3 * (t2 * z1 - (one - t2 * t1)); in tgamma()