SET_FLOAT_WORD
SET_FLOAT_WORD(twopkm1, 0x3f800000 + ((k - 1) << 23));
SET_FLOAT_WORD(twopkm1, 0x3f800000 + ((k - 1) << 23));
SET_FLOAT_WORD(fx_hi, (lx >> 40) | 0x3f800000);
SET_FLOAT_WORD(fx_hi, (lx >> 40) | 0x3f800000);
SET_FLOAT_WORD(scale, 0x7f800000 - ix);
SET_FLOAT_WORD(df,idf&0xfffff000);
SET_FLOAT_WORD(x,ix);
SET_FLOAT_WORD(twopk,((u_int32_t)(0x7f+k))<<23);
SET_FLOAT_WORD(twopk,((u_int32_t)(0x7f+(k+100)))<<23);
SET_FLOAT_WORD(x,hx|sx);
SET_FLOAT_WORD(x,hx|sx);
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(y1,hb&0xfffff000);
SET_FLOAT_WORD(t1,(ha+0x00800000)&0xfffff000);
SET_FLOAT_WORD(t1,(127+k)<<23);
SET_FLOAT_WORD(x,hx|(i^0x3f800000)); /* normalize x or x/2 */
SET_FLOAT_WORD(hi,hx&0xfffff000);
SET_FLOAT_WORD(x,hx|(i^0x3f800000)); /* normalize x or x/2 */
SET_FLOAT_WORD(hi,hx&0xfffff000);
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,is+0x00400000+(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(y1,is&0xfffff000);
SET_FLOAT_WORD(t,n&~(0x007fffff>>k));
SET_FLOAT_WORD(t,is&0xffff8000);
else SET_FLOAT_WORD(z,j);
SET_FLOAT_WORD(z, ix - ((int32_t)((u_int32_t)e0<<23)));
SET_FLOAT_WORD(x,hx^sx);
SET_FLOAT_WORD(z,ix);
SET_FLOAT_WORD(exp_x, (hx & 0x7fffff) | ((0x7f + 127) << 23));
SET_FLOAT_WORD(scale, (0x7f + expt) << 23);
SET_FLOAT_WORD(scale1, (0x7f + half_expt) << 23);
SET_FLOAT_WORD(scale2, (0x7f + half_expt) << 23);
SET_FLOAT_WORD((x), (ix)); \
SET_FLOAT_WORD(t,0x4b800000); /* set t= 2**24 */
SET_FLOAT_WORD(t,sign|((high&0x7fffffff)/3+B2));
SET_FLOAT_WORD(t,sign|(hx/3+B1));
SET_FLOAT_WORD(ft, ((hx & 0x7fffffff) / 3 + B1));
SET_FLOAT_WORD(x,i0);
SET_FLOAT_WORD(x,(ix&0x7fffffff)|(iy&0x80000000));
SET_FLOAT_WORD(ax, ix);
SET_FLOAT_WORD(x, hx - 0x40000000);
SET_FLOAT_WORD(z,hx&0xffffe000);
SET_FLOAT_WORD(z,hx&0xffffe000);
SET_FLOAT_WORD(t,0x3f800000 - (0x1000000>>k)); /* t=1-2^-k */
SET_FLOAT_WORD(t,((0x7f-k)<<23)); /* 2^-k */
SET_FLOAT_WORD(twopk,((u_int32_t)(0x7f+k))<<23); /* 2^k */
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,(uy.bits.sign<<31)|1);/* return +-minsubnormal */
SET_FLOAT_WORD(x,hx);
SET_FLOAT_WORD(x,hx);
SET_FLOAT_WORD(x,hx);
SET_FLOAT_WORD(x,hx^sx);
SET_FLOAT_WORD(t,(i0&0x7fffffff)|(sx<<31));
SET_FLOAT_WORD(ax, ix);
SET_FLOAT_WORD(hi, hx & 0xffff0000);
SET_FLOAT_WORD(ax, ix);
SET_FLOAT_WORD(hi, hx & 0xffff0000);
SET_FLOAT_WORD(x,i0);