65     const PetscScalar *aW, *aWdot;  in main()  local
69     PetscCall(VecGetArrayRead(Wdot, &aWdot));  in main()
71 …n", (double)testtime, (double)PetscRealPart(dfunc(p, testtime)), (double)PetscRealPart(aWdot[0])));  in main()
73     derr = PetscAbsScalar(dfunc(p, testtime) - aWdot[0]);  in main()
75     PetscCall(VecRestoreArrayRead(Wdot, &aWdot));  in main()
92     const PetscScalar *aWdot;  in main()  local
95     PetscCall(VecGetArrayRead(Wdot, &aWdot));  in main()
96 …n", (double)testtime, (double)PetscRealPart(dfunc(p, testtime)), (double)PetscRealPart(aWdot[0])));  in main()
97     derr = PetscAbsScalar(dfunc(p, testtime) - aWdot[0]);  in main()
98     PetscCall(VecRestoreArrayRead(Wdot, &aWdot));  in main()
103     const PetscScalar *aW, *aWdot;  in main()  local
108     PetscCall(VecGetArrayRead(hWdot, &aWdot));  in main()
110 …n", (double)testtime, (double)PetscRealPart(dfunc(p, testtime)), (double)PetscRealPart(aWdot[0])));  in main()
112     derr = PetscAbsScalar(dfunc(p, testtime) - aWdot[0]);  in main()
114     PetscCall(VecRestoreArrayRead(hWdot, &aWdot));  in main()
142       const PetscScalar *aW, *aWdot;  in main()  local
155         PetscCall(VecGetArrayRead(hWdot, &aWdot));  in main()
156 …n", (double)testtime, (double)PetscRealPart(dfunc(p, testtime)), (double)PetscRealPart(aWdot[0])));  in main()
157         derr = PetscAbsScalar(dfunc(p, testtime) - aWdot[0]);  in main()
158         PetscCall(VecRestoreArrayRead(hWdot, &aWdot));  in main()