gonzui

t2ex

bsd_source/lib/libc/src_bsd/math/b_tgamma.c - 10.9KB - 346 lines

134:                 u = large_gam(x);
135:                 return(__exp__D(u.a, u.b));
136:         } else if (x >= 1.0 + LEFT + x0)
325:                 z = (y + lg.a) + lg.b;
326:                 y = __exp__D(y, z);
327:                 if (sgn < 0) y = -y;