8 PETSC_INTERN PetscErrorCode PetscSequentialPhaseBegin_Private(MPI_Comm comm, int ng)  in PetscSequentialPhaseBegin_Private()  argument
14   PetscCallMPI(MPI_Comm_size(comm, &size));  in PetscSequentialPhaseBegin_Private()
16   PetscCallMPI(MPI_Comm_rank(comm, &rank));  in PetscSequentialPhaseBegin_Private()
17   if (rank) PetscCallMPI(MPI_Recv(NULL, 0, MPI_INT, rank - 1, tag, comm, &status));  in PetscSequentialPhaseBegin_Private()
19 … % ng) < ng - 1 && rank != size - 1) PetscCallMPI(MPI_Send(NULL, 0, MPI_INT, rank + 1, tag, comm));  in PetscSequentialPhaseBegin_Private()
23 PETSC_INTERN PetscErrorCode PetscSequentialPhaseEnd_Private(MPI_Comm comm, int ng)  in PetscSequentialPhaseEnd_Private()  argument
29   PetscCallMPI(MPI_Comm_rank(comm, &rank));  in PetscSequentialPhaseEnd_Private()
30   PetscCallMPI(MPI_Comm_size(comm, &size));  in PetscSequentialPhaseEnd_Private()
34 …ng - 1 || rank == size - 1) PetscCallMPI(MPI_Send(NULL, 0, MPI_INT, (rank + 1) % size, tag, comm));  in PetscSequentialPhaseEnd_Private()
35   if (rank == 0) PetscCallMPI(MPI_Recv(NULL, 0, MPI_INT, size - 1, tag, comm, &status));  in PetscSequentialPhaseEnd_Private()
71 PetscErrorCode PetscSequentialPhaseBegin(MPI_Comm comm, int ng)  in PetscSequentialPhaseBegin()  argument
78   PetscCallMPI(MPI_Comm_size(comm, &size));  in PetscSequentialPhaseBegin()
84   PetscCallMPI(MPI_Comm_dup(comm, &local_comm));  in PetscSequentialPhaseBegin()
89   PetscCallMPI(MPI_Comm_set_attr(comm, Petsc_Seq_keyval, (void *)addr_local_comm));  in PetscSequentialPhaseBegin()
111 PetscErrorCode PetscSequentialPhaseEnd(MPI_Comm comm, int ng)  in PetscSequentialPhaseEnd()  argument
117   PetscCallMPI(MPI_Comm_size(comm, &size));  in PetscSequentialPhaseEnd()
120   PetscCallMPI(MPI_Comm_get_attr(comm, Petsc_Seq_keyval, (void **)&addr_local_comm, &iflg));  in PetscSequentialPhaseEnd()
128   PetscCallMPI(MPI_Comm_delete_attr(comm, Petsc_Seq_keyval));  in PetscSequentialPhaseEnd()
148 PetscErrorCode PetscGlobalMinMaxInt(MPI_Comm comm, const PetscInt minMaxVal[2], PetscInt minMaxValG…  in PetscGlobalMinMaxInt()  argument
157   PetscCallMPI(MPIU_Allreduce(sendbuf, recvbuf, 3, MPIU_INT, MPI_MAX, comm));  in PetscGlobalMinMaxInt()
179 PetscErrorCode PetscGlobalMinMaxReal(MPI_Comm comm, const PetscReal minMaxVal[2], PetscReal minMaxV…  in PetscGlobalMinMaxReal()  argument
186   PetscCallMPI(MPIU_Allreduce(sendbuf, minMaxValGlobal, 2, MPIU_REAL, MPIU_MAX, comm));  in PetscGlobalMinMaxReal()