| /petsc/src/dm/partitioner/impls/parmetis/ |
| H A D | partparmetis.c | 19 MPI_Comm pcomm; member 33 PetscCallMPI(MPI_Comm_free(&p->pcomm)); in PetscPartitionerDestroy_ParMetis() 185 MPI_Comm pcomm = pm->pcomm; in PetscPartitionerPartition_ParMetis() local 194 PetscCallMPI(MPI_Comm_split(pm->pcomm, !!nvtxs, rank, &pcomm)); in PetscPartitionerPartition_ParMetis() 205 …t, &wgtflag, &numflag, &ncon, &nparts, tpwgts, ubvec, options, &part->edgeCut, assignment, &pcomm); in PetscPartitionerPartition_ParMetis() 209 if (hasempty) PetscCallMPI(MPI_Comm_free(&pcomm)); in PetscPartitionerPartition_ParMetis() 267 PetscCallMPI(MPI_Comm_dup(PetscObjectComm((PetscObject)part), &p->pcomm)); in PetscPartitionerCreate_ParMetis()
|
| /petsc/src/dm/partitioner/impls/ptscotch/ |
| H A D | partptscotch.c | 22 MPI_Comm pcomm; member 158 PetscCallMPI(MPI_Comm_free(&p->pcomm)); in PetscPartitionerDestroy_PTScotch() 268 MPI_Comm pcomm = pts->pcomm; in PetscPartitionerPartition_PTScotch() local 273 PetscCallMPI(MPI_Comm_split(pts->pcomm, !!nvtxs, rank, &pcomm)); in PetscPartitionerPartition_PTScotch() 281 …rtGraph_MPI(strat, imbal, vtxdist, xadj, adjncy, vwgt, adjwgt, nparts, tpwgts, assignment, pcomm)); in PetscPartitionerPartition_PTScotch() 282 if (hasempty) PetscCallMPI(MPI_Comm_free(&pcomm)); in PetscPartitionerPartition_PTScotch() 341 PetscCallMPI(MPI_Comm_dup(PetscObjectComm((PetscObject)part), &p->pcomm)); in PetscPartitionerCreate_PTScotch()
|
| /petsc/src/dm/partitioner/impls/multistage/ |
| H A D | mspart.c | 71 MPI_Comm pcomm = PetscObjectComm((PetscObject)ppart); in PetscPartitionerView_Multistage() local 76 if (pcomm != MPI_COMM_NULL) PetscCallMPI(MPI_Comm_group(pcomm, &pgroup)); in PetscPartitionerView_Multistage() 106 if (pcomm == MPI_COMM_NULL) pcomm = PETSC_COMM_SELF; in PetscPartitionerView_Multistage() 107 PetscCall(PetscViewerGetSubViewer(viewer, pcomm, &pviewer)); in PetscPartitionerView_Multistage() 133 PetscCall(PetscViewerRestoreSubViewer(viewer, pcomm, &pviewer)); in PetscPartitionerView_Multistage() 461 MPI_Comm pcomm; in PetscPartitionerMultistageSetStages() local 469 PetscCall(PetscObjectGetComm((PetscObject)p->ppart[l], &pcomm)); in PetscPartitionerMultistageSetStages() 471 pcomm = PETSC_COMM_SELF; in PetscPartitionerMultistageSetStages() 481 PetscCall(PetscSectionCreate(pcomm, &p->tpwgs[l])); in PetscPartitionerMultistageSetStages() 501 PetscCallMPI(MPIU_Allreduce(&isize, &isizer, 1, MPI_INT, MPI_MAX, pcomm)); in PetscPartitionerMultistageSetStages() [all …]
|
| /petsc/src/mat/graphops/partition/impls/scotch/ |
| H A D | scotch.c | 263 MPI_Comm pcomm, comm; in MatPartitioningApply_PTScotch_Private() local 276 PetscCall(PetscObjectGetComm((PetscObject)part, &pcomm)); in MatPartitioningApply_PTScotch_Private() 278 PetscCallMPI(MPI_Comm_dup(pcomm, &comm)); in MatPartitioningApply_PTScotch_Private() 325 SETERRQ(pcomm, PETSC_ERR_SUP, "Need libptscotchparmetis.a compiled with -DSCOTCH_METIS_PREFIX"); in MatPartitioningApply_PTScotch_Private() 415 … PetscCall(ISCreateGeneral(pcomm, bs * mat->rmap->n, newlocals, PETSC_OWN_POINTER, partitioning)); in MatPartitioningApply_PTScotch_Private() 417 PetscCall(ISCreateGeneral(pcomm, mat->rmap->n, locals, PETSC_OWN_POINTER, partitioning)); in MatPartitioningApply_PTScotch_Private() 423 PetscCall(ISCreateBlock(pcomm, bs, mat->rmap->n, NDorder, PETSC_OWN_POINTER, &ndis)); in MatPartitioningApply_PTScotch_Private() 425 PetscCall(ISCreateGeneral(pcomm, mat->rmap->n, NDorder, PETSC_OWN_POINTER, &ndis)); in MatPartitioningApply_PTScotch_Private()
|
| /petsc/src/dm/impls/moab/ |
| H A D | dmmbvec.cxx | 166 merr = dmmoab->pcomm->exchange_tags(vtag, *dmmoab->vlocal); in DMMoabVecGetArray() 257 merr = dmmoab->pcomm->reduce_tags(vtag, MPI_SUM, *dmmoab->vlocal); in DMMoabVecRestoreArray() 326 merr = dmmoab->pcomm->exchange_tags(vtag, *dmmoab->vlocal); in DMMoabVecGetArrayRead() 407 moab::ParallelComm *pcomm = dmmoab->pcomm; in DMCreateVector_Moab_Private() local 442 PetscCall(DMVecCreateTagName_Moab_Private(mbiface, pcomm, &tag_name)); in DMCreateVector_Moab_Private() 470 vmoab->pcomm = pcomm; in DMCreateVector_Moab_Private() 536 PetscErrorCode DMVecCreateTagName_Moab_Private(moab::Interface *mbiface, moab::ParallelComm *pcomm,… in DMVecCreateTagName_Moab_Private() argument 564 PetscCallMPI(MPIU_Allreduce(&n, &global_n, 1, MPI_INT, MPI_MAX, pcomm->comm())); in DMVecCreateTagName_Moab_Private() 635 vmoab->pcomm = NULL; in DMVecCtxDestroy_Moab()
|
| H A D | dmmoab.cxx | 127 dmmoab->pcomm = moab::ParallelComm::get_pcomm(dmmoab->mbiface, partnset, &comm); in DMMoabCreateMoab() 177 PetscErrorCode DMMoabGetParallelComm(DM dm, moab::ParallelComm **pcomm) in DMMoabGetParallelComm() argument 181 *pcomm = ((DM_Moab *)dm->data)->pcomm; in DMMoabGetParallelComm() 208 dmmoab->pcomm = NULL; in DMMoabSetInterface() 271 …merr = dmmoab->pcomm->filter_pstatus(*dmmoab->vlocal, PSTATUS_NOT_OWNED, PSTATUS_NOT, -1, dmmoab->… in DMMoabSetLocalVertices() 276 …merr = dmmoab->pcomm->filter_pstatus(tmpvtxs, PSTATUS_INTERFACE, PSTATUS_OR, -1, dmmoab->vghost… in DMMoabSetLocalVertices() 390 merr = dmmoab->pcomm->filter_pstatus(*dmmoab->elocal, PSTATUS_NOT_OWNED, PSTATUS_NOT); in DMMoabSetLocalElements() 935 delete dmmoab->pcomm; in DMDestroy_Moab() 942 dmmoab->pcomm = NULL; in DMDestroy_Moab() 983 …PetscCheck(dmmoab->pcomm != NULL, PETSC_COMM_WORLD, PETSC_ERR_ORDER, "Set the MOAB ParallelComm ob… in DMSetUp_Moab() [all …]
|
| H A D | dmmbutil.cxx | 506 moab::ParallelComm *pcomm; in DMMoabCreateBoxMesh() local 542 pcomm = dmmoab->pcomm; in DMMoabCreateBoxMesh() 543 global_rank = pcomm->rank(); in DMMoabCreateBoxMesh() 730 merr = pcomm->check_all_shared_handles(); in DMMoabCreateBoxMesh() 734 merr = pcomm->resolve_shared_ents(dmmoab->fileset, cells, dim, dim - 1, NULL, &global_id_tag); in DMMoabCreateBoxMesh() 737 merr = pcomm->exchange_ghost_cells(dim, 0, nghost, dim, true, false, &dmmoab->fileset); in DMMoabCreateBoxMesh() 740 merr = pcomm->exchange_ghost_cells(dim, 0, nghost, dim, true, false); in DMMoabCreateBoxMesh() 745 merr = pcomm->assign_global_ids(dmmoab->fileset, dim, 1, false, true, false); in DMMoabCreateBoxMesh() 766 merr = dmmoab->pcomm->delete_entities(toDelete); in DMMoabCreateBoxMesh() 841 moab::ParallelComm *pcomm; in DMMoabLoadFromFile() local [all …]
|
| H A D | dmmbio.cxx | 69 …PetscCall(DMMoab_GetWriteOptions_Private(dmmoab->pcomm->get_id(), dmmoab->pcomm->size(), dmmoab->d… in DMMoabOutput()
|
| H A D | dmmbmg.cxx | 53 …ew moab::NestedRefine(dynamic_cast<moab::Core *>(dmmoab->mbiface), dmmoab->pcomm, dmmoab->fileset); in DMMoabGenerateHierarchy() 65 if (dmmoab->pcomm->size() > 1) { in DMMoabGenerateHierarchy() 77 merr = dmmoab->pcomm->assign_global_ids(hsets[ilevel], dmmoab->dim, 0, false, true, false); in DMMoabGenerateHierarchy() 441 dd2->pcomm = dmb->pcomm; in DMMoab_UMR_Private()
|
| H A D | dmmbfield.cxx | 59 merr = dmmoab->pcomm->exchange_tags(ntag, *dmmoab->vowned); in DMMoabSetFieldVector() 134 merr = dmmoab->pcomm->exchange_tags(ntag, *dmmoab->vlocal); in DMMoabSetGlobalFieldVector()
|
| H A D | dmmbmat.cxx | 88 if (dmmoab->hlevel && (dmmoab->pcomm->size() == 1)) { in DMMoab_Compute_NNZ_From_Connectivity()
|
| /petsc/include/petsc/private/ |
| H A D | dmmbimpl.h | 15 moab::ParallelComm *pcomm; member 63 moab::ParallelComm *pcomm; /* MOAB ParallelComm reference */ member
|
| /petsc/src/sys/objects/ |
| H A D | subcomm.c | 322 PetscErrorCode PetscSubcommGetParent(PetscSubcomm scomm, MPI_Comm *pcomm) in PetscSubcommGetParent() argument 324 *pcomm = PetscSubcommParent(scomm); in PetscSubcommGetParent() 345 PetscErrorCode PetscSubcommGetContiguousParent(PetscSubcomm scomm, MPI_Comm *pcomm) in PetscSubcommGetContiguousParent() argument 347 *pcomm = PetscSubcommContiguousParent(scomm); in PetscSubcommGetContiguousParent()
|
| H A D | pinit.c | 378 struct PetscCommStash *comms = counter->comms, *pcomm; in Petsc_Counter_Attr_DeleteFn() local 385 pcomm = comms; in Petsc_Counter_Attr_DeleteFn() 387 PetscCallReturnMPI(PetscFree(pcomm)); in Petsc_Counter_Attr_DeleteFn()
|
| /petsc/src/sys/objects/ftn-custom/ |
| H A D | zoptionsf.c | 341 PETSC_EXTERN void petscsubcommgetparent_(PetscSubcomm *scomm, MPI_Fint *pcomm, int *ierr) in petscsubcommgetparent_() argument 346 *pcomm = MPI_Comm_c2f(tcomm); in petscsubcommgetparent_() 349 PETSC_EXTERN void petscsubcommgetcontiguousparent_(PetscSubcomm *scomm, MPI_Fint *pcomm, int *ierr) in petscsubcommgetcontiguousparent_() argument 354 *pcomm = MPI_Comm_c2f(tcomm); in petscsubcommgetcontiguousparent_()
|
| /petsc/src/mat/graphops/partition/impls/pmetis/ |
| H A D | pmetis.c | 63 MPI_Comm pcomm, comm; in MatPartitioningApply_Parmetis_Private() local 72 PetscCall(PetscObjectGetComm((PetscObject)pmat, &pcomm)); in MatPartitioningApply_Parmetis_Private() 121 PetscCallMPI(MPI_Comm_dup(pcomm, &comm)); in MatPartitioningApply_Parmetis_Private()
|
| /petsc/src/ksp/ksp/impls/cg/pipecg2/ |
| H A D | pipecg2.c | 558 MPI_Comm pcomm; in KSPSolve_PIPECG2() local 563 pcomm = PetscObjectComm((PetscObject)ksp); in KSPSolve_PIPECG2() 615 PetscCallMPI(MPI_Iallreduce(MPI_IN_PLACE, &lambda[10], 3, MPIU_SCALAR, MPIU_SUM, pcomm, &req)); in KSPSolve_PIPECG2() 617 PetscCallMPI(MPIU_Allreduce(MPI_IN_PLACE, &lambda[10], 3, MPIU_SCALAR, MPIU_SUM, pcomm)); in KSPSolve_PIPECG2() 637 PetscCallMPI(MPIU_Allreduce(MPI_IN_PLACE, &lambda[1], 1, MPIU_SCALAR, MPIU_SUM, pcomm)); in KSPSolve_PIPECG2() 638 PetscCallMPI(MPIU_Allreduce(MPI_IN_PLACE, &lambda[6], 1, MPIU_SCALAR, MPIU_SUM, pcomm)); in KSPSolve_PIPECG2() 683 PetscCallMPI(MPI_Iallreduce(MPI_IN_PLACE, lambda, 15, MPIU_SCALAR, MPIU_SUM, pcomm, &req)); in KSPSolve_PIPECG2() 685 PetscCallMPI(MPIU_Allreduce(MPI_IN_PLACE, lambda, 15, MPIU_SCALAR, MPIU_SUM, pcomm)); in KSPSolve_PIPECG2()
|
| /petsc/src/mat/impls/baij/mpi/ |
| H A D | mpibaij.c | 2039 MPI_Comm comm, pcomm; in MatPermute_MPIBAIJ() local 2048 PetscCall(PetscObjectGetComm((PetscObject)rowp, &pcomm)); in MatPermute_MPIBAIJ() 2049 if (pcomm == comm) { in MatPermute_MPIBAIJ() 2059 PetscCall(PetscObjectGetComm((PetscObject)colp, &pcomm)); in MatPermute_MPIBAIJ() 2060 PetscCallMPI(MPI_Comm_size(pcomm, &size)); in MatPermute_MPIBAIJ() 2071 if (pcomm != comm) PetscCall(ISDestroy(&crowp)); in MatPermute_MPIBAIJ()
|