DTWO
dd0 = dd0 * (DTWO - dd0 * dres0); \
dd0 = dd0 * (DTWO - dd0 * dres0); \
dres0 = dd0 * (DTWO - dd0 * dres0); \
double DTWO = ((double*)LCONST)[1];
dd0 = dd0 * (DTWO - dd0 * dres0);
dd1 = dd1 * (DTWO - dd1 * dres1);
dd2 = dd2 * (DTWO - dd2 * dres2);
dd0 = dd0 * (DTWO - dd0 * dres0);
dd1 = dd1 * (DTWO - dd1 * dres1);
dd2 = dd2 * (DTWO - dd2 * dres2);
dres0 = dd0 * (DTWO - dd0 * dres0);
dres1 = dd1 * (DTWO - dd1 * dres1);
dres2 = dd2 * (DTWO - dd2 * dres2);
dd0 = dd0 * (DTWO - dd0 * dres0);
dd0 = dd0 * (DTWO - dd0 * dres0);
dres0 = dd0 * (DTWO - dd0 * dres0);
dd1 = dd1 * (DTWO - dd1 * dres1);
dd1 = dd1 * (DTWO - dd1 * dres1);
dres1 = dd1 * (DTWO - dd1 * dres1);