27         long int k;  in scalblnf()  local
31         k = hx>>23;		                /* extract exponent */  in scalblnf()
32         if (k==0) {				/* 0 or subnormal x */  in scalblnf()
36 	    k = ((ix&0x7f800000)>>23) - 25;  in scalblnf()
40         if (k==0xff) return x+x;		/* NaN or Inf */  in scalblnf()
41         k = k+n;  in scalblnf()
42         if (n> 50000 || k >  0xfe)  in scalblnf()
44         if (k > 0) 				/* normal result */  in scalblnf()
45 	    {SET_FLOAT_WORD(x,(ix&0x807fffff)|(k<<23)); return x;}  in scalblnf()
46         if (k <= -25)  in scalblnf()
48         k += 25;				/* subnormal result */  in scalblnf()
49 	SET_FLOAT_WORD(x,(ix&0x807fffff)|(k<<23));  in scalblnf()