8   PetscMPIInt  r;  in ExchangeArrayByRank_Private()  local
22 …for (r = 0; r < nrranks; r++) PetscCallMPI(MPIU_Irecv(&rsize[r], 1, MPIU_INT, rranks[r], tag, comm…  in ExchangeArrayByRank_Private()
23 …for (r = 0; r < nsranks; r++) PetscCallMPI(MPIU_Isend(&ssize[r], 1, MPIU_INT, sranks[r], tag, comm…  in ExchangeArrayByRank_Private()
28   for (r = 0; r < nrranks; r++) {  in ExchangeArrayByRank_Private()
29     PetscCall(PetscMalloc(rsize[r] * unitsize, &rarr[r]));  in ExchangeArrayByRank_Private()
30     PetscCallMPI(MPIU_Irecv(rarr[r], rsize[r], dt, rranks[r], tag, comm, &rreq[r]));  in ExchangeArrayByRank_Private()
32 …for (r = 0; r < nsranks; r++) PetscCallMPI(MPIU_Isend(sarr[r], ssize[r], dt, sranks[r], tag, comm,…  in ExchangeArrayByRank_Private()
45   PetscMPIInt         r;  in ExchangeVecByRank_Private()  local
54   for (r = 0; r < nsranks; r++) {  in ExchangeVecByRank_Private()
55     PetscCall(VecGetLocalSize(svecs[r], &ssize[r]));  in ExchangeVecByRank_Private()
56     PetscCall(VecGetArrayRead(svecs[r], &sarr[r]));  in ExchangeVecByRank_Private()
60   for (r = 0; r < nrranks; r++) {  in ExchangeVecByRank_Private()
62     PetscCall(VecCreateSeqWithArray(PETSC_COMM_SELF, 1, rsize[r], NULL, &rvecs_[r]));  in ExchangeVecByRank_Private()
63     PetscCall(VecReplaceArray(rvecs_[r], rarr[r]));  in ExchangeVecByRank_Private()
65   for (r = 0; r < nsranks; r++) PetscCall(VecRestoreArrayRead(svecs[r], &sarr[r]));  in ExchangeVecByRank_Private()
84   for (PetscMPIInt r = 0; r < nranks; r++) {  in SortByRemote_Private()  local
85     /* simultaneously sort rank-wise portions of rmine & rremote by values in rremote  in SortByRemote_Private()
86        - to unify order with the other side */  in SortByRemote_Private()
87     o = roffset[r];  in SortByRemote_Private()
88     n = roffset[r + 1] - o;  in SortByRemote_Private()
108   for (PetscMPIInt r = 0; r < nranks; r++) {  in GetRecursiveConeCoordinatesPerRank_Private()  local
109     o = roffset[r];  in GetRecursiveConeCoordinatesPerRank_Private()
110     n = roffset[r + 1] - o;  in GetRecursiveConeCoordinatesPerRank_Private()
113     PetscCall(DMGetCoordinatesLocalTuple(dm, conesPerRank, NULL, &(*coordinatesPerRank)[r]));  in GetRecursiveConeCoordinatesPerRank_Private()
136   for (PetscMPIInt r = 0; r < niranks; r++) {  in PetscSFComputeMultiRootOriginalNumberingByRank_Private()  local
137     o = iroffset[r];  in PetscSFComputeMultiRootOriginalNumberingByRank_Private()
138     n = iroffset[r + 1] - o;  in PetscSFComputeMultiRootOriginalNumberingByRank_Private()
146 …DMPlexCheckInterfaceCones - Check that points on inter-partition interfaces have conforming order …
149 . dm - The `DMPLEX` object
154 … in this order, and the point `PetscSF` contains connections 0 <- (1,0), 1 <- (1,1) and 2 <- (1,2),
184   PetscInt           r;  in DMPlexCheckInterfaceCones()  local
200 …PetscCheck(dm->coordinates[0].x || dm->coordinates[0].xl, PetscObjectComm((PetscObject)dm), PETSC_…  in DMPlexCheckInterfaceCones()
215   /* Compute original numbering of multi-roots (referenced points) */  in DMPlexCheckInterfaceCones()
225 …PetscCall(PetscOptionsGetBool(((PetscObject)dm)->options, ((PetscObject)dm)->prefix, "-dm_plex_che…  in DMPlexCheckInterfaceCones()
230     PetscCall(PetscViewerASCIISynchronizedPrintf(v, "[%d] --------\n", rank));  in DMPlexCheckInterfaceCones()
231     for (r = 0; r < size; r++) {  in DMPlexCheckInterfaceCones()
232       if (r < nranks) {  in DMPlexCheckInterfaceCones()
233 …etscViewerASCIISynchronizedPrintf(v, "  r=%" PetscInt_FMT " ranks[r]=%d sntCoordinatesPerRank[r]:\…  in DMPlexCheckInterfaceCones()
236         PetscCall(VecView(sntCoordinatesPerRank[r], sv));  in DMPlexCheckInterfaceCones()
244     PetscCall(PetscViewerASCIISynchronizedPrintf(v, "  ----------\n"));  in DMPlexCheckInterfaceCones()
245     for (r = 0; r < size; r++) {  in DMPlexCheckInterfaceCones()
246       if (r < niranks) {  in DMPlexCheckInterfaceCones()
247 …tscViewerASCIISynchronizedPrintf(v, "  r=%" PetscInt_FMT " iranks[r]=%d refCoordinatesPerRank[r]:\…  in DMPlexCheckInterfaceCones()
250         PetscCall(VecView(refCoordinatesPerRank[r], sv));  in DMPlexCheckInterfaceCones()
258     PetscCall(PetscViewerASCIISynchronizedPrintf(v, "  ----------\n"));  in DMPlexCheckInterfaceCones()
259     for (r = 0; r < size; r++) {  in DMPlexCheckInterfaceCones()
260       if (r < niranks) {  in DMPlexCheckInterfaceCones()
261 …tscViewerASCIISynchronizedPrintf(v, "  r=%" PetscInt_FMT " iranks[r]=%d recCoordinatesPerRank[r]:\…  in DMPlexCheckInterfaceCones()
264         PetscCall(VecView(recCoordinatesPerRank[r], sv));  in DMPlexCheckInterfaceCones()
276   for (r = 0; r < niranks; r++) {  in DMPlexCheckInterfaceCones()
277     PetscCall(VecEqual(refCoordinatesPerRank[r], recCoordinatesPerRank[r], &same));  in DMPlexCheckInterfaceCones()
278 …, PETSC_COMM_SELF, PETSC_ERR_PLIB, "interface cones do not conform for remote rank %d", iranks[r]);  in DMPlexCheckInterfaceCones()
282   for (r = 0; r < nranks; r++) PetscCall(VecDestroy(&sntCoordinatesPerRank[r]));  in DMPlexCheckInterfaceCones()
288   for (r = 0; r < niranks; r++) PetscCall(VecDestroy(&refCoordinatesPerRank[r]));  in DMPlexCheckInterfaceCones()
293   for (r = 0; r < niranks; r++) PetscCall(VecDestroy(&recCoordinatesPerRank[r]));  in DMPlexCheckInterfaceCones()