| /petsc/src/ts/utils/ |
| H A D | dmlocalts.c | 18 static PetscErrorCode DMTSDestroy_DMLocal(DMTS tdm) in DMTSDestroy_DMLocal() argument
21 PetscCall(PetscFree(tdm->data)); in DMTSDestroy_DMLocal()
25 static PetscErrorCode DMTSDuplicate_DMLocal(DMTS oldtdm, DMTS tdm) in DMTSDuplicate_DMLocal() argument
28 PetscCall(PetscNew((DMTS_Local **)&tdm->data)); in DMTSDuplicate_DMLocal()
29 if (oldtdm->data) PetscCall(PetscMemcpy(tdm->data, oldtdm->data, sizeof(DMTS_Local))); in DMTSDuplicate_DMLocal()
33 static PetscErrorCode DMLocalTSGetContext(DM dm, DMTS tdm, DMTS_Local **dmlocalts) in DMLocalTSGetContext() argument
37 if (!tdm->data) { in DMLocalTSGetContext()
38 PetscCall(PetscNew((DMTS_Local **)&tdm->data)); in DMLocalTSGetContext()
40 tdm->ops->destroy = DMTSDestroy_DMLocal; in DMLocalTSGetContext()
41 tdm->ops->duplicate = DMTSDuplicate_DMLocal; in DMLocalTSGetContext()
[all …]
|
| /petsc/src/dm/interface/ftn-custom/ |
| H A D | zdmf.c | 39 DM *tdm; in dmcreatefielddecompositiongetisdm_() local
42 *ierr = DMCreateFieldDecomposition(*dm, &n, NULL, &tis, &tdm); in dmcreatefielddecompositiongetisdm_()
46 *ierr = DMCreateFieldDecomposition(*dm, &n, NULL, NULL, &tdm); in dmcreatefielddecompositiongetisdm_()
51 if (dms) *ierr = F90Array1dCreate(tdm, MPIU_FORTRANADDR, 1, n, dms PETSC_F90_2PTR_PARAM(ptrd2)); in dmcreatefielddecompositiongetisdm_()
71 DM *tdm; in dmcreatefielddecompositionrestoreisdm_() local
72 *ierr = F90Array1dAccess(dms, MPIU_FORTRANADDR, (void **)&tdm PETSC_F90_2PTR_PARAM(ptrd2)); in dmcreatefielddecompositionrestoreisdm_()
76 for (PetscInt i = 0; i < n; i++) *ierr = DMDestroy(&tdm[i]); in dmcreatefielddecompositionrestoreisdm_()
77 *ierr = PetscFree(tdm); in dmcreatefielddecompositionrestoreisdm_()
|
| /petsc/src/dm/impls/plex/tests/ |
| H A D | ex57.c | 77 static PetscErrorCode CreateEphemeralMesh(DMPlexTransform tr, DM *tdm) in CreateEphemeralMesh() argument
80 PetscCall(DMPlexCreateEphemeral(tr, "eph_", tdm)); in CreateEphemeralMesh()
81 PetscCall(PetscObjectSetName((PetscObject)*tdm, "Ephemeral Mesh")); in CreateEphemeralMesh()
144 DM dm, tdm, rdm; in main() local
155 PetscCall(CreateEphemeralMesh(tr, &tdm)); in main()
162 PetscCall(DMViewFromOptions(tdm, NULL, "-dm_sec_view")); in main()
164 else PetscCall(CreateTransform(tdm, user.active, "second_", &tr2)); in main()
167 PetscCall(DMDestroy(&tdm)); in main()
170 tdm = tdm2; in main()
173 PetscCall(DMViewFromOptions(tdm, NULL, "-dm_view")); in main()
[all …]
|
| /petsc/src/dm/label/tutorials/ |
| H A D | ex1.c | 148 DM tdm; in TestEphemeralLabels() local
158 PetscCall(DMPlexCreateEphemeral(tr, "eph_", &tdm)); in TestEphemeralLabels()
160 PetscCall(PetscObjectSetName((PetscObject)tdm, "Ephemeral Mesh")); in TestEphemeralLabels()
162 PetscCall(DMGetLabel(tdm, "OuterBoundary", &label)); in TestEphemeralLabels()
166 PetscCall(DMDestroy(&tdm)); in TestEphemeralLabels()
|
| /petsc/src/dm/impls/plex/transform/impls/extrude/ |
| H A D | plextrcohesive.c | 962 static PetscErrorCode DMPlexTransformOrderSupports_Cohesive(DMPlexTransform tr, DM dm, DM tdm) in DMPlexTransformOrderSupports_Cohesive() argument
968 PetscCall(DMPlexGetChart(tdm, &pStart, &pEnd)); in DMPlexTransformOrderSupports_Cohesive()
972 PetscCall(DMPlexGetCellType(tdm, p, &ct)); in DMPlexTransformOrderSupports_Cohesive()
975 if (ct == DM_POLYTOPE_SEG_PRISM_TENSOR) PetscCall(OrderCohesiveSupport_Private(tdm, p)); in DMPlexTransformOrderSupports_Cohesive()
978 …ISM_TENSOR || ct == DM_POLYTOPE_QUAD_PRISM_TENSOR) PetscCall(OrderCohesiveSupport_Private(tdm, p)); in DMPlexTransformOrderSupports_Cohesive()
|
| H A D | plextrextrude.c | 129 static PetscErrorCode DMPlexTransformSetDimensions_Extrude(DMPlexTransform tr, DM dm, DM tdm) in DMPlexTransformSetDimensions_Extrude() argument
136 PetscCall(DMSetDimension(tdm, ex->dimEx)); in DMPlexTransformSetDimensions_Extrude()
137 PetscCall(DMSetCoordinateDim(tdm, ex->cdimEx)); in DMPlexTransformSetDimensions_Extrude()
|
| /petsc/src/dm/impls/plex/ |
| H A D | plexfem.c | 622 static PetscErrorCode DMPlexBasisTransformField_Internal(DM dm, DM tdm, Vec tv, PetscInt p, PetscIn… in DMPlexBasisTransformField_Internal() argument
629 PetscCall(DMGetLocalSection(tdm, &ts)); in DMPlexBasisTransformField_Internal()
632 PetscCall(DMPlexPointLocalFieldRead(tdm, p, f, ta, &tva)); in DMPlexBasisTransformField_Internal()
656 static PetscErrorCode DMPlexBasisTransformFieldTensor_Internal(DM dm, DM tdm, Vec tv, PetscInt pf, … in DMPlexBasisTransformFieldTensor_Internal() argument
664 PetscCall(DMGetLocalSection(tdm, &ts)); in DMPlexBasisTransformFieldTensor_Internal()
670 PetscCall(DMPlexPointLocalFieldRead(tdm, pf, f, ta, &tvaf)); in DMPlexBasisTransformFieldTensor_Internal()
671 PetscCall(DMPlexPointLocalFieldRead(tdm, pg, g, ta, &tvag)); in DMPlexBasisTransformFieldTensor_Internal()
711 PetscErrorCode DMPlexBasisTransformPoint_Internal(DM dm, DM tdm, Vec tv, PetscInt p, PetscBool fiel… in DMPlexBasisTransformPoint_Internal() argument
728 …if (fieldActive[f]) PetscCall(DMPlexBasisTransformField_Internal(dm, tdm, tv, points[cp], f, l2g, … in DMPlexBasisTransformPoint_Internal()
736 PetscErrorCode DMPlexBasisTransformPointTensor_Internal(DM dm, DM tdm, Vec tv, PetscInt p, PetscBoo… in DMPlexBasisTransformPointTensor_Internal() argument
[all …]
|
| H A D | plexproject.c | 715 DM plex, dmIn, plexIn, dmAux = NULL, plexAux = NULL, tdm; in DMProjectLocal_Generic_Plex() local
742 PetscCall(DMGetBasisTransformDM_Internal(dm, &tdm)); in DMProjectLocal_Generic_Plex()
1055 …if (transform) PetscCall(DMPlexBasisTransformPoint_Internal(plex, tdm, tv, point, fieldActive, PET… in DMProjectLocal_Generic_Plex()
1086 …if (transform) PetscCall(DMPlexBasisTransformPoint_Internal(plex, tdm, tv, p, fieldActive, PETSC_F… in DMProjectLocal_Generic_Plex()
|
| /petsc/src/dm/impls/plex/transform/interface/ |
| H A D | plextransform.c | 851 PetscErrorCode DMPlexTransformSetDimensions_Internal(DMPlexTransform tr, DM dm, DM tdm) in DMPlexTransformSetDimensions_Internal() argument
857 PetscCall(DMSetDimension(tdm, dim)); in DMPlexTransformSetDimensions_Internal()
859 PetscCall(DMSetCoordinateDim(tdm, cdim)); in DMPlexTransformSetDimensions_Internal()
|
| /petsc/src/dm/interface/ |
| H A D | dm.c | 2642 PetscErrorCode DMGetBasisTransformDM_Internal(DM dm, DM *tdm) in DMGetBasisTransformDM_Internal() argument
2646 PetscAssertPointer(tdm, 2); in DMGetBasisTransformDM_Internal()
2647 *tdm = dm->transformDM; in DMGetBasisTransformDM_Internal()
|
| /petsc/src/dm/impls/forest/p4est/ |
| H A D | pforest.h | 407 static PetscErrorCode DMForestTemplate_pforest(DM dm, DM tdm) in DMForestTemplate_pforest() argument
410 DM_Forest_pforest *tpforest = (DM_Forest_pforest *)((DM_Forest *)tdm->data)->data; in DMForestTemplate_pforest()
|