NXT
#define MEXP (NXT*16384.0L)
#define MNEXP (-NXT*(16384.0L+64.0L))
Hb -= (1.0L/NXT); /*0.0625L;*/
i = e/NXT + i;
e = NXT*i - e;