Searched refs:IDX (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/snes/tutorials/ |
| H A D | ex56.c | 73 #define IDX(ii, jj, kk, ll) (27 * ii + 9 * jj + 3 * kk + ll) macro
113 if (k == l && i == j) g3[IDX(i, j, k, l)] += lambda; in g3_uu_3d_private()
114 if (i == k && j == l) g3[IDX(i, j, k, l)] += mu; in g3_uu_3d_private()
115 if (i == l && j == k) g3[IDX(i, j, k, l)] += mu; in g3_uu_3d_private()
116 …== l && i == j && !cc) (void)PetscPrintf(PETSC_COMM_WORLD, "g3[%d] += lambda;\n", IDX(i, j, k, l)); in g3_uu_3d_private()
117 …if (i == k && j == l && !cc) (void)PetscPrintf(PETSC_COMM_WORLD, "g3[%d] += mu;\n", IDX(i, j, k, l… in g3_uu_3d_private()
118 …if (i == l && j == k && !cc) (void)PetscPrintf(PETSC_COMM_WORLD, "g3[%d] += mu;\n", IDX(i, j, k, l… in g3_uu_3d_private()
|