31   AppCtx      *actx = (AppCtx *)ctx;  in MyMonitor()  local
38   if (time >= actx->print_time) {  in MyMonitor()
39     actx->print_time += 1. / 256.;  in MyMonitor()
52   AppCtx            *actx = (AppCtx *)ctx;  in EventFunction()  local
57   if (actx->mode == 1) {  in EventFunction()
58     fvalue[0] = PetscRealPart(u[1] - actx->lambda1 * u[0]);  in EventFunction()
59   } else if (actx->mode == 2) {  in EventFunction()
60     fvalue[0] = PetscRealPart(u[1] - actx->lambda2 * u[0]);  in EventFunction()
66 PetscErrorCode ShiftGradients(TS ts, Vec U, AppCtx *actx)  in ShiftGradients()  argument
78   if (actx->mode == 1) {  in ShiftGradients()
79     denorm   = -actx->lambda1 * (u[0] - 100. * u[1]) + 1. * (10. * u[0] + u[1]);  in ShiftGradients()
80     A1[0][0] = 110. * u[1] * (-actx->lambda1) / denorm + 1.;  in ShiftGradients()
81     A1[1][0] = -110. * u[0] * (-actx->lambda1) / denorm;  in ShiftGradients()
88     denorm   = -actx->lambda2 * (u[0] + 10. * u[1]) + 1. * (-100. * u[0] + u[1]);  in ShiftGradients()
89     A1[0][0] = 110. * u[1] * (actx->lambda2) / denorm + 1;  in ShiftGradients()
90     A1[1][0] = -110. * u[0] * (actx->lambda2) / denorm;  in ShiftGradients()
125   AppCtx *actx = (AppCtx *)ctx;  in PostEventFunction()  local
129   PetscCall(ShiftGradients(ts, U, actx));  in PostEventFunction()
130   if (actx->mode == 1) {  in PostEventFunction()
131     actx->mode = 2;  in PostEventFunction()
133   } else if (actx->mode == 2) {  in PostEventFunction()
134     actx->mode = 1;  in PostEventFunction()
145   AppCtx            *actx = (AppCtx *)ctx;  in IFunction()  local
155   if (actx->mode == 1) {  in IFunction()
158   } else if (actx->mode == 2) {  in IFunction()
174   AppCtx            *actx     = (AppCtx *)ctx;  in IJacobian()  local
183   if (actx->mode == 1) {  in IJacobian()
188   } else if (actx->mode == 2) {  in IJacobian()