b_tgammal.c | 120 long double p, z, thi, tlo, xhi, xlo; local in function:large_gam 138 tlo = xlo * u.a + x * u.b; 140 /* Compute thi + tlo + ln2pi_hi + ln2pi_lo + p. */ 141 tlo += ln2pi_lo; 142 tlo += p; 143 u.a = ln2pi_hi + tlo; 147 u.b += tlo; 201 long double p, q, thi, tlo; local in function:ratfun_gam 212 tlo = (z - thi) + c; 213 tlo *= (thi + z) [all...] |