555       const PetscInt lid = mm, cgid = my0crs + clid;  in formProl0()  local
576       PetscCall(PetscCDGetHeadPos(agg_llists, lid, &pos));  in formProl0()
581         PetscCall(PetscCDGetNextPos(agg_llists, lid, &pos));  in formProl0()
839   PetscInt       lid, *ii, *idx, ix, Iend, my0, kk, n, j;  in fixAggregatesWithSquare()  local
857   for (lid = 0; lid < nloc; lid++) lid_cprowID_1[lid] = -1;  in fixAggregatesWithSquare()
868       PetscInt lid = matB_1->compressedrow.rindex[ix];  in fixAggregatesWithSquare()  local
870 …PetscCheck(lid <= nloc && lid >= -1, PETSC_COMM_SELF, PETSC_ERR_USER, "lid %" PetscInt_FMT " out o…  in fixAggregatesWithSquare()
871       if (lid != -1) lid_cprowID_1[lid] = ix;  in fixAggregatesWithSquare()
882   for (lid = 0; lid < nloc; lid++) {  in fixAggregatesWithSquare()
883     lid_parent_gid[lid] = -1.0;  in fixAggregatesWithSquare()
884     lid_state[lid]      = DELETED;  in fixAggregatesWithSquare()
888   for (lid = 0; lid < nloc; lid++) {  in fixAggregatesWithSquare()
891     PetscCall(PetscCDGetHeadPos(aggs_2, lid, &pos));  in fixAggregatesWithSquare()
896 …Check(gid1 == lid + my0, PETSC_COMM_SELF, PETSC_ERR_PLIB, "gid1 %" PetscInt_FMT " != lid %" PetscI…  in fixAggregatesWithSquare()
897       lid_state[lid] = gid1;  in fixAggregatesWithSquare()
902   for (lid = 0; lid < nloc; lid++) {  in fixAggregatesWithSquare()
903     NState state = lid_state[lid];  in fixAggregatesWithSquare()
908       PetscCall(PetscCDGetHeadPos(aggs_2, lid, &pos));  in fixAggregatesWithSquare()
913         PetscCall(PetscCDGetNextPos(aggs_2, lid, &pos));  in fixAggregatesWithSquare()
914         if (gid1 >= my0 && gid1 < Iend) lid_parent_gid[gid1 - my0] = (PetscScalar)(lid + my0);  in fixAggregatesWithSquare()
953   for (lid = 0; lid < nloc; lid++) {  in fixAggregatesWithSquare()
954     NState state = lid_state[lid];  in fixAggregatesWithSquare()
959       n   = ii[lid + 1] - ii[lid];  in fixAggregatesWithSquare()
960       idx = matA_1->j + ii[lid];  in fixAggregatesWithSquare()
965 …if (statej == DELETED && (sgid = (PetscInt)PetscRealPart(lid_parent_gid[lidj])) != lid + my0) { /*…  in fixAggregatesWithSquare()
966 …lid_parent_gid[lidj] = (PetscScalar)(lid + my0);                                              /* s…  in fixAggregatesWithSquare()
980                 PetscCall(PetscCDAppendNode(aggs_2, lid, pos));  in fixAggregatesWithSquare()
993             PetscCall(PetscCDAppendID(aggs_2, lid, lidj + my0));  in fixAggregatesWithSquare()
998       PetscInt sgidold = (PetscInt)PetscRealPart(lid_parent_gid[lid]);  in fixAggregatesWithSquare()
1001       if ((ix = lid_cprowID_1[lid]) != -1) {  in fixAggregatesWithSquare()
1010             lid_parent_gid[lid] = (PetscScalar)statej;    /* send who selected */  in fixAggregatesWithSquare()
1021                 if (lid + my0 == gid) {  in fixAggregatesWithSquare()
1094     for (lid = 0; lid < nloc; lid++) {  in fixAggregatesWithSquare()
1095       NState state = lid_state[lid];  in fixAggregatesWithSquare()
1101         PetscCall(PetscCDGetHeadPos(aggs_2, lid, &pos));  in fixAggregatesWithSquare()
1111               PetscCall(PetscCDRemoveNextNode(aggs_2, lid, last));  in fixAggregatesWithSquare()
1115           PetscCall(PetscCDGetNextPos(aggs_2, lid, &pos));  in fixAggregatesWithSquare()