gonzui

t2ex

bsd_source/lib/libc/src_bsd/math/e_lgammaf_r.c - 8.1KB - 232 lines

104:      */
105:         z = floorf(y);
106:         if(z!=y) {                             /* inexact anyway */
107:             y  *= (float)0.5;
108:             y   = (float)2.0*(y - floorf(y));  /* y = |x| mod 2.0 */
109:             n   = (int) (y*(float)4.0);