29   PetscReal   rdata = 42;  in TestWrite()  local
35   PetscCall(PetscViewerBinaryWrite(viewer, &rdata, 1, PETSC_REAL));  in TestWrite()
40     PetscCall(PetscViewerBinaryWrite(subviewer, &rdata, 1, PETSC_REAL));  in TestWrite()
45   PetscCall(PetscViewerBinaryWriteAll(viewer, &rdata, 1, s, t, PETSC_REAL));  in TestWrite()
50     PetscCall(PetscViewerBinaryWrite(subviewer, &rdata, 1, PETSC_REAL));  in TestWrite()
55   PetscCall(PetscViewerBinaryWrite(viewer, &rdata, 1, PETSC_REAL));  in TestWrite()
62   PetscReal   rdata = 0;  in TestRead()  local
69   PetscCall(PetscViewerBinaryRead(viewer, &rdata, 1, NULL, PETSC_REAL));  in TestRead()
71   PetscCheck(rdata == 42, comm, PETSC_ERR_FILE_UNEXPECTED, "Unexpected rdata=%g", (double)rdata);  in TestRead()
77     PetscCall(PetscViewerBinaryRead(subviewer, &rdata, 1, NULL, PETSC_REAL));  in TestRead()
79 … PetscCheck(rdata == 42, subcomm, PETSC_ERR_FILE_UNEXPECTED, "Unexpected rdata=%g", (double)rdata);  in TestRead()
84   PetscCall(PetscViewerBinaryReadAll(viewer, &rdata, 1, s, t, PETSC_REAL));  in TestRead()
86   PetscCheck(rdata == 42, comm, PETSC_ERR_FILE_UNEXPECTED, "Unexpected rdata=%g", (double)rdata);  in TestRead()
92     PetscCall(PetscViewerBinaryRead(subviewer, &rdata, 1, NULL, PETSC_REAL));  in TestRead()
94 … PetscCheck(rdata == 42, subcomm, PETSC_ERR_FILE_UNEXPECTED, "Unexpected rdata=%g", (double)rdata);  in TestRead()
99   PetscCall(PetscViewerBinaryRead(viewer, &rdata, 1, NULL, PETSC_REAL));  in TestRead()
101   PetscCheck(rdata == 42, comm, PETSC_ERR_FILE_UNEXPECTED, "Unexpected rdata=%g", (double)rdata);  in TestRead()