357   PetscInt arrsz, kk, ii, jj, nloc, ndatarows, ndf;  in PCSetCoordinates_AGG()  local
382   for (kk = 0; kk < nloc; kk++) {  in PCSetCoordinates_AGG()
384     PetscReal     *data = &pc_gamg->data[kk * ndatarows]; /* start of cell */  in PCSetCoordinates_AGG()
400           data[0] = -coords[2 * kk + 1];  in PCSetCoordinates_AGG()
401           data[1] = coords[2 * kk];  in PCSetCoordinates_AGG()
405           data[M + 0]     = coords[3 * kk + 2];  in PCSetCoordinates_AGG()
406           data[2 * M + 0] = -coords[3 * kk + 1];  in PCSetCoordinates_AGG()
407           data[1]         = -coords[3 * kk + 2];  in PCSetCoordinates_AGG()
409           data[2 * M + 1] = coords[3 * kk];  in PCSetCoordinates_AGG()
410           data[2]         = coords[3 * kk + 1];  in PCSetCoordinates_AGG()
411           data[M + 2]     = -coords[3 * kk];  in PCSetCoordinates_AGG()
513 …PetscInt      Istart, my0, Iend, nloc, clid, flid = 0, aggID, kk, jj, ii, mm, nSelected, minsz, ng…  in formProl0()  local
530 …for (kk = 0; kk < nghosts; kk++) PetscCall(PetscHMapISet(fgid_flid, flid_fgid[nloc + kk], nloc + k…  in formProl0()
598         for (kk = 0; kk < bs; kk++) fids[aggID * bs + kk] = flid_fgid[flid] * bs + kk;  in formProl0()
604         for (jj = 0; jj < N; jj++, kk++) qqc[jj * Mdata + ii] = .0;  in formProl0()
634       for (kk = 0; kk < N; kk++) cids[kk] = N * cgid + kk; /* global col IDs in P0 */  in formProl0()
728       PetscInt          *d_nnz, *o_nnz, kk, *garray = NULL, *AJ, maxcols = 0;  in PCGAMGCreateGraph_AGG()  local
782       for (c = a, kk = 0; c && kk < 2; c = b, kk++) {  in PCGAMGCreateGraph_AGG()
839   PetscInt       lid, *ii, *idx, ix, Iend, my0, kk, n, j;  in fixAggregatesWithSquare()  local
924     for (kk = 0, j = my0; kk < nloc; kk++, j++) {  in fixAggregatesWithSquare()
925       PetscScalar v = (PetscScalar)lid_state[kk];  in fixAggregatesWithSquare()
939     for (kk = 0, j = my0; kk < nloc; kk++, j++) {  in fixAggregatesWithSquare()
940       PetscScalar v = lid_parent_gid[kk];  in fixAggregatesWithSquare()
1054 …for (kk = 0, j = my0; kk < nloc; kk++, j++) PetscCall(VecSetValues(tempVec, 1, &j, &lid_parent_gid…  in fixAggregatesWithSquare()
1063     for (kk = 0, j = my0; kk < nloc; kk++, j++) {  in fixAggregatesWithSquare()
1282   PetscInt       Istart, Iend, nloc, ii, jj, kk, my0, nLocalSelected, bs;  in PCGAMGConstructProlongator_AGG()  local
1327   PetscCall(MatGetSize(Prol, &kk, &ii));  in PCGAMGConstructProlongator_AGG()
1336   PetscCall(MatGetOwnershipRangeColumn(Prol, &myCrs0, &kk));  in PCGAMGConstructProlongator_AGG()
1338 …kk - myCrs0) % col_bs == 0, PETSC_COMM_SELF, PETSC_ERR_PLIB, "(kk %" PetscInt_FMT " -myCrs0 %" Pet…  in PCGAMGConstructProlongator_AGG()
1340 …kk / col_bs - myCrs0) == nLocalSelected, PETSC_COMM_SELF, PETSC_ERR_PLIB, "(kk %" PetscInt_FMT "/c…  in PCGAMGConstructProlongator_AGG()
1349       for (kk = 0; kk < bs; kk++) {  in PCGAMGConstructProlongator_AGG()
1351         const PetscReal *tp = PetscSafePointerPlusOffset(pc_gamg->data, jj * bs * nloc + kk);  in PCGAMGConstructProlongator_AGG()
1357 …if (!jj && !kk) { /* now I know how many total nodes - allocate TODO: move below and do in one 'co…  in PCGAMGConstructProlongator_AGG()
1361         tp2 = PetscSafePointerPlusOffset(data_w_ghost, jj * bs * stride + kk);  in PCGAMGConstructProlongator_AGG()
1378     for (kk = 0; kk < nloc; kk++) fid_glid_loc[kk] = (PetscReal)(my0 + kk);  in PCGAMGConstructProlongator_AGG()
1381     for (kk = 0; kk < stride; kk++) flid_fgid[kk] = (PetscInt)fiddata[kk];  in PCGAMGConstructProlongator_AGG()
1388     for (kk = 0; kk < nloc; kk++) flid_fgid[kk] = my0 + kk;  in PCGAMGConstructProlongator_AGG()