18 static PetscErrorCode RHSFunction(TS ts, PetscReal t, Vec U, Vec F, void *s)  in RHSFunction()  argument
24   PetscCall(VecGetArrayRead(U, &u));  in RHSFunction()
30   PetscCall(VecRestoreArrayRead(U, &u));  in RHSFunction()
38 static PetscErrorCode ExactSolution(PetscReal t, Vec U)  in ExactSolution()  argument
43   PetscCall(VecGetArray(U, &u));  in ExactSolution()
48   PetscCall(VecRestoreArray(U, &u));  in ExactSolution()
55   Vec          U;   /* numerical solution will be stored here */  in main()  local
87   PetscCall(VecCreate(PETSC_COMM_WORLD, &U));  in main()
88   PetscCall(VecSetSizes(U, n, PETSC_DETERMINE));  in main()
89   PetscCall(VecSetUp(U));  in main()
90   PetscCall(VecGetArray(U, &u));  in main()
93   PetscCall(VecRestoreArray(U, &u));  in main()
94   PetscCall(TSSetSolution(ts, U));  in main()
112   PetscCall(TSSolve(ts, U));  in main()
118   PetscCall(VecDuplicate(U, &Uex));  in main()
121   PetscCall(VecAYPX(Uex, -1.0, U));  in main()
128   PetscCall(VecDestroy(&U));  in main()