ISZEROL
#define ISZEROL(x) (((((int *)&x)[0] & ~XSGNMSK) | ((int *)&x)[1] | \
#define ISZEROL(x) (x == 0.0L)