scalb
double scalb(double, double);
PROTO_NORMAL(scalb);
return scalb(1.+(hi-(lo - c)), k);
if(isfinite(x)) return(scalb(1.0,-5000));
return( isfinite(x) ? scalb(1.0,5000) : x);
DEF_NONSTD(scalb);
DEF_NONSTD(scalb);
return scalb(x,(double) -ilogb(x));
#define Pix(x) (scalb(7074237752028440.,-51)*x)
double scalb( double x, double n );
q->arg = scalb(p->arg_m,p->arg_e);
t1 = scalb(1.0,p->val_e/2);
t2 = scalb(1.0,p->val_e-p->val_e/2);
t1 = scalb(1.0,p->val_e);
t = scalb(q->res,p->val_e) - p->val;