| /petsc/src/dm/impls/composite/ftn-custom/ |
| H A D | zfddaf.c | 64 PetscInt ndm; in dmcompositegetglobaliss_() local
68 *ierr = DMCompositeGetNumberDM(*dm, &ndm); in dmcompositegetglobaliss_()
70 *ierr = F90Array1dCreate((void *)ais, MPIU_FORTRANADDR, 1, ndm, ptr PETSC_F90_2PTR_PARAM(ptrd)); in dmcompositegetglobaliss_()
76 PetscInt ndm; in dmcompositerestoreglobaliss_() local
80 *ierr = DMCompositeGetNumberDM(*dm, &ndm); in dmcompositerestoreglobaliss_()
81 for (PetscInt i = 0; i < ndm; i++) { in dmcompositerestoreglobaliss_()
93 PetscInt ndm; in dmcompositegetlocaliss_() local
97 *ierr = DMCompositeGetNumberDM(*dm, &ndm); in dmcompositegetlocaliss_()
99 *ierr = F90Array1dCreate((void *)ais, MPIU_FORTRANADDR, 1, ndm, ptr PETSC_F90_2PTR_PARAM(ptrd)); in dmcompositegetlocaliss_()
105 PetscInt ndm; in dmcompositerestorelocaliss_() local
[all …]
|
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex54f.F90 | 259 subroutine thfx2d(ev, xl, shp, dd, ndm, ndf, nel, dir) argument
261 PetscInt ndm, ndf, nel, i
262 PetscReal ev(2), xl(ndm, nel), shp(3, *), dir
292 subroutine shp2dquad(s, t, xl, shp, xsj, ndm) argument
308 PetscInt ndm
312 PetscReal tm, xl(ndm, 4), shp(3, 4)
|
| /petsc/src/ksp/pc/impls/gamg/ |
| H A D | geo.c | 34 static PetscErrorCode PCSetCoordinates_GEO(PC pc, PetscInt ndm, PetscInt a_nloc, PetscReal *coords) in PCSetCoordinates_GEO() argument
52 pc_gamg->data_cell_cols = ndm; /* coordinates */ in PCSetCoordinates_GEO()
66 for (ii = 0; ii < ndm; ii++) pc_gamg->data[ii * nloc + kk] = coords[kk * ndm + ii]; in PCSetCoordinates_GEO()
70 for (ii = 0; ii < ndm; ii++) pc_gamg->data[ii * nloc + kk] = coords[bs * kk * ndm + ii]; in PCSetCoordinates_GEO()
|
| H A D | agg.c | 353 static PetscErrorCode PCSetCoordinates_AGG(PC pc, PetscInt ndm, PetscInt a_nloc, PetscReal *coords) in PCSetCoordinates_AGG() argument
369 …PetscCheck(ndm <= ndf, PETSC_COMM_SELF, PETSC_ERR_PLIB, "degrees of motion %" PetscInt_FMT " > blo… in PCSetCoordinates_AGG()
370 pc_gamg->data_cell_cols = (ndm == 2 ? 3 : 6); /* displacement elasticity */ in PCSetCoordinates_AGG()
371 …ndm != ndf) PetscCheck(pc_gamg->data_cell_cols == ndf, PETSC_COMM_SELF, PETSC_ERR_PLIB, "Don't kno… in PCSetCoordinates_AGG()
398 if (ndm == 2) { in PCSetCoordinates_AGG()
|
| /petsc/src/ksp/pc/impls/ml/ |
| H A D | ml.c | 403 static PetscErrorCode PCSetCoordinates_ML(PC pc, PetscInt ndm, PetscInt a_nloc, PetscReal *coords) in PCSetCoordinates_ML() argument
422 pc_ml->dim = ndm; in PCSetCoordinates_ML()
424 arrsz = ndm * nloc; in PCSetCoordinates_ML()
435 for (ii = 0; ii < ndm; ii++) pc_ml->coords[ii * nloc + kk] = coords[kk * ndm + ii]; in PCSetCoordinates_ML()
439 for (ii = 0; ii < ndm; ii++) pc_ml->coords[ii * nloc + kk] = coords[bs * kk * ndm + ii]; in PCSetCoordinates_ML()
|
| /petsc/src/dm/impls/swarm/ |
| H A D | swarm.c | 2820 PetscErrorCode DMSwarmReplace(DM dm, DM *ndm) in DMSwarmReplace() argument
2822 DM dmNew = *ndm; in DMSwarmReplace()
2828 PetscCall(DMDestroy(ndm)); in DMSwarmReplace()
2835 PetscCall(PetscObjectGetName((PetscObject)*ndm, &name)); in DMSwarmReplace()
2846 PetscCall(DMDestroy(ndm)); in DMSwarmReplace()
|
| /petsc/src/dm/impls/plex/ |
| H A D | plexcreate.c | 121 PetscErrorCode DMPlexReplace_Internal(DM dm, DM *ndm) in DMPlexReplace_Internal() argument
124 DM dmNew = *ndm, coordDM, coarseDM; in DMPlexReplace_Internal()
133 PetscCall(DMDestroy(ndm)); in DMPlexReplace_Internal()
140 PetscCall(PetscObjectGetName((PetscObject)*ndm, &name)); in DMPlexReplace_Internal()
191 PetscCall(DMDestroy(ndm)); in DMPlexReplace_Internal()
|