28 …PetscInt          num_fine_ghosts, kk, n, ix, j, *idx, *ii, Iend, my0, nremoved, gid, lid, cpid, l…  in MatCoarsenApply_MIS_private()  local
85       lid = matB->compressedrow.rindex[ix];  in MatCoarsenApply_MIS_private()
86       if (lid >= 0) lid_cprowID[lid] = ix;  in MatCoarsenApply_MIS_private()
96       lid   = perm_ix[kk];  in MatCoarsenApply_MIS_private()
97       state = lid_state[lid];  in MatCoarsenApply_MIS_private()
98       if (lid_removed[lid]) continue;  in MatCoarsenApply_MIS_private()
102         if ((ix = lid_cprowID[lid]) != -1) { /* if I have any ghost neighbors */  in MatCoarsenApply_MIS_private()
121           n  = ii[lid + 1] - ii[lid];  in MatCoarsenApply_MIS_private()
124             ix = lid_cprowID[lid];  in MatCoarsenApply_MIS_private()
128               lid_removed[lid] = PETSC_TRUE;  in MatCoarsenApply_MIS_private()
134           lid_state[lid] = lid + my0;  in MatCoarsenApply_MIS_private()
137             PetscCall(PetscCDAppendID(agg_lists, lid, lid + my0));  in MatCoarsenApply_MIS_private()
139             PetscCall(PetscCDAppendID(agg_lists, lid, lid));  in MatCoarsenApply_MIS_private()
142           idx = matA->j + ii[lid];  in MatCoarsenApply_MIS_private()
149                 PetscCall(PetscCDAppendID(agg_lists, lid, lidj + my0));  in MatCoarsenApply_MIS_private()
151                 PetscCall(PetscCDAppendID(agg_lists, lid, lidj));  in MatCoarsenApply_MIS_private()
158             if ((ix = lid_cprowID[lid]) != -1) { /* if I have any ghost neighbors */  in MatCoarsenApply_MIS_private()
165                 if (statej == MIS_NOT_DONE) PetscCall(PetscCDAppendID(agg_lists, lid, nloc + cpid));  in MatCoarsenApply_MIS_private()
180         lid   = matB->compressedrow.rindex[ix]; /* local boundary node */  in MatCoarsenApply_MIS_private()
181         state = lid_state[lid];  in MatCoarsenApply_MIS_private()
191               lid_state[lid] = MIS_DELETED; /* delete this */  in MatCoarsenApply_MIS_private()
194                 PetscCall(PetscCDAppendID(agg_lists, lidj, lid));  in MatCoarsenApply_MIS_private()
197                 lid_parent_gid[lid] = sgid; /* keep track of proc that I belong to */  in MatCoarsenApply_MIS_private()