136 #define DEF_UnpackAndOp(Type, BS, EQ, Opname, Op, OpApply) \  argument
149           for (k = 0; k < BS; k++) OpApply(Op, u[i * MBS + j * BS + k], p[i * MBS + j * BS + k]); \
157 …     for (i = 0; i < opt->dx[r] * MBS; i++) OpApply(Op, u2[(X * Y * k + X * j) * MBS + i], p[i]); \
164 …     for (k = 0; k < BS; k++) OpApply(Op, u[idx[i] * MBS + j * BS + k], p[i * MBS + j * BS + k]); \
169 #define DEF_FetchAndOp(Type, BS, EQ, Opname, Op, OpApply) \  argument
183           OpApply(Op, u[r + j * BS + k], p[l + j * BS + k]); \
190 #define DEF_ScatterAndOp(Type, BS, EQ, Opname, Op, OpApply) \  argument
209 …   for (i = 0; i < srcOpt->dx[0] * MBS; i++) OpApply(Op, v[i], u[(X * Y * k + X * j) * MBS + i]); \
217           for (k = 0; k < BS; k++) OpApply(Op, v[t + j * BS + k], u[s + j * BS + k]); \
223 #define DEF_FetchAndOpLocal(Type, BS, EQ, Opname, Op, OpApply) \  argument
238           OpApply(Op, rdata[r + j * BS + k], ldata[l + j * BS + k]); \