Lines Matching refs:z2
1211 double z, t1, t2, t3, z2, t5, w, y, u, r, z4, v, t24 = 16777216.0, in large_gam() local
1259 z2 = u * u; in large_gam()
1263 t2 = t4 + u * ((two + z2 * A1) + (z2 * z2) * (A2 + z2 * A3)); in large_gam()
1265 t5 = t4 + u * (z2 * A1 + (z2 * z2) * (A2 + z2 * A3)); in large_gam()
1282 z2 = z * z; in large_gam()
1284 z4 = z2 * z2; in large_gam()
1285 t1 = z2 * (GP1 + z4 * (GP3 + z4 * (GP5 + z4 * GP7))); in large_gam()
1306 z2 = z * z; in large_gam()
1307 t1 = z2 * (Et1 + z2 * (Et3 + z2 * Et5)); in large_gam()
1308 t2 = z2 * (Et2 + z2 * Et4); in large_gam()
1408 double r1, r2, t2, z, xh, xl, yh, yl, zh, z1, z2, zl, x5, wh, wl; in gam_n() local
1451 z2 = x + 2.0; in gam_n()
1452 z = z1 * z2; in gam_n()
1455 xl = (x - (zh - one)) * (z2 + zh) - (xh - zh * (zh + one)); in gam_n()
1462 z2 = (x + one) * (x + 3.0); 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()
1475 z2 = x + 3.0; in gam_n()
1476 z = z1 * z2; in gam_n()
1479 yl = (x - (zh - 2.0)) * (z2 + zh) - (yh - zh * (zh + one)); in gam_n()
1480 z2 = z - 2.0; in gam_n()
1481 z *= z2; in gam_n()
1483 xl = yl * (z2 + yh) - (xh - yh * (yh - 2.0)); in gam_n()
1489 z2 = x + 3.0; in gam_n()
1490 z = z1 * z2; in gam_n()
1494 yl = z1 * (z2 + zh) - (yh - zh * (zh + one)); in gam_n()
1495 z2 = z - 2.0; in gam_n()
1497 z *= z2; in gam_n()
1500 xl = yl * (z2 + yh) - (xh - yh * (yh - 2.0)); in gam_n()
1510 z2 = x + 4.0; in gam_n()
1511 z = z2 * z1; in gam_n()
1514 yl = (x - (zh - 3.0)) * (z2 + zh) - (yh - (zh * (zh + one))); in gam_n()
1516 z2 = z - 2.0; /* z2 = (x+2)*(x+5) */ in gam_n()
1517 z *= z2; in gam_n()
1519 xl = yl * (z2 + yh) - (xh - yh * (yh - 2.0)); in gam_n()
1522 z2 -= 4.0; /* z2 = (x+1)(x+6) */ in gam_n()
1523 wh = (double) ((float) (z2 * (yy.h + yy.l))); in gam_n()
1524 wl = (z2 * yy.l + yl * yy.h) - (wh - (yh - 6.0) * yy.h); in gam_n()
1534 double t, t1, t2, t3, t4, t5, w, y, z, z1, z2, z3, z5; in tgamma() local
1665 z2 = ww.l - (t2 - ww.h); /* (t2,z2) = ww */ in tgamma()
1669 z5 = z1 * t4 + t1 * z2; /* (t5,z5) = ss*ww */ in tgamma()
1673 z2 = z3 * (t2 * z1 - (one - t2 * t1)); in tgamma()
1674 z = t2 - z2; in tgamma()