Searched refs:ncrs (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ksp/pc/impls/gamg/ |
| H A D | gamg.c | 68 PetscInt ncrs_eq, ncrs, f_bs; in PCGAMGCreateLevel_GAMG() local
81 ncrs = pc_gamg->data_sz / pc_gamg->data_cell_cols / pc_gamg->data_cell_rows; in PCGAMGCreateLevel_GAMG()
85 ncrs = ncrs_eq / bs; in PCGAMGCreateLevel_GAMG()
220 PetscCall(PetscMalloc2(ncrs, &d_nnz, ncrs, &o_nnz)); in PCGAMGCreateLevel_GAMG()
229 if (d_nnz[jj] > ncrs) d_nnz[jj] = ncrs; in PCGAMGCreateLevel_GAMG()
230 if (o_nnz[jj] > (M / cr_bs - ncrs)) o_nnz[jj] = M / cr_bs - ncrs; in PCGAMGCreateLevel_GAMG()
235 PetscCall(MatSetSizes(tMat, ncrs, ncrs, PETSC_DETERMINE, PETSC_DETERMINE)); in PCGAMGCreateLevel_GAMG()
351 PetscCall(PetscMalloc1(ncrs * node_data_sz, &tidx)); in PCGAMGCreateLevel_GAMG()
353 for (ii = 0, jj = 0; ii < ncrs; ii++) { in PCGAMGCreateLevel_GAMG()
358 PetscCall(ISCreateGeneral(comm, node_data_sz * ncrs, tidx, PETSC_COPY_VALUES, &isscat)); in PCGAMGCreateLevel_GAMG()
[all …]
|