| /petsc/src/mat/tests/ |
| H A D | ex260.c | 10 PetscInt *ii, *jd, *jo; in main() local
20 PetscCall(PetscMalloc4(n + 1, &ii, n * nzr, &jd, n * nzr, &jo, n * nzr, &a)); in main()
26 for (PetscInt j = 0; j < nzr; j++) jo[ii[i] + j] = n + j - 1; in main()
28 for (PetscInt j = 0; j < nzr; j++) jo[ii[i] + j] = j; in main()
31 …thSplitArrays(PETSC_COMM_WORLD, n, n, PETSC_DETERMINE, PETSC_DETERMINE, ii, jd, a, ii, jo, a, &A)); in main()
34 PetscCall(PetscFree4(ii, jd, jo, a)); in main()
|
| H A D | ex23.c | 410 PetscInt j, je, jo, colse[3], colso[3]; in main() local
423 for (j = 0, je = 0, jo = 0; j < 3; j++) { in main()
425 vo[jo] = v[j]; in main()
426 colso[jo++] = cols[j] / 2; in main()
434 PetscCall(MatSetValuesBlockedLocal(Aoo, 1, &row, jo, colso, vo, ADD_VALUES)); in main()
437 PetscCall(MatSetValuesBlockedLocal(Aeo, 1, &row, jo, colso, vo, ADD_VALUES)); in main()
|
| /petsc/src/mat/impls/hypre/ |
| H A D | mhypre.c | 256 PetscInt cum, dr, dc, oc, str, stc, nnz, i, jd, jo, M, N; in MatConvert_HYPRE_IS() local
336 for (jd = 0, jo = 0, cum = 0; *ii < nnz; cum++) { in MatConvert_HYPRE_IS()
338 PetscInt *jold = jj, nc = jd + jo; in MatConvert_HYPRE_IS()
343 for (; jo < *hoi; jo++) { in MatConvert_HYPRE_IS()
348 PetscCall(PetscSortIntWithScalarArray(jd + jo - nc, jold, aold)); in MatConvert_HYPRE_IS()
|
| /petsc/src/mat/impls/aij/mpi/ |
| H A D | mpiaij.c | 5129 PetscInt *ci, *cj, col, ncols_d, ncols_o, jo; in MatMPIAIJGetLocalMat() local
5168 for (jo = 0; jo < ncols_o; jo++) { in MatMPIAIJGetLocalMat()
5181 for (j = jo; j < ncols_o; j++) { in MatMPIAIJGetLocalMat()
5202 for (jo = 0; jo < ncols_o; jo++) { in MatMPIAIJGetLocalMat()
5212 for (j = jo; j < ncols_o; j++) { in MatMPIAIJGetLocalMat()
|
| /petsc/src/mat/impls/baij/mpi/ |
| H A D | mpibaij.c | 2730 const PetscInt *id = d->i, *jd = d->j, *io = o->i, *jo = o->j, *garray = b->garray; in MatConvert_MPIBAIJ_MPIAdj() local
2751 if (garray[jo[j]] > rstart) break; in MatConvert_MPIBAIJ_MPIAdj()
2752 jj[cnt++] = garray[jo[j]]; in MatConvert_MPIBAIJ_MPIAdj()
2757 for (; j < io[i + 1]; j++) jj[cnt++] = garray[jo[j]]; in MatConvert_MPIBAIJ_MPIAdj()
|
| /petsc/src/mat/impls/is/ |
| H A D | matis.c | 640 PetscInt rbs, cbs, lc, dr, dc, oc, str, stc, nnz, i, jd, jo, cum; in MatConvert_XAIJ_IS() local
781 for (jd = 0, jo = 0, cum = 0; *ii < nnz; cum++) { in MatConvert_XAIJ_IS()
786 for (; jo < *oi; jo++) { in MatConvert_XAIJ_IS()
|