22 …PetscInt    i, e, v, numEdges, numVertices, nedges, *eowners = NULL, estart, eend, *vtype = NULL, …  in WashNetworkDistribute()  local
41   PetscCall(PetscCalloc3(size + 1, &eowners, size, &nvtx, numVertices, &vtxDone));  in WashNetworkDistribute()
42   PetscCallMPI(MPI_Allgather(&nedges, 1, MPIU_INT, eowners + 1, 1, MPIU_INT, PETSC_COMM_WORLD));  in WashNetworkDistribute()
43   eowners[0] = 0;  in WashNetworkDistribute()
44   for (i = 2; i <= size; i++) eowners[i] += eowners[i - 1];  in WashNetworkDistribute()
46   estart = eowners[rank];  in WashNetworkDistribute()
47   eend   = eowners[rank + 1];  in WashNetworkDistribute()
55 …PetscCallMPI(MPI_Send(edgelist + 2 * eowners[i], 2 * (eowners[i + 1] - eowners[i]), MPIU_INT, i, t…  in WashNetworkDistribute()
58 …PetscCallMPI(MPI_Send(vtype + 2 * eowners[i], 2 * (eowners[i + 1] - eowners[i]), MPIU_INT, i, tag,…  in WashNetworkDistribute()
74       for (e = eowners[i]; e < eowners[i + 1]; e++) {  in WashNetworkDistribute()
90   PetscCall(PetscFree3(eowners, nvtx, vtxDone));  in WashNetworkDistribute()