scalbn
#define scalbn(x, y) __tg_simplev(x, scalbn, x, y)
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);
double scalbn(double, int);
return (scalbn(x, (n > NMAX) ? NMAX : (n < NMIN) ? NMIN : (int)n));
#if (LDBL_MANT_DIG == 53) && !defined(scalbn)
__weak_reference(scalbn, ldexpl);
__weak_reference(scalbn, scalbnl);
double (scalbn)(double x, int n) { n_double++; }
PASS_REAL_FIXED_ARG_REAL_RET(scalbn, 1) &&
PASS_REAL_FIXED_ARG_REAL_RET(scalbn, b) &&
PASS_REAL_FIXED_ARG_REAL_RET(scalbn, I));