1408 	double r1, r2, t2, z, xh, xl, yh, yl, zh, z1, z2, zl, x5, wh, wl;  in gam_n()  local
1455 		xl = (x - (zh - one)) * (z2 + zh) - (xh - zh * (zh + one));  in gam_n()
1457 		rr.l = z * yy.l + xl * yy.h;  in gam_n()
1469 		xl = zl * (z2 + zh * (z1 + zh)) - (xh - zh * (zh * zh - one));  in gam_n()
1471 		rr.l = z * yy.l + xl * yy.h;  in gam_n()
1483 		xl = yl * (z2 + yh) - (xh - yh * (yh - 2.0));  in gam_n()
1485 		rr.l = z * yy.l + xl * yy.h;  in gam_n()
1500 		xl = yl * (z2 + yh) - (xh - yh * (yh - 2.0));  in gam_n()
1506 		rr.l = z * wl + xl * wh;  in gam_n()
1519 		xl = yl * (z2 + yh) - (xh - yh * (yh - 2.0));  in gam_n()
1526 		rr.l = z * wl + xl * wh;  in gam_n()