| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex51.c | 265 PetscInt i1, j1, i2, j2; in Form2DElementMass() local
271 for (j1 = 0; j1 < (P + 1); ++j1) { in Form2DElementMass()
273 indx1 = j1 * (P + 1) + i1; in Form2DElementMass()
275 indx3 = (j2 * (P + 1) + j1) * (P + 1) * (P + 1) + (i2 * (P + 1) + i1); in Form2DElementMass()
289 PetscInt i1, j1, i2, j2; in Form2DElementStiffness() local
295 for (j1 = 0; j1 < (P + 1); ++j1) { in Form2DElementStiffness()
297 indx1 = j1 * (P + 1) + i1; in Form2DElementStiffness()
299 indx3 = (j2 * (P + 1) + j1) * (P + 1) * (P + 1) + (i2 * (P + 1) + i1); in Form2DElementStiffness()
|
| H A D | ex54f.F90 | 29 PetscInt ki, kj, nel, ll, j1, i1, ndf, f4
125 j1 = 1
134 ss(i1, j1) = ss(i1, j1) + a1*shp(1, ki) + a2*shp(2, ki)
137 j1 = j1 + ndf
|
| /petsc/src/mat/tests/ |
| H A D | ex90.c | 49 PetscInt j1[] = {0, 1, 3, 1, 2}, j2[] = {0, 2, 1, 2, 3}; in main() local
63 …(comm, 2, 2, PETSC_DETERMINE, PETSC_DETERMINE, rank ? i2 : i1, rank ? j2 : j1, rank ? a2 : a1, &A)… in main()
|
| H A D | ex266.c | 20 …PetscInt j1[] = {2, 3, 16, 9, 5, 17, 1, 13, 4, 10, 16, 11, -5, 12, 1, 7, -1, 2, 7, 3, 6, 11, 0, 1… in main() local
32 {i1, j1, PETSC_STATIC_ARRAY_LENGTH(i1)}, in main()
|
| H A D | ex123.c | 15 PetscInt j1[] = {1, 4, 3, 5, 3, 3, 4, 5, 0, 3, 1, -1, -1}; in main() local
77 for (i = 0; i < n1; i++) j1[i] += cstart; in main()
80 for (i = 0; i < n1; i++) j1[i] += cstart + m; in main()
92 PetscCall(MatSetPreallocationCOO(A, n1, i1, j1)); in main()
95 PetscCall(PetscArraycpy(jt, j1, n1)); in main()
|
| H A D | ex254.c | 22 …PetscInt j1[] = {2, 3, 16, 9, 5, 17, 1, 13, 4, 10, 16, 11, -5, 12, 1, 7, -1, 2, 7, 3, 6, 11, 0, 1… in main() local
34 {i1, j1, PETSC_STATIC_ARRAY_LENGTH(i1)}, in main()
|
| /petsc/src/mat/impls/aij/mpi/ |
| H A D | mpiaij.c | 6081 static PetscErrorCode MatMergeEntries_Internal(Mat mat, const PetscInt j1[], const PetscInt j2[], c… in MatMergeEntries_Internal() argument
6096 if (j1[b1] == j2[b2]) { /* Same column index and hence same nonzero */ in MatMergeEntries_Internal()
6097 j[t] = j1[b1]; in MatMergeEntries_Internal()
6105 } else if (j1[b1] < j2[b2]) { in MatMergeEntries_Internal()
6106 j[t] = j1[b1]; in MatMergeEntries_Internal()
6121 j[t] = j1[b1]; in MatMergeEntries_Internal()
6374 PetscInt *i1 = coo_i, *j1 = coo_j; in MatSetPreallocationCOO_MPIAIJ() local
6384 …if (i1[k] < 0 || j1[k] < 0) i1[k] = PETSC_INT_MIN; /* e.g., -2^31, minimal to move … in MatSetPreallocationCOO_MPIAIJ()
6393 PetscCall(PetscSortIntWithIntCountArrayPair(n1, i1, j1, perm1)); in MatSetPreallocationCOO_MPIAIJ()
6491 …PetscAssert(rem == 0 || j1 != NULL, PETSC_COMM_SELF, PETSC_ERR_PLIB, "Cannot add nonzero offset to… in MatSetPreallocationCOO_MPIAIJ()
[all …]
|
| /petsc/src/ts/tutorials/ |
| H A D | ex48.c | 442 u[0] = 2.0 / (k * j0(k)) * j1(k * r) * cos_theta; in initialSolution_Psi()
|