Lines Matching refs:vbinary
53 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinarySyncMPIIO() local
56 if (vbinary->filemode == FILE_MODE_READ) PetscFunctionReturn(PETSC_SUCCESS); in PetscViewerBinarySyncMPIIO()
57 if (vbinary->mfsub != MPI_FILE_NULL) PetscCallMPI(MPI_File_sync(vbinary->mfsub)); in PetscViewerBinarySyncMPIIO()
58 if (vbinary->mfdes != MPI_FILE_NULL) { in PetscViewerBinarySyncMPIIO()
60 PetscCallMPI(MPI_File_sync(vbinary->mfdes)); in PetscViewerBinarySyncMPIIO()
68 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerGetSubViewer_Binary() local
83 PetscCall(PetscMemcpy((*outviewer)->data, vbinary, sizeof(PetscViewer_Binary))); in PetscViewerGetSubViewer_Binary()
90 if (vbinary->usempiio && *outviewer) { in PetscViewerGetSubViewer_Binary()
93 if (vbinary->mfsub == MPI_FILE_NULL) { in PetscViewerGetSubViewer_Binary()
95 switch (vbinary->filemode) { in PetscViewerGetSubViewer_Binary()
106 …SETERRQ(PETSC_COMM_SELF, PETSC_ERR_SUP, "Unsupported file mode %s", PetscFileModes[vbinary->filemo… in PetscViewerGetSubViewer_Binary()
108 …PetscCallMPI(MPI_File_open(PETSC_COMM_SELF, vbinary->filename, amode, MPI_INFO_NULL, &vbinary->mfs… in PetscViewerGetSubViewer_Binary()
111 obinary->mfdes = vbinary->mfsub; in PetscViewerGetSubViewer_Binary()
113 obinary->moff = vbinary->moff; in PetscViewerGetSubViewer_Binary()
125 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerRestoreSubViewer_Binary() local
136 if (vbinary->usempiio && *outviewer) { in PetscViewerRestoreSubViewer_Binary()
138 …PetscCheck(obinary->mfdes == vbinary->mfsub, PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Subviewer not … in PetscViewerRestoreSubViewer_Binary()
146 …PetscCheck(obinary->fdes == vbinary->fdes, PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Subviewer not ob… in PetscViewerRestoreSubViewer_Binary()
153 if (vbinary->usempiio) { in PetscViewerRestoreSubViewer_Binary()
156 vbinary->moff = (MPI_Offset)ioff; in PetscViewerRestoreSubViewer_Binary()
187 PetscViewer_Binary *vbinary; in PetscViewerBinaryGetMPIIOOffset() local
192 vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinaryGetMPIIOOffset()
193 *off = vbinary->moff; in PetscViewerBinaryGetMPIIOOffset()
215 PetscViewer_Binary *vbinary; in PetscViewerBinaryAddMPIIOOffset() local
220 vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinaryAddMPIIOOffset()
221 vbinary->moff += off; in PetscViewerBinaryAddMPIIOOffset()
242 PetscViewer_Binary *vbinary; in PetscViewerBinaryGetMPIIODescriptor() local
248 vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinaryGetMPIIODescriptor()
249 *fdes = vbinary->mfdes; in PetscViewerBinaryGetMPIIODescriptor()
284 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinarySetUseMPIIO_Binary() local
287 …PetscCheck(!viewer->setupcalled || vbinary->usempiio == use, PetscObjectComm((PetscObject)viewer),… in PetscViewerBinarySetUseMPIIO_Binary()
288 vbinary->usempiio = use; in PetscViewerBinarySetUseMPIIO_Binary()
324 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinaryGetUseMPIIO_Binary() local
327 *use = vbinary->usempiio; in PetscViewerBinaryGetUseMPIIO_Binary()
356 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinarySetFlowControl_Binary() local
360 vbinary->flowcontrol = fc; in PetscViewerBinarySetFlowControl_Binary()
390 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinaryGetFlowControl_Binary() local
393 *fc = vbinary->flowcontrol; in PetscViewerBinaryGetFlowControl_Binary()
420 PetscViewer_Binary *vbinary; in PetscViewerBinaryGetDescriptor() local
426 vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinaryGetDescriptor()
427 *fdes = vbinary->fdes; in PetscViewerBinaryGetDescriptor()
500 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinarySetSkipInfo_Binary() local
503 vbinary->skipinfo = skip; in PetscViewerBinarySetSkipInfo_Binary()
537 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinaryGetSkipInfo_Binary() local
540 *skip = vbinary->skipinfo; in PetscViewerBinaryGetSkipInfo_Binary()
575 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinarySetSkipOptions_Binary() local
578 vbinary->skipoptions = skip; in PetscViewerBinarySetSkipOptions_Binary()
612 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinaryGetSkipOptions_Binary() local
615 *skip = vbinary->skipoptions; in PetscViewerBinaryGetSkipOptions_Binary()
652 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinarySetSkipHeader_Binary() local
655 vbinary->skipheader = skip; in PetscViewerBinarySetSkipHeader_Binary()
691 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinaryGetSkipHeader_Binary() local
694 *skip = vbinary->skipheader; in PetscViewerBinaryGetSkipHeader_Binary()
731 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinaryGetInfoPointer_Binary() local
735 *file = vbinary->fdes_info; in PetscViewerBinaryGetInfoPointer_Binary()
736 if (viewer->format == PETSC_VIEWER_BINARY_MATLAB && !vbinary->matlabheaderwritten) { in PetscViewerBinaryGetInfoPointer_Binary()
737 if (vbinary->fdes_info) { in PetscViewerBinaryGetInfoPointer_Binary()
738 FILE *info = vbinary->fdes_info; in PetscViewerBinaryGetInfoPointer_Binary()
740 … PetscCall(PetscFPrintf(PETSC_COMM_SELF, info, "#$$ Set.filename = '%s';\n", vbinary->filename)); in PetscViewerBinaryGetInfoPointer_Binary()
744 vbinary->matlabheaderwritten = PETSC_TRUE; in PetscViewerBinaryGetInfoPointer_Binary()
752 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)v->data; in PetscViewerFileClose_BinaryMPIIO() local
755 if (vbinary->mfdes != MPI_FILE_NULL) PetscCallMPI(MPI_File_close(&vbinary->mfdes)); in PetscViewerFileClose_BinaryMPIIO()
756 if (vbinary->mfsub != MPI_FILE_NULL) PetscCallMPI(MPI_File_close(&vbinary->mfsub)); in PetscViewerFileClose_BinaryMPIIO()
757 vbinary->moff = 0; in PetscViewerFileClose_BinaryMPIIO()
764 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)v->data; in PetscViewerFileClose_BinarySTDIO() local
767 if (vbinary->fdes != -1) { in PetscViewerFileClose_BinarySTDIO()
768 PetscCall(PetscBinaryClose(vbinary->fdes)); in PetscViewerFileClose_BinarySTDIO()
769 vbinary->fdes = -1; in PetscViewerFileClose_BinarySTDIO()
770 if (vbinary->storecompressed) { in PetscViewerFileClose_BinarySTDIO()
772 const char *gzfilename = vbinary->ogzfilename ? vbinary->ogzfilename : vbinary->filename; in PetscViewerFileClose_BinarySTDIO()
786 PetscCall(PetscFree(vbinary->ogzfilename)); in PetscViewerFileClose_BinarySTDIO()
792 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)v->data; in PetscViewerFileClose_BinaryInfo() local
795 if (v->format == PETSC_VIEWER_BINARY_MATLAB && vbinary->matlabheaderwritten) { in PetscViewerFileClose_BinaryInfo()
796 if (vbinary->fdes_info) { in PetscViewerFileClose_BinaryInfo()
797 FILE *info = vbinary->fdes_info; in PetscViewerFileClose_BinaryInfo()
803 if (vbinary->fdes_info) { in PetscViewerFileClose_BinaryInfo()
804 FILE *info = vbinary->fdes_info; in PetscViewerFileClose_BinaryInfo()
805 vbinary->fdes_info = NULL; in PetscViewerFileClose_BinaryInfo()
824 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)v->data; in PetscViewerDestroy_Binary() local
828 PetscCall(PetscFree(vbinary->filename)); in PetscViewerDestroy_Binary()
829 PetscCall(PetscFree(vbinary)); in PetscViewerDestroy_Binary()
890 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinaryWriteReadMPIIO() local
891 MPI_File mfdes = vbinary->mfdes; in PetscViewerBinaryWriteReadMPIIO()
902 if (rank == 0) PetscCall(MPIU_File_write_at(mfdes, vbinary->moff, data, cnt, mdtype, &status)); in PetscViewerBinaryWriteReadMPIIO()
905 PetscCall(MPIU_File_read_at(mfdes, vbinary->moff, data, cnt, mdtype, &status)); in PetscViewerBinaryWriteReadMPIIO()
912 vbinary->moff += dsize * cnt; in PetscViewerBinaryWriteReadMPIIO()
940 PetscViewer_Binary *vbinary; in PetscViewerBinaryRead() local
946 vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinaryRead()
948 if (vbinary->usempiio) { in PetscViewerBinaryRead()
952 …PetscCall(PetscBinarySynchronizedRead(PetscObjectComm((PetscObject)viewer), vbinary->fdes, data, n… in PetscViewerBinaryRead()
978 PetscViewer_Binary *vbinary; in PetscViewerBinaryWrite() local
984 vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerBinaryWrite()
986 if (vbinary->usempiio) { in PetscViewerBinaryWrite()
990 …PetscCall(PetscBinarySynchronizedWrite(PetscObjectComm((PetscObject)viewer), vbinary->fdes, data, … in PetscViewerBinaryWrite()
1260 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerFileSetMode_Binary() local
1263 …PetscCheck(!viewer->setupcalled || vbinary->filemode == mode, PetscObjectComm((PetscObject)viewer)… in PetscViewerFileSetMode_Binary()
1264 vbinary->filemode = mode; in PetscViewerFileSetMode_Binary()
1299 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerFileGetMode_Binary() local
1302 *mode = vbinary->filemode; in PetscViewerFileGetMode_Binary()
1308 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerFileSetName_Binary() local
1311 if (viewer->setupcalled && vbinary->filename) { in PetscViewerFileSetName_Binary()
1313 PetscCall(PetscFree(vbinary->ogzfilename)); in PetscViewerFileSetName_Binary()
1314 PetscCall(PetscStrallocpy(vbinary->filename, &vbinary->ogzfilename)); in PetscViewerFileSetName_Binary()
1316 PetscCall(PetscFree(vbinary->filename)); in PetscViewerFileSetName_Binary()
1317 PetscCall(PetscStrallocpy(name, &vbinary->filename)); in PetscViewerFileSetName_Binary()
1324 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerFileGetName_Binary() local
1327 *name = vbinary->filename; in PetscViewerFileGetName_Binary()
1334 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerFileSetUp_BinaryMPIIO() local
1338 vbinary->storecompressed = PETSC_FALSE; in PetscViewerFileSetUp_BinaryMPIIO()
1340 vbinary->moff = 0; in PetscViewerFileSetUp_BinaryMPIIO()
1341 switch (vbinary->filemode) { in PetscViewerFileSetUp_BinaryMPIIO()
1354 …PetscObject)viewer), PETSC_ERR_SUP, "Unsupported file mode %s", PetscFileModes[vbinary->filemode]); in PetscViewerFileSetUp_BinaryMPIIO()
1356 …MPI_File_open(PetscObjectComm((PetscObject)viewer), vbinary->filename, amode, MPI_INFO_NULL, &vbin… in PetscViewerFileSetUp_BinaryMPIIO()
1360 if (vbinary->filemode == FILE_MODE_WRITE) PetscCallMPI(MPI_File_set_size(vbinary->mfdes, 0)); in PetscViewerFileSetUp_BinaryMPIIO()
1367 …if (vbinary->filemode == FILE_MODE_APPEND) PetscCallMPI(MPI_File_get_position(vbinary->mfdes, &vbi… in PetscViewerFileSetUp_BinaryMPIIO()
1374 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerFileSetUp_BinarySTDIO() local
1384 vbinary->storecompressed = PETSC_FALSE; in PetscViewerFileSetUp_BinarySTDIO()
1385 if (vbinary->filemode == FILE_MODE_WRITE) { in PetscViewerFileSetUp_BinarySTDIO()
1386 PetscCall(PetscStrstr(vbinary->filename, ".gz", &gz)); in PetscViewerFileSetUp_BinarySTDIO()
1389 vbinary->storecompressed = PETSC_TRUE; in PetscViewerFileSetUp_BinarySTDIO()
1393 …PetscCheck(!vbinary->storecompressed, PetscObjectComm((PetscObject)viewer), PETSC_ERR_SUP_SYS, "Ca… in PetscViewerFileSetUp_BinarySTDIO()
1396 fname = vbinary->filename; in PetscViewerFileSetUp_BinarySTDIO()
1397 …if (vbinary->filemode == FILE_MODE_READ) { /* possibly get the file from remote site or compressed… in PetscViewerFileSetUp_BinarySTDIO()
1403 vbinary->fdes = -1; in PetscViewerFileSetUp_BinarySTDIO()
1405 PetscFileMode mode = vbinary->filemode; in PetscViewerFileSetUp_BinarySTDIO()
1411 PetscCall(PetscBinaryOpen(fname, mode, &vbinary->fdes)); in PetscViewerFileSetUp_BinarySTDIO()
1419 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerFileSetUp_BinaryInfo() local
1424 vbinary->fdes_info = NULL; in PetscViewerFileSetUp_BinaryInfo()
1426 if (!vbinary->skipinfo && (vbinary->filemode == FILE_MODE_READ || rank == 0)) { in PetscViewerFileSetUp_BinaryInfo()
1429 PetscCall(PetscStrncpy(infoname, vbinary->filename, sizeof(infoname))); in PetscViewerFileSetUp_BinaryInfo()
1435 if (vbinary->filemode == FILE_MODE_READ) { in PetscViewerFileSetUp_BinaryInfo()
1440 const char *omode = (vbinary->filemode == FILE_MODE_APPEND) ? "a" : "w"; in PetscViewerFileSetUp_BinaryInfo()
1441 vbinary->fdes_info = fopen(infoname, omode); in PetscViewerFileSetUp_BinaryInfo()
1442 …PetscCheck(vbinary->fdes_info, PETSC_COMM_SELF, PETSC_ERR_FILE_OPEN, "Cannot open .info file %s fo… in PetscViewerFileSetUp_BinaryInfo()
1450 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)viewer->data; in PetscViewerSetUp_Binary() local
1454 if (!vbinary->setfromoptionscalled) PetscCall(PetscViewerSetFromOptions(viewer)); in PetscViewerSetUp_Binary()
1455 …PetscCheck(vbinary->filename, PETSC_COMM_SELF, PETSC_ERR_ORDER, "Must call PetscViewerFileSetName(… in PetscViewerSetUp_Binary()
1456 …PetscCheck(vbinary->filemode != (PetscFileMode)-1, PETSC_COMM_SELF, PETSC_ERR_ORDER, "Must call Pe… in PetscViewerSetUp_Binary()
1469 PetscCall(PetscLogObjectState((PetscObject)viewer, "File: %s", vbinary->filename)); in PetscViewerSetUp_Binary()
1475 PetscViewer_Binary *vbinary = (PetscViewer_Binary *)v->data; in PetscViewerView_Binary() local
1476 const char *fname = vbinary->filename ? vbinary->filename : "not yet set"; in PetscViewerView_Binary()
1477 …const char *fmode = vbinary->filemode != (PetscFileMode)-1 ? PetscFileModes[vbinary->fil… in PetscViewerView_Binary()
1525 PetscViewer_Binary *vbinary; in PetscViewerCreate_Binary() local
1528 PetscCall(PetscNew(&vbinary)); in PetscViewerCreate_Binary()
1529 v->data = (void *)vbinary; in PetscViewerCreate_Binary()
1540 vbinary->fdes = -1; in PetscViewerCreate_Binary()
1542 vbinary->usempiio = PETSC_FALSE; in PetscViewerCreate_Binary()
1543 vbinary->mfdes = MPI_FILE_NULL; in PetscViewerCreate_Binary()
1544 vbinary->mfsub = MPI_FILE_NULL; in PetscViewerCreate_Binary()
1546 vbinary->filename = NULL; in PetscViewerCreate_Binary()
1547 vbinary->filemode = FILE_MODE_UNDEFINED; in PetscViewerCreate_Binary()
1548 vbinary->fdes_info = NULL; in PetscViewerCreate_Binary()
1549 vbinary->skipinfo = PETSC_FALSE; in PetscViewerCreate_Binary()
1550 vbinary->skipoptions = PETSC_TRUE; in PetscViewerCreate_Binary()
1551 vbinary->skipheader = PETSC_FALSE; in PetscViewerCreate_Binary()
1552 vbinary->storecompressed = PETSC_FALSE; in PetscViewerCreate_Binary()
1553 vbinary->ogzfilename = NULL; in PetscViewerCreate_Binary()
1554 vbinary->flowcontrol = 256; /* seems a good number for Cray XT-5 */ in PetscViewerCreate_Binary()
1556 vbinary->setfromoptionscalled = PETSC_FALSE; in PetscViewerCreate_Binary()