63   AppCtx       appctx;               /* user-defined application context */  in main()  local
84   appctx.comm = PETSC_COMM_WORLD;  in main()
85   appctx.m    = 60;  in main()
87   PetscCall(PetscOptionsGetInt(options, NULL, "-M", &appctx.m, NULL));  in main()
89   appctx.h = 1.0 / (appctx.m - 1.0);  in main()
100   PetscCall(DMDACreate1d(PETSC_COMM_WORLD, DM_BOUNDARY_NONE, appctx.m, 1, 1, NULL, &appctx.da));  in main()
101   PetscCall(PetscObjectSetOptions((PetscObject)appctx.da, options));  in main()
102   PetscCall(DMSetFromOptions(appctx.da));  in main()
103   PetscCall(DMSetUp(appctx.da));  in main()
110   PetscCall(DMCreateGlobalVector(appctx.da, &u));  in main()
111   PetscCall(DMCreateLocalVector(appctx.da, &appctx.u_local));  in main()
117   PetscCall(VecDuplicate(appctx.u_local, &appctx.localwork));  in main()
118   PetscCall(VecDuplicate(u, &appctx.solution));  in main()
128   PetscCall(TSSetRHSFunction(ts, NULL, RHSFunction, &appctx));  in main()
139   PetscCall(MatSetSizes(A, PETSC_DECIDE, PETSC_DECIDE, appctx.m, appctx.m));  in main()
142   PetscCall(TSSetRHSJacobian(ts, A, A, RHSJacobian, &appctx));  in main()
148   dt = appctx.h / 2.0;  in main()
174   PetscCall(InitialConditions(u, &appctx));  in main()
192   PetscCall(DMDestroy(&appctx.da));  in main()
193   PetscCall(VecDestroy(&appctx.localwork));  in main()
194   PetscCall(VecDestroy(&appctx.solution));  in main()
195   PetscCall(VecDestroy(&appctx.u_local));  in main()
218 PetscErrorCode InitialConditions(Vec u, AppCtx *appctx)  in InitialConditions()  argument
220   PetscScalar *u_localptr, h = appctx->h, x;  in InitialConditions()
269 PetscErrorCode ExactSolution(PetscReal t, Vec solution, AppCtx *appctx)  in ExactSolution()  argument
271   PetscScalar *s_localptr, h = appctx->h, x;  in ExactSolution()
320   AppCtx            *appctx    = (AppCtx *)ctx;     /* user-defined application context */  in RHSFunction()  local
321   DM                 da        = appctx->da;        /* distributed array */  in RHSFunction()
322   Vec                local_in  = appctx->u_local;   /* local ghosted input vector */  in RHSFunction()
323   Vec                localwork = appctx->localwork; /* local ghosted work vector */  in RHSFunction()
352   sc = 1.0 / (appctx->h * appctx->h * 2.0 * (1.0 + t) * (1.0 + t));  in RHSFunction()
372   PetscCallMPI(MPI_Comm_rank(appctx->comm, &rank));  in RHSFunction()
373   PetscCallMPI(MPI_Comm_size(appctx->comm, &size));  in RHSFunction()
427   AppCtx            *appctx   = (AppCtx *)ctx;   /* user-defined application context */  in RHSJacobian()  local
428   Vec                local_in = appctx->u_local; /* local ghosted input vector */  in RHSJacobian()
429   DM                 da       = appctx->da;      /* distributed array */  in RHSJacobian()
479   if (mend == appctx->m) {  in RHSJacobian()
489   sc = 1.0 / (appctx->h * appctx->h * 2.0 * (1.0 + t) * (1.0 + t));  in RHSJacobian()