MAX_COMPRESSED
for (ixpi = MAX_COMPRESSED; ixpi; ixpi--)
for (xpi = MAX_COMPRESSED; xpi >= 1.; xpi -= 1.)