gonzui

t2ex

bsd_source/lib/libc/src_bsd/math/e_lgamma_r.c - 12.2KB - 304 lines

168:      */
169:         z = floor(y);
170:         if(z!=y) {                             /* inexact anyway */
171:             y  *= 0.5;
172:             y   = 2.0*(y - floor(y));          /* y = |x| mod 2.0 */
173:             n   = (int) (y*4.0);