155   PetscPartitioner_PTScotch *p = (PetscPartitioner_PTScotch *)part->data;  in PetscPartitionerDestroy_PTScotch()  local
158   PetscCallMPI(MPI_Comm_free(&p->pcomm));  in PetscPartitionerDestroy_PTScotch()
165   PetscPartitioner_PTScotch *p = (PetscPartitioner_PTScotch *)part->data;  in PetscPartitionerView_PTScotch_ASCII()  local
169 …cViewerASCIIPrintf(viewer, "using partitioning strategy %s\n", PTScotchStrategyList[p->strategy]));  in PetscPartitionerView_PTScotch_ASCII()
170 …PetscCall(PetscViewerASCIIPrintf(viewer, "using load imbalance ratio %g\n", (double)p->imbalance));  in PetscPartitionerView_PTScotch_ASCII()
189   PetscPartitioner_PTScotch *p     = (PetscPartitioner_PTScotch *)part->data;  in PetscPartitionerSetFromOptions_PTScotch()  local
196 …tscotch_strategy", "Partitioning strategy", "", slist, nlist, slist[p->strategy], &p->strategy, &f…  in PetscPartitionerSetFromOptions_PTScotch()
197 …"-petscpartitioner_ptscotch_imbalance", "Load imbalance ratio", "", p->imbalance, &p->imbalance, &…  in PetscPartitionerSetFromOptions_PTScotch()
213   PetscMPIInt size, rank, p;  in PetscPartitionerPartition_PTScotch()  local
225   for (p = 2; p <= size; ++p) {  in PetscPartitionerPartition_PTScotch()
226     hasempty = (PetscBool)(hasempty || !vtxdist[p - 1] || !vtxdist[p]);  in PetscPartitionerPartition_PTScotch()
227     vtxdist[p] += vtxdist[p - 1];  in PetscPartitionerPartition_PTScotch()
252     for (p = 0, sumw = 0; p < nparts; ++p) {  in PetscPartitionerPartition_PTScotch()
253       PetscCall(PetscSectionGetDof(targetSection, p, &tpwgts[p]));  in PetscPartitionerPartition_PTScotch()
254       sumw += tpwgts[p];  in PetscPartitionerPartition_PTScotch()
264     for (p = 0; !vtxdist[p + 1] && p < size; ++p);  in PetscPartitionerPartition_PTScotch()
265     if (vtxdist[p + 1] == vtxdist[size]) {  in PetscPartitionerPartition_PTScotch()
266 …if (rank == p) PetscCall(PTScotch_PartGraph_Seq(strat, imbal, nvtxs, xadj, adjncy, vwgt, adjwgt, n…  in PetscPartitionerPartition_PTScotch()
274         for (p = 0, cnt = 0; p < size; p++) {  in PetscPartitionerPartition_PTScotch()
275           if (vtxdist[p + 1] != vtxdist[p]) {  in PetscPartitionerPartition_PTScotch()
276             vtxdist[cnt + 1] = vtxdist[p + 1];  in PetscPartitionerPartition_PTScotch()
292   for (p = 0, i = 0; p < nparts; ++p) {  in PetscPartitionerPartition_PTScotch()
294       if (assignment[v] == p) points[i++] = v;  in PetscPartitionerPartition_PTScotch()
334   PetscPartitioner_PTScotch *p;  in PetscPartitionerCreate_PTScotch()  local
338   PetscCall(PetscNew(&p));  in PetscPartitionerCreate_PTScotch()
339   part->data = p;  in PetscPartitionerCreate_PTScotch()
341   PetscCallMPI(MPI_Comm_dup(PetscObjectComm((PetscObject)part), &p->pcomm));  in PetscPartitionerCreate_PTScotch()
342   p->strategy  = 0;  in PetscPartitionerCreate_PTScotch()
343   p->imbalance = 0.01;  in PetscPartitionerCreate_PTScotch()