SCALE_ARR
*pz0 = u0 * SCALE_ARR[eflag0 - gflag0];
*pz1 = u0 * SCALE_ARR[eflag0 - gflag0];
*pz0 = u0 * SCALE_ARR[eflag0 - gflag0];
*pz1 = u1 * SCALE_ARR[eflag1 - gflag1];
*pz2 = u2 * SCALE_ARR[eflag2 - gflag2];
*pz0 = u0 * SCALE_ARR[eflag0 - gflag0];
*pz1 = u0 * SCALE_ARR[eflag0 - gflag0];
*pz0 = u0 * SCALE_ARR[eflag0 - gflag0];
*pz1 = u1 * SCALE_ARR[eflag1 - gflag1];
*pz2 = u2 * SCALE_ARR[eflag2 - gflag2];