b_tgammal.c | 120 long double p, z, thi, tlo, xhi, xlo; local in function:large_gam 137 thi = xhi * u.a; 140 /* Compute thi + tlo + ln2pi_hi + ln2pi_lo + p. */ 144 u.a += thi; 145 u.b = thi - u.a; 201 long double p, q, thi, tlo; local in function:ratfun_gam 211 thi = (float)z; 212 tlo = (z - thi) + c; 213 tlo *= (thi + z); 216 thi *= thi [all...] |