gonzui

t2ex

bsd_source/lib/libc/src_bsd/math/e_scalb.c - 1.0KB - 44 lines

25: {
26:         return scalbn(x, fn);
27: }
39:         if (rint(fn)!=fn) return (fn-fn)/(fn-fn);
40:         if ( fn > 65000.0) return scalbn(x, 65000);
41:         if (-fn > 65000.0) return scalbn(x,-65000);
42:         return scalbn(x,(int)fn);
43: }