scalbn
double scalbn(double, int);
extern double scalbn(double, int);
extern double scalbn(double, int);
z = scalbn(z, q0); /* actual value of z */
z -= scalbn(one, q0);
z = scalbn(z, -q0);
fw = scalbn(one, q0);
return (scalbn(exp(w), 1023));
return (scalbn(exp(ln10 * ((x - k * logt2hi) - k * logt2lo)), k));
return (scalbn(exp(ln2 * (x - (double)k)), k));
z = scalbn(z, k);
z = scalbn(x, n);
return (scalbn(x, -ilogb(x)));
r = scalbn(x, 1023);
D_RE(ans) = scalbn(C * t, n - 1);
D_IM(ans) = scalbn(S * t, n - 1);
F_RE(ans) = (float)scalbn(C * w, n - 1);
F_IM(ans) = (float)scalbn(S * w, n - 1);
D_RE(ans) = scalbn(t * c, n);
D_IM(ans) = scalbn(t * s, n);
F_RE(ans) = (float)scalbn(t * (double)c, n);
F_IM(ans) = (float)scalbn(t * (double)s, n);
c = scalbn(c, k);
s = scalbn(s, k);
D_RE(ans) = scalbn(C * t, n - 1);
D_IM(ans) = scalbn(S * t, n - 1);
F_RE(ans) = (float)scalbn(C * t, n - 1);
F_IM(ans) = (float)scalbn(S * t, n - 1);
x = scalbn(x, n);