SET_LDOUBLE_WORDS
SET_LDOUBLE_WORDS(t1,ea,high,0);
SET_LDOUBLE_WORDS(yy1,eb,high,0);
SET_LDOUBLE_WORDS(t1,ea+1,high,0);
SET_LDOUBLE_WORDS(t1, 0x7ffd, 0, 0); /* t1=2^16382 */
SET_LDOUBLE_WORDS(x,se,i0,i1);
SET_LDOUBLE_WORDS (z, i, i0, i1);
SET_LDOUBLE_WORDS (z, hx, i0, i1);
SET_LDOUBLE_WORDS(x,se,i0,i1);
SET_LDOUBLE_WORDS(*iptr,se&0x8000,0,0); /* *iptr = +-0 */
SET_LDOUBLE_WORDS(x,se&0x8000,0,0); /* return +-0 */
SET_LDOUBLE_WORDS(*iptr,se,i0&(~i),0);
SET_LDOUBLE_WORDS(x,se&0x8000,0,0); /* return +-0 */
SET_LDOUBLE_WORDS(x,se&0x8000,0,0); /* return +-0 */
SET_LDOUBLE_WORDS(*iptr,se,i0,i1&(~i));
SET_LDOUBLE_WORDS(x,esy&0x8000,0,1);/* return +-minsubnormal */
SET_LDOUBLE_WORDS(x,esx,hx,lx);
SET_LDOUBLE_WORDS(x,esx,hx,lx);
SET_LDOUBLE_WORDS(x,esx,hx,lx);
SET_LDOUBLE_WORDS(x,esx,hx,lx);
SET_LDOUBLE_WORDS(x,es,ix0,ix1);