SET_FLOAT_WORD
SET_FLOAT_WORD(df,idf&0xfffff000);
SET_FLOAT_WORD(w,iw&0xfffff000);
SET_FLOAT_WORD(z,zh ^ 0x80000000);
SET_FLOAT_WORD(x,ix);
SET_FLOAT_WORD(y,hy+(k<<23)); /* add k to y's exponent */
SET_FLOAT_WORD(y,hy+((k+100)<<23)); /* add k to y's exponent */
SET_FLOAT_WORD(x,hx|sx);
SET_FLOAT_WORD(x,hx|sx);
SET_FLOAT_WORD(a,ha); /* a <- |a| */
SET_FLOAT_WORD(b,hb); /* b <- |b| */
SET_FLOAT_WORD(a,ha);
SET_FLOAT_WORD(b,hb);
SET_FLOAT_WORD(t1,0x7e800000); /* t1=2^126 */
SET_FLOAT_WORD(a,ha);
SET_FLOAT_WORD(b,hb);
SET_FLOAT_WORD(t1,ha&0xfffff000);
SET_FLOAT_WORD(yy1,hb&0xfffff000);
SET_FLOAT_WORD(t1,ha+0x00800000);
SET_FLOAT_WORD(t1,0x3f800000+(k<<23));
SET_FLOAT_WORD(x,hx);
SET_FLOAT_WORD(x,ix|(i^0x3f800000)); /* normalize x or x/2 */
SET_FLOAT_WORD(x,ix|(i^0x3f800000)); /* normalize x or x/2 */
SET_FLOAT_WORD(t1,is&0xfffff000);
SET_FLOAT_WORD(ax,ix);
SET_FLOAT_WORD(s_h,is&0xfffff000);
SET_FLOAT_WORD(t_h,((ix>>1)|0x20000000)+0x0040000+(k<<21));
SET_FLOAT_WORD(t_h,is&0xfffff000);
SET_FLOAT_WORD(p_h,is&0xfffff000);
SET_FLOAT_WORD(t1,is&0xfffff000);
SET_FLOAT_WORD(yy1,is&0xfffff000);
SET_FLOAT_WORD(t,n&~(0x007fffff>>k));
SET_FLOAT_WORD(t,is&0xfffff000);
else SET_FLOAT_WORD(z,j);
SET_FLOAT_WORD(z, ix - ((int32_t)(e0<<23)));
SET_FLOAT_WORD(x,hx^sx);
SET_FLOAT_WORD(z,ix);
SET_FLOAT_WORD(qx,ix-0x01000000); /* x/4 */
SET_FLOAT_WORD(z,i&0xfffff000);
SET_FLOAT_WORD(t,i&0xfffff000);
SET_FLOAT_WORD(ft, ((hx & 0x7fffffff) / 3 + B1));
SET_FLOAT_WORD(x,(u_int32_t)((hy>>32)&0x80000000)|1);/* return +-minsub*/
SET_FLOAT_WORD(x,hx);
SET_FLOAT_WORD(ft, ((hx & 0x7fffffff) / 3 + B1));
SET_FLOAT_WORD(x,((esy&0x8000)<<16)|1);/* return +-minsub*/
SET_FLOAT_WORD(x,hx);
SET_FLOAT_WORD(x,hx); /* x <- |x| */
{SET_FLOAT_WORD(t,0x4b800000); /* set t= 2**24 */
t*=x; GET_FLOAT_WORD(high,t); SET_FLOAT_WORD(t,high/3+B2);
SET_FLOAT_WORD(t,hx/3+B1);
SET_FLOAT_WORD(t,high|sign);
SET_FLOAT_WORD(x,i0);
SET_FLOAT_WORD(x,(ix&0x7fffffff)|(iy&0x80000000));
SET_FLOAT_WORD(z,ix&0xfffff000);
SET_FLOAT_WORD(z,ix&0xfffff000);
SET_FLOAT_WORD(y,i+(k<<23)); /* add k to y's exponent */
SET_FLOAT_WORD(t,0x3f800000 - (0x1000000>>k)); /* t=1-2^-k */
SET_FLOAT_WORD(y,i+(k<<23)); /* add k to y's exponent */
SET_FLOAT_WORD(t,((0x7f-k)<<23)); /* 2^-k */
SET_FLOAT_WORD(y,i+(k<<23)); /* add k to y's exponent */
SET_FLOAT_WORD(x,ix&0x7fffffff);
SET_FLOAT_WORD(x,i0);
SET_FLOAT_WORD(x,hx);
SET_FLOAT_WORD(u,hu|0x3f800000);/* normalize u */
SET_FLOAT_WORD(u,hu|0x3f000000); /* normalize u/2 */
SET_FLOAT_WORD(*iptr,i0&0x80000000); /* *iptr = +-0 */
SET_FLOAT_WORD(x,ix&0x80000000); /* return +-0 */
SET_FLOAT_WORD(*iptr,i0&(~i));
SET_FLOAT_WORD(x,ix&0x80000000); /* return +-0 */
SET_FLOAT_WORD(x,(hy&0x80000000)|1);/* return +-minsubnormal */
SET_FLOAT_WORD(y,hx);
SET_FLOAT_WORD(x,hx);
SET_FLOAT_WORD(x,(u_int32_t)(hy&0x80000000)|1);/* return +-minsub*/
SET_FLOAT_WORD(x,hx);
SET_FLOAT_WORD(x,hx);
SET_FLOAT_WORD(x,hx);
SET_FLOAT_WORD(x,hx^sx);
SET_FLOAT_WORD(x,i0);
SET_FLOAT_WORD(t,(i0&0x7fffffff)|(sx<<31));
SET_FLOAT_WORD(x,i0);
{SET_FLOAT_WORD(x,(ix&0x807fffff)|(k<<23)); return x;}
SET_FLOAT_WORD(x,(ix&0x807fffff)|(k<<23));
SET_FLOAT_WORD(x,i0);