38   PetscInt arrsz, bs, my0, kk, ii, nloc, Iend, aloc;  in PCSetCoordinates_GEO()  local
61   for (kk = 0; kk < arrsz; kk++) pc_gamg->data[kk] = -999.;  in PCSetCoordinates_GEO()
65     for (kk = 0; kk < nloc; kk++) {  in PCSetCoordinates_GEO()
66       for (ii = 0; ii < ndm; ii++) pc_gamg->data[ii * nloc + kk] = coords[kk * ndm + ii];  in PCSetCoordinates_GEO()
69     for (kk = 0; kk < nloc; kk++) {  in PCSetCoordinates_GEO()
70       for (ii = 0; ii < ndm; ii++) pc_gamg->data[ii * nloc + kk] = coords[bs * kk * ndm + ii];  in PCSetCoordinates_GEO()
134   int                  kk, nPlotPts, sid;  in triangulateAndFormProl()  local
162   for (kk = 0, sid = 0; kk < nselected_2; kk++, sid += 2) {  in triangulateAndFormProl()
163     PetscInt lid          = selected_idx_2[kk];  in triangulateAndFormProl()
223 …for (kk = 0, sid = 0; kk < in.numberofpoints; kk++, sid += 2) fprintf(file, "%d %e %e\n", kk, in.p…  in triangulateAndFormProl()
240 …for (kk = 0, sid = 0; kk < mid.numberoftriangles; kk++, sid += 3) fprintf(file, "%d %d %d %d\n", k…  in triangulateAndFormProl()
249 …for (kk = 0, sid = 0; kk < in.numberofpoints; kk++, sid += 2) fprintf(file, "%d %e %e\n", kk, in.p…  in triangulateAndFormProl()
254         for (kk = 0; kk < nselected_2 && sel; kk++) {  in triangulateAndFormProl()
255           PetscInt lid = selected_idx_2[kk];  in triangulateAndFormProl()
271     for (kk = 0; kk < nselected_2; kk++) nTri[kk] = 0;  in triangulateAndFormProl()
272     for (tid = 0, kk = 0; tid < mid.numberoftriangles; tid++) {  in triangulateAndFormProl()
274         PetscInt cid = mid.trianglelist[kk++];  in triangulateAndFormProl()
431   PetscInt   *crsGID, kk, my0, Iend, nloc;  in getGIDsOnSquareGraph()  local
442     for (kk = 0; kk < nselected_1; kk++) crsGID[kk] = kk;  in getGIDsOnSquareGraph()
453     kk = nselected_1;  in getGIDsOnSquareGraph()
454     PetscCallMPI(MPI_Scan(&kk, &myCrs0, 1, MPIU_INT, MPI_SUM, comm));  in getGIDsOnSquareGraph()
466     for (kk = 0; kk < nselected_1; kk++) {  in getGIDsOnSquareGraph()
467       PetscInt    fgid = clid_lid_1[kk] + my0;  in getGIDsOnSquareGraph()
468       PetscScalar v    = (PetscScalar)(kk + myCrs0);  in getGIDsOnSquareGraph()
477     for (kk = 0, num_crs_ghost = 0; kk < num_fine_ghosts; kk++) {  in getGIDsOnSquareGraph()
478       if ((PetscInt)PetscRealPart(cpcol_state[kk]) != -1) num_crs_ghost++;  in getGIDsOnSquareGraph()
485       for (kk = 0, idx = nselected_1; kk < num_fine_ghosts; kk++) {  in getGIDsOnSquareGraph()
486         if ((PetscInt)PetscRealPart(cpcol_state[kk]) != -1) {  in getGIDsOnSquareGraph()
487           PetscInt cgid     = (PetscInt)PetscRealPart(cpcol_state[kk]);  in getGIDsOnSquareGraph()
488           selected_set[idx] = nloc + kk;  in getGIDsOnSquareGraph()
496       for (kk = 0, idx = 0; kk < nloc; kk++) {  in getGIDsOnSquareGraph()
497         if ((PetscInt)PetscRealPart(cpcol_state[kk]) != -1) {  in getGIDsOnSquareGraph()
498           PetscInt cgid     = (PetscInt)PetscRealPart(cpcol_state[kk]);  in getGIDsOnSquareGraph()
499           selected_set[idx] = kk;  in getGIDsOnSquareGraph()
531   PetscInt   Istart, Iend, nloc, kk, Ii, ncols;  in PCGAMGCoarsen_GEO()  local
583   for (kk = 0; kk < nloc; kk++) permute[kk] = gnodes[kk].lid; /* locals only */  in PCGAMGCoarsen_GEO()
607   PetscInt        Istart, Iend, nloc, my0, jj, kk, ncols, nLocalSelected, bs, *clid_flid;  in PCGAMGProlongator_GEO()  local
632   for (kk = 0, nLocalSelected = 0; kk < jj; kk++) {  in PCGAMGProlongator_GEO()
633     PetscInt lid = selected_idx[kk];  in PCGAMGProlongator_GEO()
653   PetscCall(MatGetSize(Prol, &kk, &jj));  in PCGAMGProlongator_GEO()
703       for (kk = 0; kk < nLocalSelected; kk++) { /* grab local select nodes to promote - output */  in PCGAMGProlongator_GEO()
704         PetscInt lid = clid_flid[kk];  in PCGAMGProlongator_GEO()
705 …  for (jj = 0; jj < dim; jj++) crs_crds[jj * nLocalSelected + kk] = pc_gamg->data[jj * nloc + lid];  in PCGAMGProlongator_GEO()