351   PetscMPIInt        rank, size, numComponents, comp = 0;  in DMPlexOrient()  local
427       if (PetscBTLookup(seenCells, cell)) cellComp[cell] = comp;  in DMPlexOrient()
430       if (PetscBTLookup(seenFaces, face)) faceComp[face] = comp;  in DMPlexOrient()
435     ++comp;  in DMPlexOrient()
437   numComponents = comp;  in DMPlexOrient()
497   for (comp = 0; comp < numComponents; ++comp) {  in DMPlexOrient()
500     numNeighbors[comp] = 0;  in DMPlexOrient()
501     PetscCall(PetscMalloc1(PetscMax(numLeaves, 0), &neighbors[comp]));  in DMPlexOrient()
507 …if ((face >= fStart) && (face < fEnd) && (faceComp[face - fStart] == comp) && rorntComp[face].rank…  in DMPlexOrient()
511         for (n = 0; n < numNeighbors[comp]; ++n)  in DMPlexOrient()
512 …if ((rrank == rpoints[neighbors[comp][n]].rank) && (rcomp == lorntComp[lpoints[neighbors[comp][n]]…  in DMPlexOrient()
513         if (n >= numNeighbors[comp]) {  in DMPlexOrient()
520 … (%" PetscInt_FMT ", %" PetscInt_FMT ") with orientation %" PetscInt_FMT "\n", rank, comp, l, face,  in DMPlexOrient()
522           neighbors[comp][numNeighbors[comp]++] = l;  in DMPlexOrient()
526     totNeighbors += numNeighbors[comp];  in DMPlexOrient()
531   for (comp = 0, off = 0; comp < numComponents; ++comp) {  in DMPlexOrient()
534     for (n = 0; n < numNeighbors[comp]; ++n, ++off) {  in DMPlexOrient()
535       const PetscInt face = lpoints ? lpoints[neighbors[comp][n]] : neighbors[comp][n];  in DMPlexOrient()
540 …scInt_FMT " comp: %d", face, rorntComp[face].rank, lorntComp[face].rank, neighbors[comp][n], comp);  in DMPlexOrient()
541       nrankComp[off].rank  = rpoints[neighbors[comp][n]].rank;  in DMPlexOrient()
542 …nrankComp[off].index = lorntComp[lpoints ? lpoints[neighbors[comp][n]] : neighbors[comp][n]].index;  in DMPlexOrient()
544     PetscCall(PetscFree(neighbors[comp]));  in DMPlexOrient()
870   for (PetscInt comp = 0; comp < Ncomp; ++comp) {  in DMPlexOrientCells_Internal()  local
873     numNeighbors[comp] = 0;  in DMPlexOrientCells_Internal()
874     PetscCall(PetscMalloc1(PetscMax(numLeaves, 0), &neighbors[comp]));  in DMPlexOrientCells_Internal()
882       if ((find >= 0) && (faceComp[find] == comp) && rorntComp[face].rank) {  in DMPlexOrientCells_Internal()
886         for (n = 0; n < numNeighbors[comp]; ++n)  in DMPlexOrientCells_Internal()
887 …if ((rrank == rpoints[neighbors[comp][n]].rank) && (rcomp == lorntComp[lpoints[neighbors[comp][n]]…  in DMPlexOrientCells_Internal()
888         if (n >= numNeighbors[comp]) {  in DMPlexOrientCells_Internal()
900 … (%" PetscInt_FMT ", %" PetscInt_FMT ") with orientation %" PetscInt_FMT "\n", rank, comp, l, face,  in DMPlexOrientCells_Internal()
902           neighbors[comp][numNeighbors[comp]++] = l;  in DMPlexOrientCells_Internal()
906     totNeighbors += numNeighbors[comp];  in DMPlexOrientCells_Internal()
911   for (PetscInt comp = 0, off = 0; comp < Ncomp; ++comp) {  in DMPlexOrientCells_Internal()  local
912     for (PetscInt n = 0; n < numNeighbors[comp]; ++n, ++off) {  in DMPlexOrientCells_Internal()
913       const PetscInt face = lpoints[neighbors[comp][n]];  in DMPlexOrientCells_Internal()
919 …comp: %" PetscInt_FMT, face, rorntComp[face].rank, lorntComp[face].rank, neighbors[comp][n], comp);  in DMPlexOrientCells_Internal()
920       nrankComp[off].rank  = rpoints[neighbors[comp][n]].rank;  in DMPlexOrientCells_Internal()
921       nrankComp[off].index = lorntComp[lpoints[neighbors[comp][n]]].index;  in DMPlexOrientCells_Internal()
923     PetscCall(PetscFree(neighbors[comp]));  in DMPlexOrientCells_Internal()