Home
last modified time | relevance | path

Searched refs:ark (Results 1 – 3 of 3) sorted by relevance

/petsc/src/ts/impls/arkimex/
H A Dfsarkimex.c8 TS_ARKIMEX *ark = (TS_ARKIMEX *)ts->data; in TSARKIMEXSetSplits() local
12 PetscCall(TSRHSSplitGetSubTS(ts, "slow", &ark->subts_slow)); in TSARKIMEXSetSplits()
13 PetscCall(TSRHSSplitGetSubTS(ts, "fast", &ark->subts_fast)); in TSARKIMEXSetSplits()
16 if (ark->subts_slow) { in TSARKIMEXSetSplits()
18 PetscCall(TSGetDM(ark->subts_slow, &subdm)); in TSARKIMEXSetSplits()
20 PetscCall(TSSetDM(ark->subts_slow, newdm)); in TSARKIMEXSetSplits()
23 if (ark->subts_fast) { in TSARKIMEXSetSplits()
25 PetscCall(TSGetDM(ark->subts_fast, &subdm)); in TSARKIMEXSetSplits()
27 PetscCall(TSSetDM(ark->subts_fast, newdm)); in TSARKIMEXSetSplits()
35 TS_ARKIMEX *ark = (TS_ARKIMEX *)ts->data; in SNESTSFormFunction_ARKIMEX_FastSlowSplit() local
[all …]
H A Darkimex.c1227 TS_ARKIMEX *ark = (TS_ARKIMEX *)ts->data; in TSEvaluateStep_ARKIMEX() local
1228 ARKTableau tab = ark->tableau; in TSEvaluateStep_ARKIMEX()
1229 PetscScalar *w = ark->work; in TSEvaluateStep_ARKIMEX()
1235 switch (ark->status) { in TSEvaluateStep_ARKIMEX()
1247 if (ark->status == TS_STEP_INCOMPLETE) { in TSEvaluateStep_ARKIMEX()
1248 …if (!ark->imex && tab->stiffly_accurate) { /* Only the stiffly accurate implicit formula is used */ in TSEvaluateStep_ARKIMEX()
1249 PetscCall(VecCopy(ark->Y[s - 1], X)); in TSEvaluateStep_ARKIMEX()
1253 PetscCall(VecMAXPY(X, s, w, ark->YdotI)); in TSEvaluateStep_ARKIMEX()
1254 if (tab->additive && ark->imex) { /* Method is IMEX, complete the explicit formula */ in TSEvaluateStep_ARKIMEX()
1258 PetscCall(VecMAXPY(X, s, w, ark->YdotRHS)); in TSEvaluateStep_ARKIMEX()
[all …]
/petsc/doc/manualpages/doctext/
H A Dpetsc.group17 M(\.|ark)( F\.)? Adams!http://www.cs.berkeley.edu/~madams