65     const PetscScalar *aW, *aWdot;  in main()  local
68     PetscCall(VecGetArrayRead(W, &aW));  in main()
70 …%g)\n", (double)testtime, (double)PetscRealPart(func(p, testtime)), (double)PetscRealPart(aW[0])));  in main()
72     serr = PetscAbsScalar(func(p, testtime) - aW[0]);  in main()
74     PetscCall(VecRestoreArrayRead(W, &aW));  in main()
81     const PetscScalar *aW;  in main()  local
84     PetscCall(VecGetArrayRead(W, &aW));  in main()
85 …%g)\n", (double)testtime, (double)PetscRealPart(func(p, testtime)), (double)PetscRealPart(aW[0])));  in main()
86     serr = PetscAbsScalar(func(p, testtime) - aW[0]);  in main()
87     PetscCall(VecRestoreArrayRead(W, &aW));  in main()
103     const PetscScalar *aW, *aWdot;  in main()  local
107     PetscCall(VecGetArrayRead(hW, &aW));  in main()
109 …%g)\n", (double)testtime, (double)PetscRealPart(func(p, testtime)), (double)PetscRealPart(aW[0])));  in main()
111     serr = PetscAbsScalar(func(p, testtime) - aW[0]);  in main()
113     PetscCall(VecRestoreArrayRead(hW, &aW));  in main()
142       const PetscScalar *aW, *aWdot;  in main()  local
148         PetscCall(VecGetArrayRead(hW, &aW));  in main()
149 …%g)\n", (double)testtime, (double)PetscRealPart(func(p, testtime)), (double)PetscRealPart(aW[0])));  in main()
150         serr = PetscAbsScalar(func(p, testtime) - aW[0]);  in main()
151         PetscCall(VecRestoreArrayRead(hW, &aW));  in main()