TBL
ah += TBL[k];
al += TBL[k+1];
t = TBL[k+2];
static const double TBL[] = {
y = TBL[j] + (TBL[j+1] + TBL[j] * y);
static const double TBL[] = {
a += TBL[k];
static const double TBL[] = {
t = ln2 * (double)exp + TBL[i];
v = (double)(ix - iy) * TBL[i + 1];
static const double TBL[] = {
dy = invln2 * (TBL[i] + ds * (A0 + dz * A1));
static const double TBL[] = {
t##N = TBL[j##N]; \
y##N = t##N + (TBL[j##N + 1] + t##N * y##N); \
t0 = TBL[j0];
t1 = TBL[j1];
t2 = TBL[j2];
t3 = TBL[j3];
t4 = TBL[j4];
t5 = TBL[j5];
y0 = t0 + (TBL[j0 + 1] + t0 * y0);
y1 = t1 + (TBL[j1 + 1] + t1 * y1);
y2 = t2 + (TBL[j2 + 1] + t2 * y2);
y3 = t3 + (TBL[j3 + 1] + t3 * y3);
y4 = t4 + (TBL[j4 + 1] + t4 * y4);
y5 = t5 + (TBL[j5 + 1] + t5 * y5);
static const double TBL[] = {
h##N = d##N * TBL[i##N]; \
l##N = d##N * TBL[i##N+1]; \
*y = (n##N * ln2hi + TBL[i##N+2]) + (h##N + (l##N + \
(n##N * ln2lo + TBL[i##N+3]) + b##N)); \
h0 = d0 * TBL[i0];
h1 = d1 * TBL[i1];
h2 = d2 * TBL[i2];
h3 = d3 * TBL[i3];
l0 = d0 * TBL[i0+1];
l1 = d1 * TBL[i1+1];
l2 = d2 * TBL[i2+1];
l3 = d3 * TBL[i3+1];
*y = (n0 * ln2hi + TBL[i0+2]) + (h0 + (l0 +
(n0 * ln2lo + TBL[i0+3]) + b0));
*y = (n1 * ln2hi + TBL[i1+2]) + (h1 + (l1 +
(n1 * ln2lo + TBL[i1+3]) + b1));
*y = (n2 * ln2hi + TBL[i2+2]) + (h2 + (l2 +
(n2 * ln2lo + TBL[i2+3]) + b2));
*y = (n3 * ln2hi + TBL[i3+2]) + (h3 + (l3 +
(n3 * ln2lo + TBL[i3+3]) + b3));
static const double TBL[] = {