15 static PetscErrorCode TSMimexGetX0AndXdot(TS ts, DM dm, Vec *X0, Vec *Xdot)  in TSMimexGetX0AndXdot()  argument
20   if (X0) {  in TSMimexGetX0AndXdot()
21     if (dm && dm != ts->dm) PetscCall(DMGetNamedGlobalVector(dm, "TSMimex_X0", X0));  in TSMimexGetX0AndXdot()
22     else *X0 = ts->vec_sol;  in TSMimexGetX0AndXdot()
31 static PetscErrorCode TSMimexRestoreX0AndXdot(TS ts, DM dm, Vec *X0, Vec *Xdot)  in TSMimexRestoreX0AndXdot()  argument
34   if (X0)  in TSMimexRestoreX0AndXdot()
35     if (dm && dm != ts->dm) PetscCall(DMRestoreNamedGlobalVector(dm, "TSMimex_X0", X0));  in TSMimexRestoreX0AndXdot()
65   Vec       X0, Xdot;  in SNESTSFormFunction_Mimex()  local
70   PetscCall(TSMimexGetX0AndXdot(ts, dm, &X0, &Xdot));  in SNESTSFormFunction_Mimex()
71   PetscCall(VecAXPBYPCZ(Xdot, -shift, shift, 0, X0, x));  in SNESTSFormFunction_Mimex()
92     PetscCall(VecCopy(X0, Xstar));  in SNESTSFormFunction_Mimex()
118   PetscCall(TSMimexRestoreX0AndXdot(ts, dm, &X0, &Xdot));  in SNESTSFormFunction_Mimex()