31   PetscViewer subviewer;  in TestWrite()  local
37   PetscCall(PetscViewerGetSubViewer(viewer, PETSC_COMM_SELF, &subviewer));  in TestWrite()
38   if (subviewer) {  in TestWrite()
39     PetscCall(PetscViewerBinaryWrite(subviewer, &idata, 1, PETSC_INT));  in TestWrite()
40     PetscCall(PetscViewerBinaryWrite(subviewer, &rdata, 1, PETSC_REAL));  in TestWrite()
42   PetscCall(PetscViewerRestoreSubViewer(viewer, PETSC_COMM_SELF, &subviewer));  in TestWrite()
47   PetscCall(PetscViewerGetSubViewer(viewer, PETSC_COMM_SELF, &subviewer));  in TestWrite()
48   if (subviewer) {  in TestWrite()
49     PetscCall(PetscViewerBinaryWrite(subviewer, &idata, 1, PETSC_INT));  in TestWrite()
50     PetscCall(PetscViewerBinaryWrite(subviewer, &rdata, 1, PETSC_REAL));  in TestWrite()
52   PetscCall(PetscViewerRestoreSubViewer(viewer, PETSC_COMM_SELF, &subviewer));  in TestWrite()
64   PetscViewer subviewer;  in TestRead()  local
73   PetscCall(PetscViewerGetSubViewer(viewer, PETSC_COMM_SELF, &subviewer));  in TestRead()
74   if (subviewer) {  in TestRead()
75     MPI_Comm subcomm = PetscObjectComm((PetscObject)subviewer);  in TestRead()
76     PetscCall(PetscViewerBinaryRead(subviewer, &idata, 1, NULL, PETSC_INT));  in TestRead()
77     PetscCall(PetscViewerBinaryRead(subviewer, &rdata, 1, NULL, PETSC_REAL));  in TestRead()
81   PetscCall(PetscViewerRestoreSubViewer(viewer, PETSC_COMM_SELF, &subviewer));  in TestRead()
88   PetscCall(PetscViewerGetSubViewer(viewer, PETSC_COMM_SELF, &subviewer));  in TestRead()
89   if (subviewer) {  in TestRead()
90     MPI_Comm subcomm = PetscObjectComm((PetscObject)subviewer);  in TestRead()
91     PetscCall(PetscViewerBinaryRead(subviewer, &idata, 1, NULL, PETSC_INT));  in TestRead()
92     PetscCall(PetscViewerBinaryRead(subviewer, &rdata, 1, NULL, PETSC_REAL));  in TestRead()
96   PetscCall(PetscViewerRestoreSubViewer(viewer, PETSC_COMM_SELF, &subviewer));  in TestRead()