| /petsc/src/ksp/pc/impls/gasm/ |
| H A D | gasm.c | 25 …IS *iis; /* index sets that define the inner (conceptually, nonoverlapping) subdo… member
47 …balNumbering(PetscObjectComm((PetscObject)pc), osm->n, (PetscObject *)osm->iis, NULL, *numbering)); in PCGASMComputeGlobalSubdomainNumbering_Private()
75 PetscCall(ISGetLocalSize(osm->iis[i], &nidx)); in PCGASMSubdomainView_Private()
78 PetscCall(ISGetIndices(osm->iis[i], &idx)); in PCGASMSubdomainView_Private()
80 PetscCall(ISRestoreIndices(osm->iis[i], &idx)); in PCGASMSubdomainView_Private()
245 PETSC_INTERN PetscErrorCode PCGASMCreateLocalSubdomains(Mat A, PetscInt nloc, IS *iis[]);
331 PetscCall(PCGASMCreateSubdomains(pc->pmat, osm->N, &osm->n, &osm->iis)); in PCSetUp_GASM()
349 PetscCall(PCGASMCreateLocalSubdomains(pc->pmat, osm->n, &osm->iis)); in PCSetUp_GASM()
352 if (!osm->iis) { in PCSetUp_GASM()
358 PetscCall(PCGASMCreateLocalSubdomains(pc->pmat, osm->n, &osm->iis)); in PCSetUp_GASM()
[all …]
|
| /petsc/src/mat/tests/ |
| H A D | ex40.c | 8 PetscErrorCode ISAllGatherDisjoint(IS iis, IS **ois) in ISAllGatherDisjoint() argument
16 PetscCallMPI(MPI_Comm_size(PetscObjectComm((PetscObject)iis), &size)); in ISAllGatherDisjoint()
19 PetscCall(ISGetLocalSize(iis, &ls)); in ISAllGatherDisjoint()
21 …PetscCallMPI(MPI_Allgather(&ls, 1, MPIU_INT, sizes, 1, MPIU_INT, PetscObjectComm((PetscObject)iis)… in ISAllGatherDisjoint()
22 PetscCall(ISAllGather(iis, &is)); in ISAllGatherDisjoint()
|
| /petsc/src/ksp/pc/impls/gasm/ftn-custom/ |
| H A D | zgasmf.c | 33 IS *iis, *iisl; in pcgasmcreatesubdomains2d_() local
34 *ierr = PCGASMCreateSubdomains2D(*pc, *m, *n, *M, *N, *dof, *overlap, Nsub, &iis, &iisl); in pcgasmcreatesubdomains2d_()
36 *ierr = F90Array1dCreate(iis, MPIU_FORTRANADDR, 1, *Nsub, is1 PETSC_F90_2PTR_PARAM(ptrd1)); in pcgasmcreatesubdomains2d_()
|
| /petsc/src/ksp/pc/impls/asm/ftn-custom/ |
| H A D | zasmf.c | 79 IS *iis, *iisl; in pcasmcreatesubdomains2d_() local
81 *ierr = PCASMCreateSubdomains2D(*m, *n, *M, *N, *dof, *overlap, Nsub, &iis, &iisl); in pcasmcreatesubdomains2d_()
83 *ierr = F90Array1dCreate(iis, MPIU_FORTRANADDR, 1, *Nsub, is1 PETSC_F90_2PTR_PARAM(ptrd1)); in pcasmcreatesubdomains2d_()
|
| /petsc/src/dm/tutorials/ |
| H A D | ex14.c | 65 IS *ois, *iis; in main() local
88 PetscCall(DMCreateDomainDecomposition(da, NULL, NULL, &iis, &ois, &subda)); in main()
221 PetscCall(ISDestroy(&iis[0])); in main()
235 PetscCall(PetscFree(iis)); in main()
|
| /petsc/src/dm/impls/da/ |
| H A D | dadd.c | 503 static PetscErrorCode DMDASubDomainIS_Private(DM dm, PetscInt n, DM *subdm, IS **iis, IS **ois) in DMDASubDomainIS_Private() argument
512 if (iis) PetscCall(PetscMalloc1(n, iis)); in DMDASubDomainIS_Private()
517 if (iis) { in DMDASubDomainIS_Private()
525 PetscCall(DMDACreatePatchIS(dm, &lower, &upper, &(*iis)[i], patchis_offproc)); in DMDASubDomainIS_Private()
542 PetscErrorCode DMCreateDomainDecomposition_DA(DM dm, PetscInt *len, char ***names, IS **iis, IS **o… in DMCreateDomainDecomposition_DA() argument
553 PetscCall(DMDASubDomainIS_Private(dm, n, sdm, iis, ois)); in DMCreateDomainDecomposition_DA()
|
| /petsc/src/mat/impls/aij/mpi/ |
| H A D | mpiaij.c | 352 PetscInt n, *iis, nsis, ngis, rstart, i; in MatFindOffBlockDiagonalEntries_MPIAIJ() local
362 PetscCall(PetscMalloc1(ngis + nsis, &iis)); in MatFindOffBlockDiagonalEntries_MPIAIJ()
363 PetscCall(PetscArraycpy(iis, igis, ngis)); in MatFindOffBlockDiagonalEntries_MPIAIJ()
364 PetscCall(PetscArraycpy(iis + ngis, isis, nsis)); in MatFindOffBlockDiagonalEntries_MPIAIJ()
366 PetscCall(PetscSortRemoveDupsInt(&n, iis)); in MatFindOffBlockDiagonalEntries_MPIAIJ()
368 for (i = 0; i < n; i++) iis[i] += rstart; in MatFindOffBlockDiagonalEntries_MPIAIJ()
369 PetscCall(ISCreateGeneral(PetscObjectComm((PetscObject)A), n, iis, PETSC_OWN_POINTER, is)); in MatFindOffBlockDiagonalEntries_MPIAIJ()
|