21   Vec          W, W2, Wdot;  in main()  local
31   PetscCall(VecCreate(PETSC_COMM_WORLD, &W));  in main()
32   PetscCall(VecSetSizes(W, 1, PETSC_DECIDE));  in main()
33   PetscCall(VecSetUp(W));  in main()
34   PetscCall(VecDuplicate(W, &Wdot));  in main()
35   PetscCall(VecDuplicate(W, &W2));  in main()
59     PetscCall(VecSet(W, func(p, TT[i])));  in main()
61     PetscCall(TSTrajectorySet(tj, ts, II[i], TT[i], W));  in main()
67     PetscCall(TSTrajectoryGetVecs(tj, ts, PETSC_DECIDE, &testtime, W, Wdot));  in main()
68     PetscCall(VecGetArrayRead(W, &aW));  in main()
74     PetscCall(VecRestoreArrayRead(W, &aW));  in main()
83     PetscCall(TSTrajectoryGetVecs(tj, ts, PETSC_DECIDE, &testtime, W, NULL));  in main()
84     PetscCall(VecGetArrayRead(W, &aW));  in main()
87     PetscCall(VecRestoreArrayRead(W, &aW));  in main()
139     PetscCall(VecSet(W, func(p, TT[i])));  in main()
140     PetscCall(TSTrajectorySet(tj, ts, i, TT[i], W));  in main()
166   PetscCall(VecDestroy(&W));  in main()