61 static PetscErrorCode PCGAMGCreateLevel_GAMG(PC pc, Mat Amat_fine, PetscInt cr_bs, Mat *a_P_inout, …  in PCGAMGCreateLevel_GAMG()  argument
159     nloc_old = ncrs_eq / cr_bs;  in PCGAMGCreateLevel_GAMG()
160 …ck(ncrs_eq % cr_bs == 0, PETSC_COMM_SELF, PETSC_ERR_PLIB, "ncrs_eq %" PetscInt_FMT " not divisible…  in PCGAMGCreateLevel_GAMG()
207       if (cr_bs == 1) {  in PCGAMGCreateLevel_GAMG()
223         for (Ii = Istart_crs, jj = 0; Ii < Iend_crs; Ii += cr_bs, jj++) {  in PCGAMGCreateLevel_GAMG()
225           d_nnz[jj] = ncols / cr_bs;  in PCGAMGCreateLevel_GAMG()
226           o_nnz[jj] = ncols / cr_bs;  in PCGAMGCreateLevel_GAMG()
230           if (o_nnz[jj] > (M / cr_bs - ncrs)) o_nnz[jj] = M / cr_bs - ncrs;  in PCGAMGCreateLevel_GAMG()
244           PetscInt dest_row = ii / cr_bs;  in PCGAMGCreateLevel_GAMG()
246           for (jj = 0; jj < ncols; jj++) j_buf[jj] = idx[jj] / cr_bs;  in PCGAMGCreateLevel_GAMG()
287 …for (ii = 0; ii < cr_bs; ii++, jj++) newproc_idx[jj] = is_idx[kk] * expand_factor; /* distribution…  in PCGAMGCreateLevel_GAMG()
333     ncrs_new = ncrs_eq_new / cr_bs;  in PCGAMGCreateLevel_GAMG()
354         PetscInt id = idx[ii * cr_bs] / cr_bs; /* get node back */  in PCGAMGCreateLevel_GAMG()
413     PetscCall(ISSetBlockSize(new_eq_indices, cr_bs));  in PCGAMGCreateLevel_GAMG()
543 …etscInt    fine_level, level, level1, bs, M, N, qq, lidx, nASMBlocksArr[PETSC_MG_MAXLEVELS], cr_bs;  in PCSetUp_GAMG()  local
706       PetscCall(MatGetBlockSizes(Prol, NULL, &cr_bs)); // column size  in PCSetUp_GAMG()
741         PetscCall(MatGetBlockSizes(Prol11, NULL, &cr_bs)); // column size  in PCSetUp_GAMG()
809 …PetscCall(pc_gamg->ops->createlevel(pc, Aarr[level], cr_bs, &Parr[level1], &Aarr[level1], &nactive…  in PCSetUp_GAMG()