| /petsc/src/mat/tests/ |
| H A D | ex67f.F90 | 12 PetscInt nis, zero(1)
30 nis = 1
33 nis = 0 ! test nis = 0
35 PetscCallA(ISCreateGeneral(PETSC_COMM_SELF, nis, zero, PETSC_COPY_VALUES, isrow, ierr))
37 PetscCallA(MatCreateSubmatrices(A, nis, [isrow], [isrow], MAT_INITIAL_MATRIX, B, ierr))
43 PetscCallA(MatCreateSubmatrices(A, nis, [isrow], [isrow], MAT_REUSE_MATRIX, B, ierr))
51 PetscCallA(MatDestroySubMatrices(nis, B, ierr))
|
| H A D | ex183.c | 30 PetscInt nis, *cols, gnsubdomains, gsubdomainnums[1], gsubdomainperm[1], s, gs; in main() local
96 nis = 1; in main()
204 for (k = 0; k < nis; ++k) { in main()
|
| /petsc/src/mat/impls/aij/seq/ |
| H A D | fdaij.c | 12 PetscInt bs, nis = iscoloring->n, m = mat->rmap->n; in MatFDColoringCreate_SeqXAIJ() local
40 if (bcols > nis) bcols = nis; in MatFDColoringCreate_SeqXAIJ()
50 c->ncolors = nis; in MatFDColoringCreate_SeqXAIJ()
64 PetscInt i, j, nrows, nbcols, brows = c->brows, bcols = c->bcols, mbs = c->m, nis = c->ncolors; in MatFDColoringSetUpBlocked_AIJ_Private() local
70 PetscCall(PetscCalloc1(nis, &nrows_new)); in MatFDColoringSetUpBlocked_AIJ_Private()
81 for (i = 0; i < nis; i += bcols) { /* loop over colors */ in MatFDColoringSetUpBlocked_AIJ_Private()
82 if (i + bcols > nis) { in MatFDColoringSetUpBlocked_AIJ_Private()
83 color_start[nis - i] = color_start[bcols]; in MatFDColoringSetUpBlocked_AIJ_Private()
84 bcols = nis - i; in MatFDColoringSetUpBlocked_AIJ_Private()
126 for (i = 0; i < nis; i += bcols) { /* loop over colors */ in MatFDColoringSetUpBlocked_AIJ_Private()
[all …]
|
| H A D | matmatmult.c | 1846 PetscInt nis = iscoloring->n, *rowhit, bs = 1; in MatTransposeColoringCreate_SeqAIJ() local
1864 c->ncolors = nis; in MatTransposeColoringCreate_SeqAIJ()
1865 PetscCall(PetscMalloc3(nis, &c->ncolumns, nis, &c->nrows, nis + 1, &colorforrow)); in MatTransposeColoringCreate_SeqAIJ()
1872 if (brows > 0) PetscCall(PetscMalloc1(nis + 1, &c->lstart)); in MatTransposeColoringCreate_SeqAIJ()
1878 PetscCall(PetscMalloc1(nis + 1, &colorforcol)); in MatTransposeColoringCreate_SeqAIJ()
1890 for (i = 0; i < nis; i++) { /* loop over color */ in MatTransposeColoringCreate_SeqAIJ()
1935 … colorforrow[nis], PETSC_COMM_SELF, PETSC_ERR_PLIB, "csp->nz %" PetscInt_FMT " != colorforrow[nis]… in MatTransposeColoringCreate_SeqAIJ()
|
| /petsc/src/vec/is/tests/ |
| H A D | ex6.c | 7 IS nis; in TestRenumber() local
20 PetscCall(ISRenumber(is, mult, NULL, &nis)); in TestRenumber()
21 PetscCall(ISView(nis, NULL)); in TestRenumber()
22 PetscCall(ISDestroy(&nis)); in TestRenumber()
|
| /petsc/src/ksp/ksp/tests/ |
| H A D | ex31.c | 59 IS mis, nis, is; in main() local
80 PetscCall(ISPartitioningToNumbering(mis, &nis)); in main()
83 PetscCall(ISView(nis, PETSC_VIEWER_STDOUT_WORLD)); in main()
95 PetscCall(ISInvertPermutation(nis, count[rank], &is)); in main()
97 PetscCall(ISDestroy(&nis)); in main()
|
| H A D | ex30.c | 199 IS mis, nis, is; in main() local
212 PetscCall(ISPartitioningToNumbering(mis, &nis)); in main()
215 PetscCall(ISInvertPermutation(nis, count[rank], &is)); in main()
217 PetscCall(ISDestroy(&nis)); in main()
|
| /petsc/src/mat/impls/aij/mpi/ |
| H A D | fdmpiaij.c | 408 PetscInt nis = iscoloring->n, nctot, *cols, tmp = 0; in MatFDColoringSetUp_MPIXAIJ() local
513 PetscCall(PetscMalloc2(nis, &c->ncolumns, nis, &c->columns)); in MatFDColoringSetUp_MPIXAIJ()
514 PetscCall(PetscMalloc1(nis, &c->nrows)); in MatFDColoringSetUp_MPIXAIJ()
533 for (PetscInt i = 0; i < nis; i++) { /* for each local color */ in MatFDColoringSetUp_MPIXAIJ()
660 PetscInt bs, nis = iscoloring->n, m = mat->rmap->n; in MatFDColoringCreate_MPIXAIJ() local
690 if (bcols > nis) bcols = nis; in MatFDColoringCreate_MPIXAIJ()
712 if (bcols > nis) bcols = nis; in MatFDColoringCreate_MPIXAIJ()
722 c->ncolors = nis; in MatFDColoringCreate_MPIXAIJ()
|
| /petsc/src/mat/impls/sbaij/mpi/ |
| H A D | sbaijov.c | 19 PetscInt *ai, brow, nz, nis, l, nmax, nstages, max_no, pos; in MatIncreaseOverlap_MPISBAIJ() local
93 PetscCall(ISGetLocalSize(is_new[i], &nis)); in MatIncreaseOverlap_MPISBAIJ()
94 for (l = 0; l < nis; l++) { in MatIncreaseOverlap_MPISBAIJ()
98 isz = nis; in MatIncreaseOverlap_MPISBAIJ()
127 PetscCall(ISGetLocalSize(is_new[i], &nis)); in MatIncreaseOverlap_MPISBAIJ()
129 …PetscCall(ISCreateBlock(PetscObjectComm((PetscObject)is_new[i]), bs, nis, idx, PETSC_COPY_VALUES, … in MatIncreaseOverlap_MPISBAIJ()
|
| /petsc/src/dm/impls/swarm/ |
| H A D | swarm_migrate.c | 278 IS nis; in DMSwarmMigrate_CellDMScatter() local
286 …reateStride(PETSC_COMM_SELF, npoints_from_neighbours * bs, npoints_prior_migration * bs, 1, &nis)); in DMSwarmMigrate_CellDMScatter()
296 PetscCall(VecGetSubVector(pos, nis, &npos)); in DMSwarmMigrate_CellDMScatter()
298 PetscCall(VecRestoreSubVector(pos, nis, &npos)); in DMSwarmMigrate_CellDMScatter()
308 PetscCall(VecGetSubVector(pos, nis, &npos)); in DMSwarmMigrate_CellDMScatter()
310 PetscCall(VecRestoreSubVector(pos, nis, &npos)); in DMSwarmMigrate_CellDMScatter()
312 PetscCall(ISDestroy(&nis)); in DMSwarmMigrate_CellDMScatter()
|
| /petsc/src/ksp/pc/impls/bddc/ |
| H A D | bddcprivate.c | 2099 IS nis; in PCBDDCConsistencyCheckIS() local
2128 …PetscCall(ISCreateGeneral(PetscObjectComm((PetscObject)*is), nnd, nidxs, PETSC_OWN_POINTER, &nis)); in PCBDDCConsistencyCheckIS()
2130 *is = nis; in PCBDDCConsistencyCheckIS()
7989 …trict_comm, PetscBool restrict_full, PetscBool reuse, Mat *mat_n, PetscInt nis, IS isarray[], Pets… in PCBDDCMatISSubassemble() argument
8025 PetscValidLogicalCollectiveInt(mat, nis, 8); in PCBDDCMatISSubassemble()
8120 if (nis) PetscCall(PetscCalloc1(size, &ilengths_idxs_is)); in PCBDDCMatISSubassemble()
8153 if (nis) { in PCBDDCMatISSubassemble()
8156 for (j = 0, psum = 0; j < nis; j++) { in PCBDDCMatISSubassemble()
8163 for (j = 0, psum = 0; j < nis; j++) { in PCBDDCMatISSubassemble()
8185 if (nis) buf_size_idxs_is += olengths_idxs_is[i]; in PCBDDCMatISSubassemble()
[all …]
|
| /petsc/src/ksp/pc/impls/fieldsplit/ |
| H A D | fieldsplit.c | 659 PetscInt mis, nis; in PCSetUp_FieldSplit() local
661 PetscCall(MatNestGetSize(pc->pmat, &mis, &nis)); in PCSetUp_FieldSplit()
662 PetscCall(PetscMalloc2(mis, &rowis, nis, &colis)); in PCSetUp_FieldSplit()
|