10   PetscInt    i, j, k, b, m = 3, n, nlocal = 2, bs = 1, Ii, J;  in main()  local
46         Ii = (j + n * i) * bs + b;  in main()
48           J = Ii - n * bs;  in main()
49           PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, ADD_VALUES));  in main()
52           J = Ii + n * bs;  in main()
53           PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, ADD_VALUES));  in main()
56           J = Ii - 1 * bs;  in main()
57           PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, ADD_VALUES));  in main()
60           J = Ii + 1 * bs;  in main()
61           PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, ADD_VALUES));  in main()
64         PetscCall(MatSetValues(A, 1, &Ii, 1, &Ii, &v, ADD_VALUES));  in main()
68             J  = Ii - 2 * bs;  in main()
72             PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v2, ADD_VALUES));  in main()
79             J = Ii - 1 * bs;  in main()
80             PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v1, ADD_VALUES));  in main()
82           PetscCall(MatSetValues(A, 1, &Ii, 1, &Ii, &v0, ADD_VALUES));  in main()
87             J = Ii - 1;  in main()
88             PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, ADD_VALUES));  in main()
91             J = Ii + 1;  in main()
92             PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, ADD_VALUES));  in main()
96         PetscCall(VecSetValue(rhs, Ii, rhsval, INSERT_VALUES));  in main()
140       Ii = j;  in main()
141       if (Ii >= rank * m * nlocal && Ii < (rank + 1) * m * nlocal) boundary_nodes[k++] = Ii;  in main()
144       Ii = n * i;  in main()
145       if (Ii >= rank * m * nlocal && Ii < (rank + 1) * m * nlocal) boundary_nodes[k++] = Ii;  in main()
154     Ii = boundary_nodes[k] * bs;  in main()
156     for (b = 0; b < bs; b++, Ii++) {  in main()
157       boundary_indices[k * bs + b] = Ii;  in main()
159 …PetscCall(PetscSynchronizedPrintf(PETSC_COMM_WORLD, "%d %" PetscInt_FMT " %f\n", rank, Ii, (double…  in main()