GET_LDOUBLE_EXP
GET_LDOUBLE_EXP(es,t1);
GET_LDOUBLE_EXP(ea,x);
GET_LDOUBLE_EXP(eb,y);
GET_LDOUBLE_EXP(hx,x);
GET_LDOUBLE_EXP(expsign,x);
GET_LDOUBLE_EXP(k,x);
GET_LDOUBLE_EXP(esx,x);