37 PetscErrorCode InitialConditions(Vec U, DM da, AppCtx *app)  in InitialConditions()  argument
48   PetscCall(PetscMalloc1(lsize, &app->sw));  in InitialConditions()
60     app->sw[i - xs] = 1;  in InitialConditions()
69   AppCtx            *app = (AppCtx *)ctx;  in EventFunction()  local
76   for (i = 0; i < lsize; i++) fvalue[i] = PetscRealPart(u[i]) - app->uc;  in EventFunction()
83   AppCtx  *app = (AppCtx *)ctx;  in PostEventFunction()  local
89     app->sw[idx] = 0;  in PostEventFunction()
99   AppCtx            *app = (AppCtx *)ctx;  in IFunction()  local
129       f[i] = (u[i + 1] - 2 * u[i] + u[i - 1]) / h2 + app->sw[i - xs] * (-app->A * u[i]) - udot[i];  in IFunction()
145   AppCtx     *app = (AppCtx *)ctx;  in IJacobian()  local
175       v[1]     = -2 / h2 + app->sw[i - xs] * (-app->A) - a;  in IJacobian()
192   AppCtx   app;  in main()  local
203     app.A = 200000;  in main()
204     PetscCall(PetscOptionsReal("-A", "", "", app.A, &app.A, NULL));  in main()
205     app.uc = 0.5;  in main()
206     PetscCall(PetscOptionsReal("-uc", "", "", app.uc, &app.uc, NULL));  in main()
220   PetscCall(InitialConditions(U, da, &app));  in main()
227   PetscCall(TSSetIFunction(ts, NULL, (TSIFunctionFn *)IFunction, (void *)&app));  in main()
228   PetscCall(TSSetIJacobian(ts, J, J, (TSIJacobianFn *)IJacobian, (void *)&app));  in main()
255 …SSetEventHandler(ts, lsize, direction, terminate, EventFunction, PostEventFunction, (void *)&app));  in main()
273   PetscCall(PetscFree(app.sw));  in main()