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