gonzui

t2ex

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

159: {
160:         return tgamma(x);
161: }
331:         if (one-y == x)
332:                 y = tgamma(y);
333:         else           /* 1-x is inexact */
334:                 y = -x*tgamma(-x);
335:         if (sgn < 0) y = -y;