32 scalbnf (float x, int n)  in scalbnf()  argument
35 	GET_FLOAT_WORD(ix,x);  in scalbnf()
38             if ((ix&0x7fffffff)==0) return x; /* +-0 */  in scalbnf()
39 	    x *= two25;  in scalbnf()
40 	    GET_FLOAT_WORD(ix,x);  in scalbnf()
42             if (n< -50000) return tiny*x; 	/*underflow*/  in scalbnf()
44         if (k==0xff) return x+x;		/* NaN or Inf */  in scalbnf()
46         if (k >  0xfe) return huge*copysignf(huge,x); /* overflow  */  in scalbnf()
48 	    {SET_FLOAT_WORD(x,(ix&0x807fffff)|(k<<23)); return x;}  in scalbnf()
51 		return huge*copysignf(huge,x);	/*overflow*/  in scalbnf()
52 	    else return tiny*copysignf(tiny,x);	/*underflow*/  in scalbnf()
54 	SET_FLOAT_WORD(x,(ix&0x807fffff)|(k<<23));  in scalbnf()
55         return x*twom25;  in scalbnf()