Lines Matching defs:yl
1147 /* compute gamma(y=yh+yl) for y in GT1 = [1.0000, 1.2845] */
1150 GT1(double yh, double yl) {
1154 y = yh + yl;
1158 t3 += (TZ1 * yl + GZ1_l);
1166 /* compute gamma(y=yh+yl) for y in GT2 = [1.2844, 1.6374] */
1169 GT2(double yh, double yl) {
1173 y = yh + yl;
1183 /* compute gamma(y=yh+yl) for y in GT3 = [1.6373, 2.0000] */
1186 GT3(double yh, double yl) {
1190 y = yh + yl;
1194 t3 += (TZ3 * yl + GZ3_l);
1408 double r1, r2, t2, z, xh, xl, yh, yl, zh, z1, z2, zl, x5, wh, wl;
1479 yl = (x - (zh - 2.0)) * (z2 + zh) - (yh - zh * (zh + one));
1483 xl = yl * (z2 + yh) - (xh - yh * (yh - 2.0));
1494 yl = z1 * (z2 + zh) - (yh - zh * (zh + one));
1500 xl = yl * (z2 + yh) - (xh - yh * (yh - 2.0));
1513 yh = (double) ((float) z); /* yh+yl = (x+3)(x+4) */
1514 yl = (x - (zh - 3.0)) * (z2 + zh) - (yh - (zh * (zh + one)));
1519 xl = yl * (z2 + yh) - (xh - yh * (yh - 2.0));
1524 wl = (z2 * yy.l + yl * yy.h) - (wh - (yh - 6.0) * yy.h);