Lines Matching refs:viewer
51 static PetscErrorCode PetscViewerBinarySyncMPIIO(PetscViewer viewer) in PetscViewerBinarySyncMPIIO() argument
53 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinarySyncMPIIO()
59 PetscCallMPI(MPI_Barrier(PetscObjectComm((PetscObject)viewer))); in PetscViewerBinarySyncMPIIO()
66 static PetscErrorCode PetscViewerGetSubViewer_Binary(PetscViewer viewer, MPI_Comm comm, PetscViewer… in PetscViewerGetSubViewer_Binary() argument
68 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerGetSubViewer_Binary()
72 PetscCall(PetscViewerSetUp(viewer)); in PetscViewerGetSubViewer_Binary()
75 PetscCallMPI(MPI_Comm_rank(PetscObjectComm((PetscObject)viewer), &rank)); in PetscViewerGetSubViewer_Binary()
118 PetscCall(PetscViewerBinarySyncMPIIO(viewer)); in PetscViewerGetSubViewer_Binary()
123 static PetscErrorCode PetscViewerRestoreSubViewer_Binary(PetscViewer viewer, MPI_Comm comm, PetscVi… in PetscViewerRestoreSubViewer_Binary() argument
125 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerRestoreSubViewer_Binary()
132 PetscCallMPI(MPI_Comm_rank(PetscObjectComm((PetscObject)viewer), &rank)); in PetscViewerRestoreSubViewer_Binary()
155 PetscCallMPI(MPI_Bcast(&ioff, 1, MPIU_INT64, 0, PetscObjectComm((PetscObject)viewer))); in PetscViewerRestoreSubViewer_Binary()
161 PetscCall(PetscViewerBinarySyncMPIIO(viewer)); in PetscViewerRestoreSubViewer_Binary()
185 PetscErrorCode PetscViewerBinaryGetMPIIOOffset(PetscViewer viewer, MPI_Offset *off) in PetscViewerBinaryGetMPIIOOffset() argument
190 PetscValidHeaderSpecificType(viewer, PETSC_VIEWER_CLASSID, 1, PETSCVIEWERBINARY); in PetscViewerBinaryGetMPIIOOffset()
192 vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinaryGetMPIIOOffset()
213 PetscErrorCode PetscViewerBinaryAddMPIIOOffset(PetscViewer viewer, MPI_Offset off) in PetscViewerBinaryAddMPIIOOffset() argument
218 PetscValidHeaderSpecificType(viewer, PETSC_VIEWER_CLASSID, 1, PETSCVIEWERBINARY); in PetscViewerBinaryAddMPIIOOffset()
219 PetscValidLogicalCollectiveInt(viewer, (PetscInt)off, 2); in PetscViewerBinaryAddMPIIOOffset()
220 vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinaryAddMPIIOOffset()
240 PetscErrorCode PetscViewerBinaryGetMPIIODescriptor(PetscViewer viewer, MPI_File *fdes) in PetscViewerBinaryGetMPIIODescriptor() argument
245 PetscValidHeaderSpecificType(viewer, PETSC_VIEWER_CLASSID, 1, PETSCVIEWERBINARY); in PetscViewerBinaryGetMPIIODescriptor()
247 PetscCall(PetscViewerSetUp(viewer)); in PetscViewerBinaryGetMPIIODescriptor()
248 vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinaryGetMPIIODescriptor()
272 PetscErrorCode PetscViewerBinarySetUseMPIIO(PetscViewer viewer, PetscBool use) in PetscViewerBinarySetUseMPIIO() argument
275 PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1); in PetscViewerBinarySetUseMPIIO()
276 PetscValidLogicalCollectiveBool(viewer, use, 2); in PetscViewerBinarySetUseMPIIO()
277 PetscTryMethod(viewer, "PetscViewerBinarySetUseMPIIO_C", (PetscViewer, PetscBool), (viewer, use)); in PetscViewerBinarySetUseMPIIO()
282 static PetscErrorCode PetscViewerBinarySetUseMPIIO_Binary(PetscViewer viewer, PetscBool use) in PetscViewerBinarySetUseMPIIO_Binary() argument
284 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinarySetUseMPIIO_Binary()
287 …PetscCheck(!viewer->setupcalled || vbinary->usempiio == use, PetscObjectComm((PetscObject)viewer),… in PetscViewerBinarySetUseMPIIO_Binary()
311 PetscErrorCode PetscViewerBinaryGetUseMPIIO(PetscViewer viewer, PetscBool *use) in PetscViewerBinaryGetUseMPIIO() argument
314 PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1); in PetscViewerBinaryGetUseMPIIO()
317 …PetscTryMethod(viewer, "PetscViewerBinaryGetUseMPIIO_C", (PetscViewer, PetscBool *), (viewer, use)… in PetscViewerBinaryGetUseMPIIO()
322 static PetscErrorCode PetscViewerBinaryGetUseMPIIO_Binary(PetscViewer viewer, PetscBool *use) in PetscViewerBinaryGetUseMPIIO_Binary() argument
324 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinaryGetUseMPIIO_Binary()
345 PetscErrorCode PetscViewerBinarySetFlowControl(PetscViewer viewer, PetscInt fc) in PetscViewerBinarySetFlowControl() argument
348 PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1); in PetscViewerBinarySetFlowControl()
349 PetscValidLogicalCollectiveInt(viewer, fc, 2); in PetscViewerBinarySetFlowControl()
350 …PetscTryMethod(viewer, "PetscViewerBinarySetFlowControl_C", (PetscViewer, PetscInt), (viewer, fc)); in PetscViewerBinarySetFlowControl()
354 static PetscErrorCode PetscViewerBinarySetFlowControl_Binary(PetscViewer viewer, PetscInt fc) in PetscViewerBinarySetFlowControl_Binary() argument
356 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinarySetFlowControl_Binary()
359 …PetscCheck(fc > 1, PetscObjectComm((PetscObject)viewer), PETSC_ERR_ARG_OUTOFRANGE, "Flow control c… in PetscViewerBinarySetFlowControl_Binary()
379 PetscErrorCode PetscViewerBinaryGetFlowControl(PetscViewer viewer, PetscInt *fc) in PetscViewerBinaryGetFlowControl() argument
382 PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1); in PetscViewerBinaryGetFlowControl()
384 …PetscUseMethod(viewer, "PetscViewerBinaryGetFlowControl_C", (PetscViewer, PetscInt *), (viewer, fc… in PetscViewerBinaryGetFlowControl()
388 PETSC_INTERN PetscErrorCode PetscViewerBinaryGetFlowControl_Binary(PetscViewer viewer, PetscInt *fc) in PetscViewerBinaryGetFlowControl_Binary() argument
390 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinaryGetFlowControl_Binary()
418 PetscErrorCode PetscViewerBinaryGetDescriptor(PetscViewer viewer, int *fdes) in PetscViewerBinaryGetDescriptor() argument
423 PetscValidHeaderSpecificType(viewer, PETSC_VIEWER_CLASSID, 1, PETSCVIEWERBINARY); in PetscViewerBinaryGetDescriptor()
425 PetscCall(PetscViewerSetUp(viewer)); in PetscViewerBinaryGetDescriptor()
426 vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinaryGetDescriptor()
457 PetscErrorCode PetscViewerBinarySkipInfo(PetscViewer viewer) in PetscViewerBinarySkipInfo() argument
460 PetscCall(PetscViewerBinarySetSkipInfo(viewer, PETSC_TRUE)); in PetscViewerBinarySkipInfo()
489 PetscErrorCode PetscViewerBinarySetSkipInfo(PetscViewer viewer, PetscBool skip) in PetscViewerBinarySetSkipInfo() argument
492 PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1); in PetscViewerBinarySetSkipInfo()
493 PetscValidLogicalCollectiveBool(viewer, skip, 2); in PetscViewerBinarySetSkipInfo()
494 …PetscTryMethod(viewer, "PetscViewerBinarySetSkipInfo_C", (PetscViewer, PetscBool), (viewer, skip)); in PetscViewerBinarySetSkipInfo()
498 static PetscErrorCode PetscViewerBinarySetSkipInfo_Binary(PetscViewer viewer, PetscBool skip) in PetscViewerBinarySetSkipInfo_Binary() argument
500 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinarySetSkipInfo_Binary()
526 PetscErrorCode PetscViewerBinaryGetSkipInfo(PetscViewer viewer, PetscBool *skip) in PetscViewerBinaryGetSkipInfo() argument
529 PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1); in PetscViewerBinaryGetSkipInfo()
531 …PetscUseMethod(viewer, "PetscViewerBinaryGetSkipInfo_C", (PetscViewer, PetscBool *), (viewer, skip… in PetscViewerBinaryGetSkipInfo()
535 static PetscErrorCode PetscViewerBinaryGetSkipInfo_Binary(PetscViewer viewer, PetscBool *skip) in PetscViewerBinaryGetSkipInfo_Binary() argument
537 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinaryGetSkipInfo_Binary()
564 PetscErrorCode PetscViewerBinarySetSkipOptions(PetscViewer viewer, PetscBool skip) in PetscViewerBinarySetSkipOptions() argument
567 PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1); in PetscViewerBinarySetSkipOptions()
568 PetscValidLogicalCollectiveBool(viewer, skip, 2); in PetscViewerBinarySetSkipOptions()
569 …PetscTryMethod(viewer, "PetscViewerBinarySetSkipOptions_C", (PetscViewer, PetscBool), (viewer, ski… in PetscViewerBinarySetSkipOptions()
573 static PetscErrorCode PetscViewerBinarySetSkipOptions_Binary(PetscViewer viewer, PetscBool skip) in PetscViewerBinarySetSkipOptions_Binary() argument
575 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinarySetSkipOptions_Binary()
601 PetscErrorCode PetscViewerBinaryGetSkipOptions(PetscViewer viewer, PetscBool *skip) in PetscViewerBinaryGetSkipOptions() argument
604 PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1); in PetscViewerBinaryGetSkipOptions()
606 …PetscUseMethod(viewer, "PetscViewerBinaryGetSkipOptions_C", (PetscViewer, PetscBool *), (viewer, s… in PetscViewerBinaryGetSkipOptions()
610 static PetscErrorCode PetscViewerBinaryGetSkipOptions_Binary(PetscViewer viewer, PetscBool *skip) in PetscViewerBinaryGetSkipOptions_Binary() argument
612 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinaryGetSkipOptions_Binary()
641 PetscErrorCode PetscViewerBinarySetSkipHeader(PetscViewer viewer, PetscBool skip) in PetscViewerBinarySetSkipHeader() argument
644 PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1); in PetscViewerBinarySetSkipHeader()
645 PetscValidLogicalCollectiveBool(viewer, skip, 2); in PetscViewerBinarySetSkipHeader()
646 …PetscTryMethod(viewer, "PetscViewerBinarySetSkipHeader_C", (PetscViewer, PetscBool), (viewer, skip… in PetscViewerBinarySetSkipHeader()
650 static PetscErrorCode PetscViewerBinarySetSkipHeader_Binary(PetscViewer viewer, PetscBool skip) in PetscViewerBinarySetSkipHeader_Binary() argument
652 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinarySetSkipHeader_Binary()
680 PetscErrorCode PetscViewerBinaryGetSkipHeader(PetscViewer viewer, PetscBool *skip) in PetscViewerBinaryGetSkipHeader() argument
683 PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1); in PetscViewerBinaryGetSkipHeader()
685 …PetscUseMethod(viewer, "PetscViewerBinaryGetSkipHeader_C", (PetscViewer, PetscBool *), (viewer, sk… in PetscViewerBinaryGetSkipHeader()
689 static PetscErrorCode PetscViewerBinaryGetSkipHeader_Binary(PetscViewer viewer, PetscBool *skip) in PetscViewerBinaryGetSkipHeader_Binary() argument
691 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinaryGetSkipHeader_Binary()
719 PetscErrorCode PetscViewerBinaryGetInfoPointer(PetscViewer viewer, FILE **file) in PetscViewerBinaryGetInfoPointer() argument
722 PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1); in PetscViewerBinaryGetInfoPointer()
725 …PetscTryMethod(viewer, "PetscViewerBinaryGetInfoPointer_C", (PetscViewer, FILE **), (viewer, file)… in PetscViewerBinaryGetInfoPointer()
729 static PetscErrorCode PetscViewerBinaryGetInfoPointer_Binary(PetscViewer viewer, FILE **file) in PetscViewerBinaryGetInfoPointer_Binary() argument
731 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinaryGetInfoPointer_Binary()
734 PetscCall(PetscViewerSetUp(viewer)); in PetscViewerBinaryGetInfoPointer_Binary()
736 if (viewer->format == PETSC_VIEWER_BINARY_MATLAB && !vbinary->matlabheaderwritten) { in PetscViewerBinaryGetInfoPointer_Binary()
875 …de PetscViewerBinaryOpen(MPI_Comm comm, const char name[], PetscFileMode mode, PetscViewer *viewer) in PetscViewerBinaryOpen() argument
878 PetscCall(PetscViewerCreate(comm, viewer)); in PetscViewerBinaryOpen()
879 PetscCall(PetscViewerSetType(*viewer, PETSCVIEWERBINARY)); in PetscViewerBinaryOpen()
880 PetscCall(PetscViewerFileSetMode(*viewer, mode)); in PetscViewerBinaryOpen()
881 PetscCall(PetscViewerFileSetName(*viewer, name)); in PetscViewerBinaryOpen()
882 PetscCall(PetscViewerSetFromOptions(*viewer)); in PetscViewerBinaryOpen()
887 static PetscErrorCode PetscViewerBinaryWriteReadMPIIO(PetscViewer viewer, void *data, PetscInt num,… in PetscViewerBinaryWriteReadMPIIO() argument
889 MPI_Comm comm = PetscObjectComm((PetscObject)viewer); in PetscViewerBinaryWriteReadMPIIO()
890 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinaryWriteReadMPIIO()
938 PetscErrorCode PetscViewerBinaryRead(PetscViewer viewer, void *data, PetscInt num, PetscInt *count,… in PetscViewerBinaryRead() argument
943 PetscValidHeaderSpecificType(viewer, PETSC_VIEWER_CLASSID, 1, PETSCVIEWERBINARY); in PetscViewerBinaryRead()
944 PetscValidLogicalCollectiveInt(viewer, num, 3); in PetscViewerBinaryRead()
945 PetscCall(PetscViewerSetUp(viewer)); in PetscViewerBinaryRead()
946 vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinaryRead()
949 PetscCall(PetscViewerBinaryWriteReadMPIIO(viewer, data, num, count, dtype, PETSC_FALSE)); in PetscViewerBinaryRead()
952 …PetscCall(PetscBinarySynchronizedRead(PetscObjectComm((PetscObject)viewer), vbinary->fdes, data, n… in PetscViewerBinaryRead()
976 PetscErrorCode PetscViewerBinaryWrite(PetscViewer viewer, const void *data, PetscInt count, PetscDa… in PetscViewerBinaryWrite() argument
981 PetscValidHeaderSpecificType(viewer, PETSC_VIEWER_CLASSID, 1, PETSCVIEWERBINARY); in PetscViewerBinaryWrite()
982 PetscValidLogicalCollectiveInt(viewer, count, 3); in PetscViewerBinaryWrite()
983 PetscCall(PetscViewerSetUp(viewer)); in PetscViewerBinaryWrite()
984 vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinaryWrite()
987 … PetscCall(PetscViewerBinaryWriteReadMPIIO(viewer, (void *)data, count, NULL, dtype, PETSC_TRUE)); in PetscViewerBinaryWrite()
990 …PetscCall(PetscBinarySynchronizedWrite(PetscObjectComm((PetscObject)viewer), vbinary->fdes, data, … in PetscViewerBinaryWrite()
997 static PetscErrorCode PetscViewerBinaryWriteReadAll(PetscViewer viewer, PetscBool write, void *data… in PetscViewerBinaryWriteReadAll() argument
999 MPI_Comm comm = PetscObjectComm((PetscObject)viewer); in PetscViewerBinaryWriteReadAll()
1007 PetscValidHeaderSpecificType(viewer, PETSC_VIEWER_CLASSID, 1, PETSCVIEWERBINARY); in PetscViewerBinaryWriteReadAll()
1008 PetscValidLogicalCollectiveBool(viewer, (start >= 0) || (start == PETSC_DETERMINE), 5); in PetscViewerBinaryWriteReadAll()
1009 PetscValidLogicalCollectiveBool(viewer, (total >= 0) || (total == PETSC_DETERMINE), 6); in PetscViewerBinaryWriteReadAll()
1010 PetscValidLogicalCollectiveCount(viewer, total, 6); in PetscViewerBinaryWriteReadAll()
1011 PetscCall(PetscViewerSetUp(viewer)); in PetscViewerBinaryWriteReadAll()
1018 PetscCall(PetscViewerBinaryGetUseMPIIO(viewer, &useMPIIO)); in PetscViewerBinaryWriteReadAll()
1034 PetscCall(PetscViewerBinaryGetMPIIODescriptor(viewer, &mfdes)); in PetscViewerBinaryWriteReadAll()
1035 PetscCall(PetscViewerBinaryGetMPIIOOffset(viewer, &off)); in PetscViewerBinaryWriteReadAll()
1043 PetscCall(PetscViewerBinaryAddMPIIOOffset(viewer, off)); in PetscViewerBinaryWriteReadAll()
1059 PetscCall(PetscViewerBinaryGetDescriptor(viewer, &fdes)); in PetscViewerBinaryWriteReadAll()
1066 PetscCall(PetscViewerFlowControlStart(viewer, &message_count, &flowcontrolcount)); in PetscViewerBinaryWriteReadAll()
1070 PetscCall(PetscViewerFlowControlStepMain(viewer, j, &message_count, flowcontrolcount)); in PetscViewerBinaryWriteReadAll()
1082 PetscCall(PetscViewerFlowControlEndMain(viewer, &message_count)); in PetscViewerBinaryWriteReadAll()
1085 PetscCall(PetscViewerFlowControlStepWorker(viewer, rank, &message_count)); in PetscViewerBinaryWriteReadAll()
1092 PetscCall(PetscViewerFlowControlEndWorker(viewer, &message_count)); in PetscViewerBinaryWriteReadAll()
1118 PetscErrorCode PetscViewerBinaryReadAll(PetscViewer viewer, void *data, PetscCount count, PetscCoun… in PetscViewerBinaryReadAll() argument
1121 PetscCall(PetscViewerBinaryWriteReadAll(viewer, PETSC_FALSE, data, count, start, total, dtype)); in PetscViewerBinaryReadAll()
1142 PetscErrorCode PetscViewerBinaryWriteAll(PetscViewer viewer, const void *data, PetscCount count, Pe… in PetscViewerBinaryWriteAll() argument
1145 …PetscCall(PetscViewerBinaryWriteReadAll(viewer, PETSC_TRUE, (void *)data, count, start, total, dty… in PetscViewerBinaryWriteAll()
1167 PetscErrorCode PetscViewerBinaryWriteStringArray(PetscViewer viewer, const char *const data[]) in PetscViewerBinaryWriteStringArray() argument
1173 PetscCall(PetscViewerSetUp(viewer)); in PetscViewerBinaryWriteStringArray()
1183 PetscCall(PetscViewerBinaryWrite(viewer, sizes, n + 1, PETSC_INT)); in PetscViewerBinaryWriteStringArray()
1184 …for (i = 0; i < n; i++) PetscCall(PetscViewerBinaryWrite(viewer, (void *)data[i], sizes[i + 1], PE… in PetscViewerBinaryWriteStringArray()
1209 PetscErrorCode PetscViewerBinaryReadStringArray(PetscViewer viewer, char ***data) in PetscViewerBinaryReadStringArray() argument
1214 PetscCall(PetscViewerSetUp(viewer)); in PetscViewerBinaryReadStringArray()
1216 PetscCall(PetscViewerBinaryRead(viewer, &n, 1, NULL, PETSC_INT)); in PetscViewerBinaryReadStringArray()
1218 PetscCall(PetscViewerBinaryRead(viewer, sizes, n, NULL, PETSC_INT)); in PetscViewerBinaryReadStringArray()
1223 PetscCall(PetscViewerBinaryRead(viewer, (*data)[0], N, NULL, PETSC_CHAR)); in PetscViewerBinaryReadStringArray()
1247 PetscErrorCode PetscViewerFileSetMode(PetscViewer viewer, PetscFileMode mode) in PetscViewerFileSetMode() argument
1250 PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1); in PetscViewerFileSetMode()
1251 PetscValidLogicalCollectiveEnum(viewer, mode, 2); in PetscViewerFileSetMode()
1252 …PetscCheck(mode != FILE_MODE_UNDEFINED, PetscObjectComm((PetscObject)viewer), PETSC_ERR_SUP, "Cann… in PetscViewerFileSetMode()
1253 …DEFINED && mode <= FILE_MODE_APPEND_UPDATE, PetscObjectComm((PetscObject)viewer), PETSC_ERR_ARG_OU… in PetscViewerFileSetMode()
1254 PetscTryMethod(viewer, "PetscViewerFileSetMode_C", (PetscViewer, PetscFileMode), (viewer, mode)); in PetscViewerFileSetMode()
1258 static PetscErrorCode PetscViewerFileSetMode_Binary(PetscViewer viewer, PetscFileMode mode) in PetscViewerFileSetMode_Binary() argument
1260 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerFileSetMode_Binary()
1263 …PetscCheck(!viewer->setupcalled || vbinary->filemode == mode, PetscObjectComm((PetscObject)viewer)… in PetscViewerFileSetMode_Binary()
1288 PetscErrorCode PetscViewerFileGetMode(PetscViewer viewer, PetscFileMode *mode) in PetscViewerFileGetMode() argument
1291 PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1); in PetscViewerFileGetMode()
1293 …PetscUseMethod(viewer, "PetscViewerFileGetMode_C", (PetscViewer, PetscFileMode *), (viewer, mode)); in PetscViewerFileGetMode()
1297 static PetscErrorCode PetscViewerFileGetMode_Binary(PetscViewer viewer, PetscFileMode *mode) in PetscViewerFileGetMode_Binary() argument
1299 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerFileGetMode_Binary()
1306 static PetscErrorCode PetscViewerFileSetName_Binary(PetscViewer viewer, const char name[]) in PetscViewerFileSetName_Binary() argument
1308 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerFileSetName_Binary()
1311 if (viewer->setupcalled && vbinary->filename) { in PetscViewerFileSetName_Binary()
1318 viewer->setupcalled = PETSC_FALSE; in PetscViewerFileSetName_Binary()
1322 static PetscErrorCode PetscViewerFileGetName_Binary(PetscViewer viewer, const char **name) in PetscViewerFileGetName_Binary() argument
1324 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerFileGetName_Binary()
1332 static PetscErrorCode PetscViewerFileSetUp_BinaryMPIIO(PetscViewer viewer) in PetscViewerFileSetUp_BinaryMPIIO() argument
1334 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerFileSetUp_BinaryMPIIO()
1352 …SETERRQ(PetscObjectComm((PetscObject)viewer), PETSC_ERR_ORDER, "Must call PetscViewerFileSetMode()… in PetscViewerFileSetUp_BinaryMPIIO()
1354 …SETERRQ(PetscObjectComm((PetscObject)viewer), PETSC_ERR_SUP, "Unsupported file mode %s", PetscFile… in PetscViewerFileSetUp_BinaryMPIIO()
1356 …PetscCallMPI(MPI_File_open(PetscObjectComm((PetscObject)viewer), vbinary->filename, amode, MPI_INF… in PetscViewerFileSetUp_BinaryMPIIO()
1372 static PetscErrorCode PetscViewerFileSetUp_BinarySTDIO(PetscViewer viewer) in PetscViewerFileSetUp_BinarySTDIO() argument
1374 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerFileSetUp_BinarySTDIO()
1381 PetscCallMPI(MPI_Comm_rank(PetscObjectComm((PetscObject)viewer), &rank)); in PetscViewerFileSetUp_BinarySTDIO()
1393 …PetscCheck(!vbinary->storecompressed, PetscObjectComm((PetscObject)viewer), PETSC_ERR_SUP_SYS, "Ca… in PetscViewerFileSetUp_BinarySTDIO()
1398 …PetscCall(PetscFileRetrieve(PetscObjectComm((PetscObject)viewer), fname, bname, PETSC_MAX_PATH_LEN… in PetscViewerFileSetUp_BinarySTDIO()
1399 …PetscCheck(found, PetscObjectComm((PetscObject)viewer), PETSC_ERR_FILE_OPEN, "Cannot locate file: … in PetscViewerFileSetUp_BinarySTDIO()
1417 static PetscErrorCode PetscViewerFileSetUp_BinaryInfo(PetscViewer viewer) in PetscViewerFileSetUp_BinaryInfo() argument
1419 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerFileSetUp_BinaryInfo()
1425 PetscCallMPI(MPI_Comm_rank(PetscObjectComm((PetscObject)viewer), &rank)); in PetscViewerFileSetUp_BinaryInfo()
1437 …PetscCall(PetscFileRetrieve(PetscObjectComm((PetscObject)viewer), iname, infoname, PETSC_MAX_PATH_… in PetscViewerFileSetUp_BinaryInfo()
1438 …PetscCall(PetscOptionsInsertFile(PetscObjectComm((PetscObject)viewer), ((PetscObject)viewer)->opti… in PetscViewerFileSetUp_BinaryInfo()
1448 static PetscErrorCode PetscViewerSetUp_Binary(PetscViewer viewer) in PetscViewerSetUp_Binary() argument
1450 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerSetUp_Binary()
1454 if (!vbinary->setfromoptionscalled) PetscCall(PetscViewerSetFromOptions(viewer)); in PetscViewerSetUp_Binary()
1457 PetscCall(PetscViewerFileClose_Binary(viewer)); in PetscViewerSetUp_Binary()
1459 PetscCall(PetscViewerBinaryGetUseMPIIO(viewer, &usempiio)); in PetscViewerSetUp_Binary()
1462 PetscCall(PetscViewerFileSetUp_BinaryMPIIO(viewer)); in PetscViewerSetUp_Binary()
1465 PetscCall(PetscViewerFileSetUp_BinarySTDIO(viewer)); in PetscViewerSetUp_Binary()
1467 PetscCall(PetscViewerFileSetUp_BinaryInfo(viewer)); in PetscViewerSetUp_Binary()
1469 PetscCall(PetscLogObjectState((PetscObject)viewer, "File: %s", vbinary->filename)); in PetscViewerSetUp_Binary()
1473 static PetscErrorCode PetscViewerView_Binary(PetscViewer v, PetscViewer viewer) in PetscViewerView_Binary() argument
1482 PetscCall(PetscViewerASCIIPrintf(viewer, "Filename: %s\n", fname)); in PetscViewerView_Binary()
1483 PetscCall(PetscViewerASCIIPrintf(viewer, "Mode: %s (%s)\n", fmode, usempiio ? "mpiio" : "stdio")); in PetscViewerView_Binary()
1487 static PetscErrorCode PetscViewerSetFromOptions_Binary(PetscViewer viewer, PetscOptionItems PetscOp… in PetscViewerSetFromOptions_Binary() argument
1489 PetscViewer_Binary *binary = (PetscViewer_Binary *)viewer->data; in PetscViewerSetFromOptions_Binary()
1494 if (viewer->setupcalled) PetscFunctionReturn(PETSC_SUCCESS); in PetscViewerSetFromOptions_Binary()
1498 if (flg) PetscCall(PetscViewerFileSetName_Binary(viewer, defaultname)); in PetscViewerSetFromOptions_Binary()
1620 PetscViewer viewer; in PETSC_VIEWER_BINARY_() local
1627 PetscCallMPINull(MPI_Comm_get_attr(ncomm, Petsc_Viewer_Binary_keyval, (void **)&viewer, &iflg)); in PETSC_VIEWER_BINARY_()
1631 PetscCallNull(PetscViewerBinaryOpen(ncomm, fname, FILE_MODE_WRITE, &viewer)); in PETSC_VIEWER_BINARY_()
1632 PetscCallNull(PetscObjectRegisterDestroy((PetscObject)viewer)); in PETSC_VIEWER_BINARY_()
1633 PetscCallMPINull(MPI_Comm_set_attr(ncomm, Petsc_Viewer_Binary_keyval, (void *)viewer)); in PETSC_VIEWER_BINARY_()
1636 PetscFunctionReturn(viewer); in PETSC_VIEWER_BINARY_()