Searched refs:gridN (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/tao/tutorials/ |
| H A D | ex4.c | 51 PetscInt Istart, Iend, i, j, Ii, gridN, I_n, I_s, I_e, I_w; in CreateMatrix() local
69 gridN = (PetscInt)PetscSqrtReal((PetscReal)ctx->m); in CreateMatrix()
70 …PetscCheck(gridN * gridN == ctx->m, PETSC_COMM_WORLD, PETSC_ERR_ARG_SIZ, "Number of rows must be s… in CreateMatrix()
72 i = Ii / gridN; in CreateMatrix()
73 j = Ii % gridN; in CreateMatrix()
74 I_n = i * gridN + j + 1; in CreateMatrix()
75 if (j + 1 >= gridN) I_n = -1; in CreateMatrix()
76 I_s = i * gridN + j - 1; in CreateMatrix()
78 I_e = (i + 1) * gridN + j; in CreateMatrix()
79 if (i + 1 >= gridN) I_e = -1; in CreateMatrix()
[all …]
|