Searched refs:kdm (Results 1 – 7 of 7) sorted by relevance
| /petsc/src/ksp/ksp/interface/ |
| H A D | dmksp.c | 5 static PetscErrorCode DMKSPDestroy(DMKSP *kdm) in DMKSPDestroy() argument
8 if (!*kdm) PetscFunctionReturn(PETSC_SUCCESS); in DMKSPDestroy()
9 PetscValidHeaderSpecific(*kdm, DMKSP_CLASSID, 1); in DMKSPDestroy()
10 if (--((PetscObject)*kdm)->refct > 0) { in DMKSPDestroy()
11 *kdm = NULL; in DMKSPDestroy()
14 if ((*kdm)->ops->destroy) PetscCall(((*kdm)->ops->destroy)(kdm)); in DMKSPDestroy()
15 PetscCall(PetscHeaderDestroy(kdm)); in DMKSPDestroy()
19 static PetscErrorCode DMKSPCreate(MPI_Comm comm, DMKSP *kdm) in DMKSPCreate() argument
23 …PetscCall(PetscHeaderCreate(*kdm, DMKSP_CLASSID, "DMKSP", "DMKSP", "DMKSP", comm, DMKSPDestroy, NU… in DMKSPCreate()
60 static PetscErrorCode DMKSPCopy(DMKSP kdm, DMKSP nkdm) in DMKSPCopy() argument
[all …]
|
| H A D | itfunc.c | 366 DMKSP kdm; in KSPSetUp() local
367 PetscCall(DMGetDMKSP(ksp->dm, &kdm)); in KSPSetUp()
369 …if (kdm->ops->computeinitialguess && ksp->setupstage != KSP_SETUP_NEWRHS && (ksp->dmActive & KSP_D… in KSPSetUp()
371 …PetscCallBack("KSP callback initial guess", (*kdm->ops->computeinitialguess)(ksp, ksp->vec_sol, kd… in KSPSetUp()
374 …if (kdm->ops->computerhs && (ksp->dmActive & KSP_DMACTIVE_RHS)) PetscCallBack("KSP callback rhs", … in KSPSetUp()
376 …PetscCheck(kdm->ops->computeoperators, PetscObjectComm((PetscObject)ksp), PETSC_ERR_ARG_WRONGSTATE… in KSPSetUp()
378 …PetscCallBack("KSP callback operators", (*kdm->ops->computeoperators)(ksp, A, B, kdm->operatorsctx… in KSPSetUp()
|
| H A D | iterativ.c | 1972 DMKSP kdm; in KSPSetDM() local
1974 PetscCall(DMGetDMKSP(ksp->dm, &kdm)); in KSPSetDM()
1975 …if (kdm->originaldm == ksp->dm) kdm->originaldm = dm; /* Grant write privileges to the replacement… in KSPSetDM()
|
| /petsc/src/ksp/ksp/interface/ftn-custom/ |
| H A D | zdmkspf.c | 17 DMKSP kdm; in ourkspcomputerhs() local
19 PetscCall(DMGetDMKSP(dm, &kdm)); in ourkspcomputerhs()
20 …PetscCallFortranVoidFunction((*(void (*)(KSP *, Vec *, void *, PetscErrorCode *))kdm->fortran_func… in ourkspcomputerhs()
27 DMKSP kdm; in ourkspcomputeinitialguess() local
29 PetscCall(DMGetDMKSP(dm, &kdm)); in ourkspcomputeinitialguess()
30 …PetscCallFortranVoidFunction((*(void (*)(KSP *, Vec *, void *, PetscErrorCode *))kdm->fortran_func… in ourkspcomputeinitialguess()
37 DMKSP kdm; in ourkspcomputeoperators() local
39 PetscCall(DMGetDMKSP(dm, &kdm)); in ourkspcomputeoperators()
40 …PetscCallFortranVoidFunction((*(void (*)(KSP *, Mat *, Mat *, void *, PetscErrorCode *))kdm->fortr… in ourkspcomputeoperators()
51 DMKSP kdm; in dmkspsetcomputerhs_() local
[all …]
|
| /petsc/src/ts/utils/ |
| H A D | dmts.c | 52 static PetscErrorCode DMTSDestroy(DMTS *kdm) in DMTSDestroy() argument
55 if (!*kdm) PetscFunctionReturn(PETSC_SUCCESS); in DMTSDestroy()
56 PetscValidHeaderSpecific(*kdm, DMTS_CLASSID, 1); in DMTSDestroy()
57 if (--((PetscObject)*kdm)->refct > 0) { in DMTSDestroy()
58 *kdm = NULL; in DMTSDestroy()
61 PetscCall(DMTSUnsetRHSFunctionContext_DMTS(*kdm)); in DMTSDestroy()
62 PetscCall(DMTSUnsetRHSJacobianContext_DMTS(*kdm)); in DMTSDestroy()
63 PetscCall(DMTSUnsetIFunctionContext_DMTS(*kdm)); in DMTSDestroy()
64 PetscCall(DMTSUnsetIJacobianContext_DMTS(*kdm)); in DMTSDestroy()
65 PetscCall(DMTSUnsetI2FunctionContext_DMTS(*kdm)); in DMTSDestroy()
[all …]
|
| /petsc/src/snes/utils/ |
| H A D | dmsnes.c | 20 static PetscErrorCode DMSNESDestroy(DMSNES *kdm) in DMSNESDestroy() argument
23 if (!*kdm) PetscFunctionReturn(PETSC_SUCCESS); in DMSNESDestroy()
24 PetscValidHeaderSpecific(*kdm, DMSNES_CLASSID, 1); in DMSNESDestroy()
25 if (--((PetscObject)*kdm)->refct > 0) { in DMSNESDestroy()
26 *kdm = NULL; in DMSNESDestroy()
29 PetscCall(DMSNESUnsetFunctionContext_DMSNES(*kdm)); in DMSNESDestroy()
30 PetscCall(DMSNESUnsetJacobianContext_DMSNES(*kdm)); in DMSNESDestroy()
31 PetscTryTypeMethod(*kdm, destroy); in DMSNESDestroy()
32 PetscCall(PetscHeaderDestroy(kdm)); in DMSNESDestroy()
36 PetscErrorCode DMSNESLoad(DMSNES kdm, PetscViewer viewer) in DMSNESLoad() argument
[all …]
|
| /petsc/doc/developers/ |
| H A D | callbacks.md | 109 DMKSP kdm;
113 PetscCall(DMGetDMKSPWrite(dm,&kdm));
114 if (func) kdm->ops->computeoperators = func;
115 if (ctx) kdm->operatorsctx = ctx;
128 DMKSP kdm;
132 PetscCall(DMGetDMKSP(dm,&kdm));
133 if (!kdm->originaldm) kdm->originaldm = dm;
134 if (kdm->originaldm != dm) { /* Copy on write */
135 DMKSP oldkdm = kdm;
137 PetscCall(DMKSPCreate(PetscObjectComm((PetscObject)dm),&kdm));
[all …]
|