Home
last modified time | relevance | path

Searched refs:sdm (Results 1 – 23 of 23) sorted by relevance

/petsc/src/snes/utils/ !
H A Ddmsnes.c4 static PetscErrorCode DMSNESUnsetFunctionContext_DMSNES(DMSNES sdm) in DMSNESUnsetFunctionContext_DMSNES() argument
7 PetscCall(PetscObjectCompose((PetscObject)sdm, "function ctx", NULL)); in DMSNESUnsetFunctionContext_DMSNES()
8 sdm->functionctxcontainer = NULL; in DMSNESUnsetFunctionContext_DMSNES()
12 static PetscErrorCode DMSNESUnsetJacobianContext_DMSNES(DMSNES sdm) in DMSNESUnsetJacobianContext_DMSNES() argument
15 PetscCall(PetscObjectCompose((PetscObject)sdm, "jacobian ctx", NULL)); in DMSNESUnsetJacobianContext_DMSNES()
16 sdm->jacobianctxcontainer = NULL; in DMSNESUnsetJacobianContext_DMSNES()
232 DMSNES sdm; in DMGetDMSNESWrite() local
236 PetscCall(DMGetDMSNES(dm, &sdm)); in DMGetDMSNESWrite()
237 …PetscCheck(sdm->originaldm, PETSC_COMM_SELF, PETSC_ERR_ARG_WRONGSTATE, "DMSNES has a NULL original… in DMGetDMSNESWrite()
238 if (sdm->originaldm != dm) { /* Copy on write */ in DMGetDMSNESWrite()
[all …]
H A Ddmlocalsnes.c15 static PetscErrorCode DMSNESDestroy_DMLocal(DMSNES sdm) in DMSNESDestroy_DMLocal() argument
18 PetscCall(PetscFree(sdm->data)); in DMSNESDestroy_DMLocal()
19 sdm->data = NULL; in DMSNESDestroy_DMLocal()
23 static PetscErrorCode DMSNESDuplicate_DMLocal(DMSNES oldsdm, DMSNES sdm) in DMSNESDuplicate_DMLocal() argument
26 if (sdm->data != oldsdm->data) { in DMSNESDuplicate_DMLocal()
27 PetscCall(PetscFree(sdm->data)); in DMSNESDuplicate_DMLocal()
28 PetscCall(PetscNew((DMSNES_Local **)&sdm->data)); in DMSNESDuplicate_DMLocal()
29 if (oldsdm->data) PetscCall(PetscMemcpy(sdm->data, oldsdm->data, sizeof(DMSNES_Local))); in DMSNESDuplicate_DMLocal()
34 static PetscErrorCode DMLocalSNESGetContext(DM dm, DMSNES sdm, DMSNES_Local **dmlocalsnes) in DMLocalSNESGetContext() argument
38 if (!sdm->data) { in DMLocalSNESGetContext()
[all …]
H A Ddmdasnes.c29 static PetscErrorCode DMSNESDestroy_DMDA(DMSNES sdm) in DMSNESDestroy_DMDA() argument
32 PetscCall(PetscFree(sdm->data)); in DMSNESDestroy_DMDA()
36 static PetscErrorCode DMSNESDuplicate_DMDA(DMSNES oldsdm, DMSNES sdm) in DMSNESDuplicate_DMDA() argument
39 PetscCall(PetscNew((DMSNES_DA **)&sdm->data)); in DMSNESDuplicate_DMDA()
40 if (oldsdm->data) PetscCall(PetscMemcpy(sdm->data, oldsdm->data, sizeof(DMSNES_DA))); in DMSNESDuplicate_DMDA()
44 static PetscErrorCode DMDASNESGetContext(DM dm, DMSNES sdm, DMSNES_DA **dmdasnes) in DMDASNESGetContext() argument
48 if (!sdm->data) { in DMDASNESGetContext()
49 PetscCall(PetscNew((DMSNES_DA **)&sdm->data)); in DMDASNESGetContext()
50 sdm->ops->destroy = DMSNESDestroy_DMDA; in DMDASNESGetContext()
51 sdm->ops->duplicate = DMSNESDuplicate_DMDA; in DMDASNESGetContext()
[all …]
H A Ddmplexsnes.c665 DMSNES sdm; in MatComputeNeumannOverlap_Plex() local
687 PetscCall(DMGetDMSNES(ovldm, &sdm)); in MatComputeNeumannOverlap_Plex()
/petsc/src/snes/utils/ftn-custom/ !
H A Dzdmdasnesf.c25 DMSNES sdm; in sourlj1d() local
28 PetscCall(DMGetDMSNES(info->da, &sdm)); in sourlj1d()
29 …PetscCall(PetscObjectGetFortranCallback((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, _cb.lj1d… in sourlj1d()
37 DMSNES sdm; in sourlj2d() local
40 PetscCall(DMGetDMSNES(info->da, &sdm)); in sourlj2d()
41 …PetscCall(PetscObjectGetFortranCallback((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, _cb.lj2d… in sourlj2d()
49 DMSNES sdm; in sourlj3d() local
52 PetscCall(DMGetDMSNES(info->da, &sdm)); in sourlj3d()
53 …PetscCall(PetscObjectGetFortranCallback((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, _cb.lj2d… in sourlj3d()
60 DMSNES sdm; in dmdasnessetjacobianlocal_() local
[all …]
H A Dzdmlocalsnesf.c19 DMSNES sdm; in sourlj() local
22 PetscCall(DMGetDMSNES(dm, &sdm)); in sourlj()
23 …PetscCall(PetscObjectGetFortranCallback((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, _cb.lj, … in sourlj()
30 DMSNES sdm; in dmsnessetjacobianlocal_() local
32 *ierr = DMGetDMSNESWrite(*dm, &sdm); in dmsnessetjacobianlocal_()
34 …*ierr = PetscObjectSetFortranCallback((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, &_cb.lj, (… in dmsnessetjacobianlocal_()
42 DMSNES sdm; in sourlf() local
45 PetscCall(DMGetDMSNES(dm, &sdm)); in sourlf()
46 …PetscCall(PetscObjectGetFortranCallback((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, _cb.lf, … in sourlf()
53 DMSNES sdm; in dmsnessetfunctionlocal_() local
[all …]
H A Dzdmsnesf.c20 DMSNES sdm; in ourj() local
24 PetscCall(DMGetDMSNES(dm, &sdm)); in ourj()
25 …PetscCall(PetscObjectGetFortranCallback((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, _cb.snes… in ourj()
32 DMSNES sdm; in dmsnessetjacobian_() local
34 *ierr = DMGetDMSNESWrite(*dm, &sdm); in dmsnessetjacobian_()
36 …*ierr = PetscObjectSetFortranCallback((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, &_cb.snesj… in dmsnessetjacobian_()
45 DMSNES sdm; in ourf() local
49 PetscCall(DMGetDMSNES(dm, &sdm)); in ourf()
50 …PetscCall(PetscObjectGetFortranCallback((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, _cb.snes… in ourf()
57 DMSNES sdm; in dmsnessetfunction_() local
[all …]
/petsc/src/dm/impls/plex/tests/ !
H A Dex21.c199 DM sdm; in main() local
255 PetscCall(DMShellCreate(comm, &sdm)); in main()
257 PetscCall(DMSetPointSF(sdm, sf)); in main()
259 PetscCall(DMClone(dm, &sdm)); in main()
261 PetscCall(PetscObjectSetName((PetscObject)sdm, exampleSectionDMName)); in main()
262 PetscCall(DMSetLocalSection(sdm, section)); in main()
264 PetscCall(DMPlexSectionView(dm, viewer, sdm)); in main()
266 PetscCall(DMGetGlobalSection(sdm, &gsection)); in main()
277 PetscCall(DMGetGlobalVector(sdm, &vec)); in main()
312 PetscCall(DMPlexGlobalVectorView(dm, viewer, sdm, vec)); in main()
[all …]
/petsc/src/ts/utils/ !
H A Ddmdats.c20 static PetscErrorCode DMTSDestroy_DMDA(DMTS sdm) in DMTSDestroy_DMDA() argument
23 PetscCall(PetscFree(sdm->data)); in DMTSDestroy_DMDA()
27 static PetscErrorCode DMTSDuplicate_DMDA(DMTS oldsdm, DMTS sdm) in DMTSDuplicate_DMDA() argument
30 PetscCall(PetscNew((DMTS_DA **)&sdm->data)); in DMTSDuplicate_DMDA()
31 if (oldsdm->data) PetscCall(PetscMemcpy(sdm->data, oldsdm->data, sizeof(DMTS_DA))); in DMTSDuplicate_DMDA()
35 static PetscErrorCode DMDATSGetContext(DM dm, DMTS sdm, DMTS_DA **dmdats) in DMDATSGetContext() argument
39 if (!sdm->data) { in DMDATSGetContext()
40 PetscCall(PetscNew((DMTS_DA **)&sdm->data)); in DMDATSGetContext()
41 sdm->ops->destroy = DMTSDestroy_DMDA; in DMDATSGetContext()
42 sdm->ops->duplicate = DMTSDuplicate_DMDA; in DMDATSGetContext()
[all …]
H A Ddmts.c307 DMTS sdm; in DMGetDMTSWrite() local
311 PetscCall(DMGetDMTS(dm, &sdm)); in DMGetDMTSWrite()
312 …PetscCheck(sdm->originaldm, PETSC_COMM_SELF, PETSC_ERR_ARG_WRONGSTATE, "DMTS has a NULL originaldm… in DMGetDMTSWrite()
313 if (sdm->originaldm != dm) { /* Copy on write */ in DMGetDMTSWrite()
314 DMTS oldsdm = sdm; in DMGetDMTSWrite()
316 PetscCall(DMTSCreate(PetscObjectComm((PetscObject)dm), &sdm)); in DMGetDMTSWrite()
317 PetscCall(DMTSCopy(oldsdm, sdm)); in DMGetDMTSWrite()
319 dm->dmts = (PetscObject)sdm; in DMGetDMTSWrite()
320 sdm->originaldm = dm; in DMGetDMTSWrite()
322 *tsdm = sdm; in DMGetDMTSWrite()
/petsc/src/ts/tutorials/ !
H A Dex77.c432 DM sdm, dm, vdm; in FreeStreaming() local
442 PetscCall(TSGetDM(ts, &sdm)); in FreeStreaming()
443 PetscCall(DMSwarmGetCellDM(sdm, &dm)); in FreeStreaming()
444 PetscCall(DMGetGlobalVector(sdm, &pvel)); in FreeStreaming()
445 PetscCall(DMSwarmGetLocalSize(sdm, &Np)); in FreeStreaming()
477 PetscCall(DMRestoreGlobalVector(sdm, &pvel)); in FreeStreaming()
541 static PetscErrorCode SetupDiscretization(DM dm, DM sdm, AppCtx *user) in SetupDiscretization() argument
600 PetscCall(DMSwarmSetType(sdm, DMSWARM_PIC)); in SetupDiscretization()
601 PetscCall(DMSwarmRegisterPetscDatatypeField(sdm, "mass", 1, PETSC_REAL)); in SetupDiscretization()
602 PetscCall(DMSwarmFinalizeFieldRegister(sdm)); in SetupDiscretization()
[all …]
H A Dex30.c1071 DM sdm; in SaveToFile() local
1085 PetscCall(DMClone(dm, &sdm)); in SaveToFile()
1086 PetscCall(PetscObjectSetName((PetscObject)sdm, "pdm")); in SaveToFile()
1088 PetscCall(DMSetLocalSection(sdm, section)); in SaveToFile()
1091 PetscCall(DMGetLocalVector(sdm, &map)); in SaveToFile()
1121 PetscCall(DMPlexSectionView(dm, viewer, sdm)); in SaveToFile()
1122 PetscCall(DMPlexLocalVectorView(dm, viewer, sdm, map)); in SaveToFile()
1123 PetscCall(DMRestoreLocalVector(sdm, &map)); in SaveToFile()
1124 PetscCall(DMDestroy(&sdm)); in SaveToFile()
1174 DM sdm; in LoadFromFile() local
[all …]
/petsc/src/snes/interface/ !
H A Dsnesob.c88 DMSNES sdm; in SNESComputeObjective() local
95 PetscCall(DMGetDMSNES(dm, &sdm)); in SNESComputeObjective()
96 …PetscCheck(sdm->ops->computeobjective, PetscObjectComm((PetscObject)snes), PETSC_ERR_ARG_WRONGSTAT… in SNESComputeObjective()
98 PetscCall(sdm->ops->computeobjective(snes, X, ob, sdm->objectivectx)); in SNESComputeObjective()
H A Dsnes.c690 DMSNES sdm; in KSPComputeOperators_SNES() local
714 PetscCall(DMGetDMSNES(snes->dm, &sdm)); in KSPComputeOperators_SNES()
715 if (Xnamed && sdm->ops->computefunction) { in KSPComputeOperators_SNES()
728 if (!sdm->ops->computejacobian) PetscCall(DMCopyDMSNES(dmsave, snes->dm)); in KSPComputeOperators_SNES()
762 DMSNES sdm; in SNESSetUpMatrices() local
766 PetscCall(DMGetDMSNES(dm, &sdm)); in SNESSetUpMatrices()
2241 DMSNES sdm; in SNESPicardComputeMFFunction() local
2245 PetscCall(DMGetDMSNES(dm, &sdm)); in SNESPicardComputeMFFunction()
2247 if (sdm->ops->computepfunction) { in SNESPicardComputeMFFunction()
2248 …PetscCallBack("SNES Picard callback function", (*sdm->ops->computepfunction)(snes, x, f, sdm->pctx… in SNESPicardComputeMFFunction()
[all …]
/petsc/src/snes/impls/vi/ss/ !
H A Dviss.c204 DMSNES sdm; in SNESSolve_VINEWTONSSLS() local
208 PetscCall(DMGetDMSNES(dm, &sdm)); in SNESSolve_VINEWTONSSLS()
210 vi->computeuserfunction = sdm->ops->computefunction; in SNESSolve_VINEWTONSSLS()
211 sdm->ops->computefunction = SNESVIComputeFunction; in SNESSolve_VINEWTONSSLS()
232 sdm->ops->computefunction = vi->computeuserfunction; in SNESSolve_VINEWTONSSLS()
251 sdm->ops->computefunction = vi->computeuserfunction; in SNESSolve_VINEWTONSSLS()
262 sdm->ops->computefunction = vi->computeuserfunction; in SNESSolve_VINEWTONSSLS()
265 sdm->ops->computefunction = SNESVIComputeFunction; in SNESSolve_VINEWTONSSLS()
310 sdm->ops->computefunction = vi->computeuserfunction; in SNESSolve_VINEWTONSSLS()
339 sdm->ops->computefunction = vi->computeuserfunction; in SNESSolve_VINEWTONSSLS()
/petsc/src/dm/impls/plex/ !
H A Dplexsubmesh.c1236 …scErrorCode DMPlexConstructCohesiveCells_Internal(DM dm, DMLabel label, DMLabel splitLabel, DM sdm) in DMPlexConstructCohesiveCells_Internal() argument
1269 PetscCall(DMCreateLabel(sdm, "celltype")); in DMPlexConstructCohesiveCells_Internal()
1327 PetscCall(DMPlexShiftSizes_Internal(dm, depthShift, sdm)); in DMPlexConstructCohesiveCells_Internal()
1339 PetscCall(DMPlexSetConeSize(sdm, splitp, coneSize)); in DMPlexConstructCohesiveCells_Internal()
1341 PetscCall(DMPlexSetSupportSize(sdm, splitp, supportSize)); in DMPlexConstructCohesiveCells_Internal()
1343 PetscCall(DMPlexSetCellType(sdm, splitp, ct)); in DMPlexConstructCohesiveCells_Internal()
1348 PetscCall(DMPlexSetConeSize(sdm, hybcell, 2 + coneSize)); in DMPlexConstructCohesiveCells_Internal()
1351 PetscCall(DMPlexSetCellType(sdm, hybcell, DM_POLYTOPE_SEG_PRISM_TENSOR)); in DMPlexConstructCohesiveCells_Internal()
1354 PetscCall(DMPlexSetCellType(sdm, hybcell, DM_POLYTOPE_TRI_PRISM_TENSOR)); in DMPlexConstructCohesiveCells_Internal()
1357 PetscCall(DMPlexSetCellType(sdm, hybcell, DM_POLYTOPE_QUAD_PRISM_TENSOR)); in DMPlexConstructCohesiveCells_Internal()
[all …]
H A Dplexcreate.c4442 DM sdm, vol; in DMPlexCreateBallMesh_Internal() local
4447 PetscCall(DMCreate(PetscObjectComm((PetscObject)dm), &sdm)); in DMPlexCreateBallMesh_Internal()
4448 PetscCall(DMSetType(sdm, DMPLEX)); in DMPlexCreateBallMesh_Internal()
4450 PetscCall(DMSetOptionsPrefix(sdm, prefix)); in DMPlexCreateBallMesh_Internal()
4451 PetscCall(DMAppendOptionsPrefix(sdm, "bd_")); in DMPlexCreateBallMesh_Internal()
4452 PetscCall(DMPlexDistributeSetDefault(sdm, PETSC_FALSE)); in DMPlexCreateBallMesh_Internal()
4453 PetscCall(DMPlexCreateSphereMesh_Internal(sdm, dim - 1, PETSC_TRUE, R)); in DMPlexCreateBallMesh_Internal()
4454 PetscCall(DMSetFromOptions(sdm)); in DMPlexCreateBallMesh_Internal()
4455 PetscCall(DMViewFromOptions(sdm, NULL, "-dm_view")); in DMPlexCreateBallMesh_Internal()
4456 PetscCall(DMPlexGenerate(sdm, NULL, PETSC_TRUE, &vol)); in DMPlexCreateBallMesh_Internal()
[all …]
/petsc/src/dm/impls/da/ !
H A Ddadd.c265 static PetscErrorCode DMDASubDomainDA_Private(DM dm, PetscInt *nlocal, DM **sdm) in DMDASubDomainDA_Private() argument
416 *sdm = da; in DMDASubDomainDA_Private()
544 DM *sdm = NULL; in DMCreateDomainDecomposition_DA() local
548 PetscCall(DMDASubDomainDA_Private(dm, &n, &sdm)); in DMCreateDomainDecomposition_DA()
553 PetscCall(DMDASubDomainIS_Private(dm, n, sdm, iis, ois)); in DMCreateDomainDecomposition_DA()
554 if (subdm) *subdm = sdm; in DMCreateDomainDecomposition_DA()
556 for (i = 0; i < n; i++) PetscCall(DMDestroy(&sdm[i])); in DMCreateDomainDecomposition_DA()
/petsc/doc/manual/ !
H A Ddmplex.md432 Here, we create the wrapping `DM`, `sdm`, with `DMClone()`, give it a *dm name*, "dmA", attach `s` …
435 DMClone(dm, &sdm);
436 PetscObjectSetName((PetscObject)sdm, "dmA");
437 DMSetLocalSection(sdm, s);
438 DMPlexSectionView(dm, viewer, sdm);
448 We now create a local vector associated with `sdm`, e.g., as:
453 DMGetLocalVector(sdm, &vec);
460 DMPlexLocalVectorView(dm, viewer, sdm, vec);
623 We then create a new `DM`, `sdm`, with `DMClone()`, give it
624 a *dm name*, "dmA", and load the on-disk data layout into `sdm` as:
[all …]
/petsc/src/binding/petsc4py/src/lib-petsc/ !
H A Dcustom.h536 DMSNES sdm; in SNESSetUseFDColoring() local
538 PetscCall(DMGetDMSNES(dm,&sdm)); in SNESSetUseFDColoring()
/petsc/src/dm/dt/dualspace/interface/ !
H A Ddualspace.c1007 DM sdm; in PetscDualSpacePushForwardSubspaces_Internal() local
1014 PetscCall(PetscDualSpaceGetDM(ssp, &sdm)); in PetscDualSpacePushForwardSubspaces_Internal()
1015 PetscCall(DMGetDimension(sdm, &sdim)); in PetscDualSpacePushForwardSubspaces_Internal()
1016 PetscCall(DMPlexComputeCellGeometryAffineFEM(sdm, 0, sv0, NULL, NULL, &hdetJ)); in PetscDualSpacePushForwardSubspaces_Internal()
/petsc/src/ts/interface/ !
H A Dts.c1814 DMTS sdm; in TSLoad() local
1833 PetscCall(DMGetDMTS(ts->dm, &sdm)); in TSLoad()
1834 PetscCall(DMTSLoad(sdm, viewer)); in TSLoad()
1900 DMTS sdm; in TSView() local
1971 PetscCall(DMGetDMTS(ts->dm, &sdm)); in TSView()
1972 PetscCall(DMTSView(sdm, viewer)); in TSView()
2013 PetscCall(DMGetDMTS(ts->dm, &sdm)); in TSView()
2014 PetscCall(DMTSView(sdm, viewer)); in TSView()
/petsc/src/ksp/pc/impls/fieldsplit/ !
H A Dfieldsplit.c1015 DM sdm; in PCSetUp_FieldSplit() local
1016 PetscCall(KSPGetDM(jac->head->next->ksp, &sdm)); in PCSetUp_FieldSplit()
1017 if (sdm) { in PCSetUp_FieldSplit()
1018 PetscCall(KSPSetDM(jac->kspschur, sdm)); in PCSetUp_FieldSplit()