30   AppCtx            *actx = (AppCtx *)ctx;  in EventFunction()  local
35   if (actx->mode == 1) {  in EventFunction()
36     fvalue[0] = PetscRealPart(u[1] - actx->lambda1 * u[0]);  in EventFunction()
37   } else if (actx->mode == 2) {  in EventFunction()
38     fvalue[0] = PetscRealPart(u[1] - actx->lambda2 * u[0]);  in EventFunction()
44 PetscErrorCode ShiftGradients(TS ts, Vec U, AppCtx *actx)  in ShiftGradients()  argument
56   if (actx->mode == 2) {  in ShiftGradients()
57     denorm1  = -actx->lambda1 * (u[0] - 100. * u[1]) + 1. * (10. * u[0] + u[1]);  in ShiftGradients()
58     denorm2  = -actx->lambda1 * (u[0] + 10. * u[1]) + 1. * (-100. * u[0] + u[1]);  in ShiftGradients()
59     A1[0][0] = 110. * u[1] * (-actx->lambda1) / denorm1 + 1.;  in ShiftGradients()
60     A1[0][1] = -110. * u[0] * (-actx->lambda1) / denorm1;  in ShiftGradients()
67     denorm2  = -actx->lambda2 * (u[0] + 10. * u[1]) + 1. * (-100. * u[0] + u[1]);  in ShiftGradients()
68     A1[0][0] = 110. * u[1] * (-actx->lambda1) / denorm2 + 1;  in ShiftGradients()
69     A1[0][1] = -110. * u[0] * (-actx->lambda1) / denorm2;  in ShiftGradients()
103   AppCtx *actx = (AppCtx *)ctx;  in PostEventFunction()  local
106   if (!forwardsolve) PetscCall(ShiftGradients(ts, U, actx));  in PostEventFunction()
107   if (actx->mode == 1) {  in PostEventFunction()
108     actx->mode = 2;  in PostEventFunction()
110   } else if (actx->mode == 2) {  in PostEventFunction()
111     actx->mode = 1;  in PostEventFunction()
122   AppCtx            *actx = (AppCtx *)ctx;  in IFunction()  local
132   if (actx->mode == 1) {  in IFunction()
135   } else if (actx->mode == 2) {  in IFunction()
151   AppCtx            *actx     = (AppCtx *)ctx;  in IJacobian()  local
160   if (actx->mode == 1) {  in IJacobian()
165   } else if (actx->mode == 2) {  in IJacobian()