| /petsc/src/dm/impls/sliced/ |
| H A D | sliced.c | 13 DMSlicedBlockFills *dfill, *ofill; member
46 … bs + 1] - slice->ofill->i[i % bs] : bs) + (slice->dfill ? slice->dfill->i[i % bs + 1] - slice->df… in DMCreateMatrix_Sliced()
185 PetscErrorCode DMSlicedSetBlockFills(DM dm, const PetscInt dfill[], const PetscInt ofill[]) in DMSlicedSetBlockFills() argument
191 PetscCall(DMSlicedSetBlockFills_Private(slice->bs, dfill, &slice->dfill)); in DMSlicedSetBlockFills()
202 if (slice->dfill) PetscCall(PetscFree3(slice->dfill, slice->dfill->i, slice->dfill->j)); in DMDestroy_Sliced()
|
| /petsc/src/dm/tests/ |
| H A D | ex52.c | 9 const PetscInt dfill[4] = {0, 1, 0, 1}, ofill[4] = {0, 1, 1, 0}; in main() local
15 PetscCall(DMDASetBlockFills(da, dfill, ofill)); in main()
|
| H A D | ex30.c | 11 …PetscInt i, bs = 1, N = 5, n, m, rstart, ghosts[2], *d_nnz, *o_nnz, dfill[4] = {1, 0, 0, 1}, o… in main() local
62 …if (!useblock) PetscCall(DMSlicedSetBlockFills(slice, dfill, ofill)); /* Irrelevant for baij forma… in main()
|
| /petsc/src/dm/impls/moab/ |
| H A D | dmmbmat.cxx | 142 if (dmmoab->dfill) { /* first address the diagonal block */ in DMMoab_Compute_NNZ_From_Connectivity()
144 … for (jbs = 0, inbsize = 0; jbs < nfields; jbs++) inbsize += dmmoab->dfill[ibs * nfields + jbs]; in DMMoab_Compute_NNZ_From_Connectivity()
152 … for (jbs = 0, iobsize = 0; jbs < nfields; jbs++) iobsize += dmmoab->dfill[ibs * nfields + jbs]; in DMMoab_Compute_NNZ_From_Connectivity()
227 PetscErrorCode DMMoabSetBlockFills(DM dm, const PetscInt *dfill, const PetscInt *ofill) in DMMoabSetBlockFills() argument
233 PetscCall(DMMoabSetBlockFills_Private(dmmoab->numFields, dfill, &dmmoab->dfill)); in DMMoabSetBlockFills()
|
| H A D | dmmbmg.cxx | 484 PetscCall(DMMoabSetBlockFills(dm2, dmb->dfill, dmb->ofill)); in DMMoab_UMR_Private()
|
| H A D | dmmoab.cxx | 919 PetscCall(PetscFree(dmmoab->dfill)); in DMDestroy_Moab()
|
| /petsc/src/dm/impls/da/ |
| H A D | fdda.c | 16 static PetscErrorCode DMDASetBlockFills_Private(const PetscInt *dfill, PetscInt w, PetscInt **rfill) in DMDASetBlockFills_Private() argument
21 if (!dfill) PetscFunctionReturn(PETSC_SUCCESS); in DMDASetBlockFills_Private()
27 if (dfill[w * i + j]) nz++; in DMDASetBlockFills_Private()
38 if (dfill[w * i + j]) { in DMDASetBlockFills_Private()
119 PetscErrorCode DMDASetBlockFills(DM da, const PetscInt *dfill, const PetscInt *ofill) in DMDASetBlockFills() argument
125 PetscCall(DMDASetBlockFills_Private(dfill, dd->w, &dd->dfill)); in DMDASetBlockFills()
179 PetscCall(DMDASetBlockFillsSparse_Private(dfillsparse, dd->w, &dd->dfill)); in DMDASetBlockFillsSparse()
1151 PetscInt ifill_col, *ofill = dd->ofill, *dfill = dd->dfill; in DMCreateMatrix_DA_2d_MPIAIJ_Fill() local
1200 if (dfill) { in DMCreateMatrix_DA_2d_MPIAIJ_Fill()
1201 …for (ifill_col = dfill[k]; ifill_col < dfill[k + 1]; ifill_col++) cols[cnt++] = dfill[ifill_col] +… in DMCreateMatrix_DA_2d_MPIAIJ_Fill()
[all …]
|
| H A D | da.c | 1089 if (dd->dfill) { in DMRefine_DA()
1090 PetscCall(PetscMalloc1(dd->dfill[dd->w] + dd->w + 1, &dd2->dfill)); in DMRefine_DA()
1091 PetscCall(PetscArraycpy(dd2->dfill, dd->dfill, dd->dfill[dd->w] + dd->w + 1)); in DMRefine_DA()
1236 if (dd->dfill) { in DMCoarsen_DA()
1237 PetscCall(PetscMalloc1(dd->dfill[dd->w] + dd->w + 1, &dd2->dfill)); in DMCoarsen_DA()
1238 PetscCall(PetscArraycpy(dd2->dfill, dd->dfill, dd->dfill[dd->w] + dd->w + 1)); in DMCoarsen_DA()
|
| H A D | dadestroy.c | 47 PetscCall(PetscFree(dd->dfill)); in DMDestroy_DA()
|
| /petsc/include/petsc/private/ |
| H A D | dmmbimpl.h | 37 …PetscInt *dfill, *ofill; /* The diagonal and off-diagonal block-fill to indicate coupling between … member
|
| H A D | dmdaimpl.h | 68 PetscInt *ofill, *dfill; member
|