scalbn
double scalbn(double, int);
#define scalbn(a,b) __TG_FN1x(scalbn, (a), (b))
if((j>>20)<=0) z = scalbn(z,n); /* subnormal output */
return scalbn(x,fn);
if ( fn > 65000.0) return scalbn(x, 65000);
if (-fn > 65000.0) return scalbn(x,-65000);
return scalbn(x,(int)fn);
z = scalbn(z,q0); /* actual value of z */
if(carry!=0) z -= scalbn(one,q0);
z = scalbn(z,-q0);
fw = scalbn(one,q0);
__weak_alias(scalbn, _scalbn)
lua_pushnumber(L, scalbn(x, i));
#define MIDIPITCH_TO_FRKEY(mp) (scalbn((mp),-14))
#define MIDIPITCH_FROM_FRKEY(frk) ((midipitch_t)round(scalbn((frk),14)))
#define MIDIHZ18_TO_FRHZ(h18) (scalbn((h18),-18))
#define MIDIHZ18_FROM_FRHZ(frh) ((midihz18_t)round(scalbn((frh),18)))
y = scalbn(x, exps[i]);
ATF_CHECK(scalbn(x, exps[i]) == x);
ATF_CHECK(scalbn(x, exps[i]) == x);
y = scalbn(x, exps[i]);
y = scalbn(x, exps[i]);
y = scalbn(x, exps[i]);
rv = scalbn(tests[i].inval, tests[i].exp);
printf("%-24s%+2.13f\n", "scalbn(1.0, 2)", scalbn(1.0, 2));