Lines Matching refs:comm
26 PetscErrorCode PetscSplitOwnershipBlock(MPI_Comm comm, PetscInt bs, PetscInt *n, PetscInt *N) in PetscSplitOwnershipBlock() argument
35 PetscCallMPI(MPIU_Allreduce(n, N, 1, MPIU_INT, MPI_SUM, comm)); in PetscSplitOwnershipBlock()
38 PetscCallMPI(MPI_Comm_size(comm, &size)); in PetscSplitOwnershipBlock()
39 PetscCallMPI(MPI_Comm_rank(comm, &rank)); in PetscSplitOwnershipBlock()
67 PetscErrorCode PetscSplitOwnership(MPI_Comm comm, PetscInt *n, PetscInt *N) in PetscSplitOwnership() argument
77 PetscCallMPI(MPI_Comm_size(comm, &size)); in PetscSplitOwnership()
78 PetscCallMPI(MPIU_Allreduce(l, g, 2, MPI_INT, MPI_SUM, comm)); in PetscSplitOwnership()
79 …PetscCheck(!g[0] || g[0] == size, comm, PETSC_ERR_ARG_INCOMP, "All processes must supply PETSC_DEC… in PetscSplitOwnership()
80 …PetscCheck(!g[1] || g[1] == size, comm, PETSC_ERR_ARG_INCOMP, "All processes must supply PETSC_DEC… in PetscSplitOwnership()
84 PetscCallMPI(MPIU_Allreduce(n, N, 1, MPIU_INT, MPI_SUM, comm)); in PetscSplitOwnership()
86 PetscCallMPI(MPI_Comm_size(comm, &size)); in PetscSplitOwnership()
87 PetscCallMPI(MPI_Comm_rank(comm, &rank)); in PetscSplitOwnership()
91 PetscCallMPI(MPIU_Allreduce(n, &tmp, 1, MPIU_INT, MPI_SUM, comm)); in PetscSplitOwnership()
123 PetscErrorCode PetscSplitOwnershipEqual(MPI_Comm comm, PetscInt *n, PetscInt *N) in PetscSplitOwnershipEqual() argument
133 PetscCallMPI(MPI_Comm_size(comm, &size)); in PetscSplitOwnershipEqual()
134 PetscCallMPI(MPIU_Allreduce(l, g, 2, MPI_INT, MPI_SUM, comm)); in PetscSplitOwnershipEqual()
135 …PetscCheck(!g[0] || g[0] == size, comm, PETSC_ERR_ARG_INCOMP, "All processes must supply PETSC_DEC… in PetscSplitOwnershipEqual()
136 …PetscCheck(!g[1] || g[1] == size, comm, PETSC_ERR_ARG_INCOMP, "All processes must supply PETSC_DEC… in PetscSplitOwnershipEqual()
140 PetscCallMPI(MPIU_Allreduce(n, N, 1, MPIU_INT, MPI_SUM, comm)); in PetscSplitOwnershipEqual()
142 PetscCallMPI(MPI_Comm_size(comm, &size)); in PetscSplitOwnershipEqual()
143 PetscCallMPI(MPI_Comm_rank(comm, &rank)); in PetscSplitOwnershipEqual()
152 PetscCallMPI(MPIU_Allreduce(n, &tmp, 1, MPIU_INT, MPI_SUM, comm)); in PetscSplitOwnershipEqual()