1151 	double t3, t4, y, z;  in GT1()  local
1156 	t3 = (z * (P10 + y * ((P11 + y * P12) + z * (P13 + y * P14)))) /  in GT1()
1158 	t3 += (TZ1 * yl + GZ1_l);  in GT1()
1160 	r.h = (double) ((float) (t4 + GZ1_h + t3));  in GT1()
1161 	t3 += (t4 - (r.h - GZ1_h));  in GT1()
1162 	r.l = t3;  in GT1()
1170 	double t3, y, z;  in GT2()  local
1175 	t3 = (z * (P20 + y * P21 + z * (P22 + y * P23))) /  in GT2()
1178 	r.h = (double) ((float) (GZ2_h + t3));  in GT2()
1179 	r.l = t3 - (r.h - GZ2_h);  in GT2()
1187 	double t3, t4, y, z;  in GT3()  local
1192 	t3 = (z * (P30 + y * ((P31 + y * P32) + z * (P33 + y * P34)))) /  in GT3()
1194 	t3 += (TZ3 * yl + GZ3_l);  in GT3()
1196 	r.h = (double) ((float) (t4 + GZ3_h + t3));  in GT3()
1197 	t3 += (t4 - (r.h - GZ3_h));  in GT3()
1198 	r.l = t3;  in GT3()
1211 	double z, t1, t2, t3, z2, t5, w, y, u, r, z4, v, t24 = 16777216.0,  in large_gam()  local
1261 	t3 = T2[j2] + T1[n2];  in large_gam()
1269 		t3 += v;  in large_gam()
1271 	ss_h = (double) ((float) (t2 + t3));  in large_gam()
1272 	ss_l = t2 - (ss_h - t3);  in large_gam()
1295 	t3 = (double) k;  in large_gam()
1298 	t1 = w_h - t3 * ln2_32hi;  in large_gam()
1299 	t2 = t3 * ln2_32lo;  in large_gam()
1309 	t3 = w_h - (w_l - (t1 + z * t2));  in large_gam()
1310 	zz.l = S_trail[j] * (one + t3) + S[j] * t3;  in large_gam()
1335 	double z, t1, t2, t3, t4;  in kpsin()  local
1343 	t3 = (t1 * z) * ((ks[1] + z * ks[2] + t2 * ks[3]) + (z * t2) *  in kpsin()
1345 	xx.l = t4 + t3;  in kpsin()
1373 	double z, t1, t2, t3, t4, x4, x8;  in kpcos()  local
1381 	t3 = one_pi_l + x4 * ((kc[1] + z * kc[2]) + x4 * (kc[3] + z *  in kpcos()
1384 	x8 = t2 + t3;  in kpcos()
1534 	double t, t1, t2, t3, t4, t5, w, y, z, z1, z2, z3, z5;  in tgamma()  local
1660 	t3 = ss.h + ss.l;  in tgamma()
1662 	t1 = (double) ((float) t3);  in tgamma()
1666 	t3 = t3 * t4;			/* t3 = ss*ww */  in tgamma()
1667 	z3 = one / t3;			/* z3 = 1/(ss*ww) */  in tgamma()
1670 	t1 = (double) ((float) t3);	/* (t1,z1) = ss*ww */  in tgamma()