6 static PetscErrorCode TestOpen(PetscFileMode mode, PetscViewer *viewer)  in TestOpen()  argument
12   PetscCall(PetscViewerBinaryOpen(PETSC_COMM_WORLD, "binary.dat", mode, viewer));  in TestOpen()
13   PetscCall(PetscViewerBinarySkipInfo(*viewer));  in TestOpen()
14   PetscCall(PetscViewerBinarySetSkipInfo(*viewer, PETSC_FALSE));  in TestOpen()
15   PetscCall(PetscViewerBinarySetSkipHeader(*viewer, PETSC_FALSE));  in TestOpen()
16   PetscCall(PetscViewerBinarySetSkipOptions(*viewer, PETSC_FALSE));  in TestOpen()
17   PetscCall(PetscViewerSetUp(*viewer));  in TestOpen()
18   PetscCall(PetscViewerFileGetName(*viewer, &name));  in TestOpen()
19   PetscCall(PetscViewerFileGetMode(*viewer, &mode));  in TestOpen()
20   PetscCall(PetscViewerBinaryGetSkipInfo(*viewer, &skipinfo));  in TestOpen()
21   PetscCall(PetscViewerBinaryGetSkipHeader(*viewer, &skipheader));  in TestOpen()
22   PetscCall(PetscViewerBinaryGetSkipOptions(*viewer, &skipoptions));  in TestOpen()
26 static PetscErrorCode TestWrite(PetscViewer viewer)  in TestWrite()  argument
34   PetscCall(PetscViewerBinaryWrite(viewer, &idata, 1, PETSC_INT));  in TestWrite()
35   PetscCall(PetscViewerBinaryWrite(viewer, &rdata, 1, PETSC_REAL));  in TestWrite()
37   PetscCall(PetscViewerGetSubViewer(viewer, PETSC_COMM_SELF, &subviewer));  in TestWrite()
42   PetscCall(PetscViewerRestoreSubViewer(viewer, PETSC_COMM_SELF, &subviewer));  in TestWrite()
44   PetscCall(PetscViewerBinaryWriteAll(viewer, &idata, 1, s, t, PETSC_INT));  in TestWrite()
45   PetscCall(PetscViewerBinaryWriteAll(viewer, &rdata, 1, s, t, PETSC_REAL));  in TestWrite()
47   PetscCall(PetscViewerGetSubViewer(viewer, PETSC_COMM_SELF, &subviewer));  in TestWrite()
52   PetscCall(PetscViewerRestoreSubViewer(viewer, PETSC_COMM_SELF, &subviewer));  in TestWrite()
54   PetscCall(PetscViewerBinaryWrite(viewer, &idata, 1, PETSC_INT));  in TestWrite()
55   PetscCall(PetscViewerBinaryWrite(viewer, &rdata, 1, PETSC_REAL));  in TestWrite()
59 static PetscErrorCode TestRead(PetscViewer viewer)  in TestRead()  argument
65   MPI_Comm    comm = PetscObjectComm((PetscObject)viewer);  in TestRead()
68   PetscCall(PetscViewerBinaryRead(viewer, &idata, 1, NULL, PETSC_INT));  in TestRead()
69   PetscCall(PetscViewerBinaryRead(viewer, &rdata, 1, NULL, PETSC_REAL));  in TestRead()
73   PetscCall(PetscViewerGetSubViewer(viewer, PETSC_COMM_SELF, &subviewer));  in TestRead()
81   PetscCall(PetscViewerRestoreSubViewer(viewer, PETSC_COMM_SELF, &subviewer));  in TestRead()
83   PetscCall(PetscViewerBinaryReadAll(viewer, &idata, 1, s, t, PETSC_INT));  in TestRead()
84   PetscCall(PetscViewerBinaryReadAll(viewer, &rdata, 1, s, t, PETSC_REAL));  in TestRead()
88   PetscCall(PetscViewerGetSubViewer(viewer, PETSC_COMM_SELF, &subviewer));  in TestRead()
96   PetscCall(PetscViewerRestoreSubViewer(viewer, PETSC_COMM_SELF, &subviewer));  in TestRead()
98   PetscCall(PetscViewerBinaryRead(viewer, &idata, 1, NULL, PETSC_INT));  in TestRead()
99   PetscCall(PetscViewerBinaryRead(viewer, &rdata, 1, NULL, PETSC_REAL));  in TestRead()
105 static PetscErrorCode TestEOF(PetscViewer viewer)  in TestEOF()  argument
109   MPI_Comm comm  = PetscObjectComm((PetscObject)viewer);  in TestEOF()
112   PetscCall(PetscViewerRead(viewer, &data, 1, &count, PETSC_CHAR));  in TestEOF()
117 static PetscErrorCode TestClose(PetscViewer *viewer)  in TestClose()  argument
122   PetscCall(PetscViewerFileGetMode(*viewer, &mode));  in TestClose()
123   if (mode == FILE_MODE_READ) PetscCall(TestEOF(*viewer));  in TestClose()
124   PetscCall(PetscViewerDestroy(viewer));  in TestClose()
130   PetscViewer viewer;  in main()  local
135   PetscCall(TestOpen(FILE_MODE_WRITE, &viewer));  in main()
136   PetscCall(TestWrite(viewer));  in main()
137   PetscCall(TestClose(&viewer));  in main()
139   PetscCall(TestOpen(FILE_MODE_READ, &viewer));  in main()
140   PetscCall(TestRead(viewer));  in main()
141   PetscCall(TestClose(&viewer));  in main()
143   PetscCall(TestOpen(FILE_MODE_APPEND, &viewer));  in main()
144   PetscCall(TestWrite(viewer));  in main()
145   PetscCall(TestClose(&viewer));  in main()
147   PetscCall(TestOpen(FILE_MODE_READ, &viewer));  in main()
148   PetscCall(TestRead(viewer));  in main()
149   PetscCall(TestRead(viewer));  in main()
150   PetscCall(TestClose(&viewer));  in main()
152   PetscCall(TestOpen(FILE_MODE_APPEND, &viewer));  in main()
153   PetscCall(TestWrite(viewer));  in main()
154   PetscCall(TestClose(&viewer));  in main()
156   PetscCall(TestOpen(FILE_MODE_READ, &viewer));  in main()
157   PetscCall(TestRead(viewer));  in main()
158   PetscCall(TestRead(viewer));  in main()
159   PetscCall(TestRead(viewer));  in main()
160   PetscCall(TestClose(&viewer));  in main()
162   PetscCall(TestOpen(FILE_MODE_WRITE, &viewer));  in main()
163   PetscCall(TestWrite(viewer));  in main()
164   PetscCall(TestClose(&viewer));  in main()
166   PetscCall(TestOpen(FILE_MODE_READ, &viewer));  in main()
167   PetscCall(TestRead(viewer));  in main()
168   PetscCall(TestClose(&viewer));  in main()
170   PetscCall(TestOpen(FILE_MODE_WRITE, &viewer));  in main()
171   PetscCall(TestClose(&viewer));  in main()
172   PetscCall(TestOpen(FILE_MODE_READ, &viewer));  in main()
173   PetscCall(TestClose(&viewer));  in main()
174   PetscCall(TestOpen(FILE_MODE_APPEND, &viewer));  in main()
175   PetscCall(TestClose(&viewer));  in main()
176   PetscCall(TestOpen(FILE_MODE_READ, &viewer));  in main()
177   PetscCall(TestClose(&viewer));  in main()
183     PetscCall(TestOpen(FILE_MODE_WRITE, &viewer));  in main()
184     PetscCall(PetscViewerPushFormat(viewer, PETSC_VIEWER_BINARY_MATLAB));  in main()
185     PetscCall(PetscViewerBinaryGetInfoPointer(viewer, &info));  in main()
186     PetscCallMPI(MPI_Comm_rank(PetscObjectComm((PetscObject)viewer), &rank));  in main()
188     PetscCall(TestClose(&viewer));  in main()