SET_LDOUBLE_EXP
SET_LDOUBLE_EXP(x,ix);
SET_LDOUBLE_EXP(t1,es+k);
SET_LDOUBLE_EXP(a,ea); /* a <- |a| */
SET_LDOUBLE_EXP(b,eb); /* b <- |b| */
SET_LDOUBLE_EXP(a,ea);
SET_LDOUBLE_EXP(b,eb);
SET_LDOUBLE_EXP(a,ea);
SET_LDOUBLE_EXP(b,eb);
SET_LDOUBLE_EXP(x,BIAS);
SET_LDOUBLE_EXP(v, (expsign & 0x8000) | (BIAS + k / 3));
SET_LDOUBLE_EXP(x,esx);
SET_LDOUBLE_EXP(x,esx);
SET_LDOUBLE_EXP(y,esy);