28 scalb(double x, int fn)  in scalb()  argument
31 scalb(double x, double fn)  in scalb()
35 	return scalbn(x,fn);  in scalb()
37 	if (isnan(x)||isnan(fn)) return x*fn;  in scalb()
38 	if (!finite(fn)) {  in scalb()
39 	    if(fn>0.0) return x*fn;  in scalb()
40 	    else       return x/(-fn);  in scalb()
42 	if (rint(fn)!=fn) return (fn-fn)/(fn-fn);  in scalb()
43 	if ( fn > 65000.0) return scalbn(x, 65000);  in scalb()
44 	if (-fn > 65000.0) return scalbn(x,-65000);  in scalb()
45 	return scalbn(x,(int)fn);  in scalb()