Searched refs:cr_bs (Results 1 – 1 of 1) sorted by relevance
61 static PetscErrorCode PCGAMGCreateLevel_GAMG(PC pc, Mat Amat_fine, PetscInt cr_bs, Mat *a_P_inout, … in PCGAMGCreateLevel_GAMG() argument159 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()[all …]