306     PetscCall(PetscMalloc1(maxc * graph->cdim, &wdist));  in PCBDDCGraphComputeConnectedComponents()
311       PetscInt   fst, j, k, d, cdim = graph->cdim, n = n_shared[ns];  in PCBDDCGraphComputeConnectedComponents()  local
318         for (d = 0; d < cdim; d++) {  in PCBDDCGraphComputeConnectedComponents()
319           PetscReal c = graph->coords[shared[ns][j] * cdim + d];  in PCBDDCGraphComputeConnectedComponents()
332       anchor = wdist + fst * cdim;  in PCBDDCGraphComputeConnectedComponents()
339 …for (d = 0; d < cdim; d++) dist += (wdist[j * cdim + d] - anchor[d]) * (wdist[j * cdim + d] - anch…  in PCBDDCGraphComputeConnectedComponents()
347       anchor = wdist + point1 * cdim;  in PCBDDCGraphComputeConnectedComponents()
354 …for (d = 0; d < cdim; d++) dist += (wdist[j * cdim + d] - anchor[d]) * (wdist[j * cdim + d] - anch…  in PCBDDCGraphComputeConnectedComponents()
363       if (cdim > 2) {  in PCBDDCGraphComputeConnectedComponents()
366 …for (d = 0; d < cdim; d++) a += (wdist[point1 * cdim + d] - wdist[point2 * cdim + d]) * (wdist[poi…  in PCBDDCGraphComputeConnectedComponents()
373           for (d = 0; d < cdim; d++) {  in PCBDDCGraphComputeConnectedComponents()
374 …b += (wdist[point1 * cdim + d] - wdist[j * cdim + d]) * (wdist[point1 * cdim + d] - wdist[j * cdim…  in PCBDDCGraphComputeConnectedComponents()
375 …c += (wdist[point2 * cdim + d] - wdist[j * cdim + d]) * (wdist[point2 * cdim + d] - wdist[j * cdim…  in PCBDDCGraphComputeConnectedComponents()
391       anchor = wdist + point3 * cdim;  in PCBDDCGraphComputeConnectedComponents()
398 …for (d = 0; d < cdim; d++) dist += (wdist[j * cdim + d] - anchor[d]) * (wdist[j * cdim + d] - anch…  in PCBDDCGraphComputeConnectedComponents()
415         for (d = 0; d < cdim; d++) {  in PCBDDCGraphComputeConnectedComponents()
416 …same[0] = (PetscBool)(same[0] && (PetscAbsReal(wdist[j * cdim + d] - wdist[point1 * cdim + d]) < P…  in PCBDDCGraphComputeConnectedComponents()
417 …same[1] = (PetscBool)(same[1] && (PetscAbsReal(wdist[j * cdim + d] - wdist[point2 * cdim + d]) < P…  in PCBDDCGraphComputeConnectedComponents()
418 …same[2] = (PetscBool)(same[2] && (PetscAbsReal(wdist[j * cdim + d] - wdist[point3 * cdim + d]) < P…  in PCBDDCGraphComputeConnectedComponents()
419 …same[3] = (PetscBool)(same[3] && (PetscAbsReal(wdist[j * cdim + d] - wdist[point4 * cdim + d]) < P…  in PCBDDCGraphComputeConnectedComponents()
1156   graph->cdim  = 0;  in PCBDDCGraphResetCoords()