Frac_mask1
word0(&d2) &= Frac_mask1;
word0(&d) &= Frac_mask1;
#define Big0 (Frac_mask1 | Exp_msk1*(DBL_MAX_EXP+Bias-1))