Lines Matching refs:viewer
5 static PetscErrorCode PetscViewerFileClose_ASCII(PetscViewer viewer) in PetscViewerFileClose_ASCII() argument
8 PetscViewer_ASCII *vascii = (PetscViewer_ASCII *)viewer->data; in PetscViewerFileClose_ASCII()
12 …PetscCheck(!vascii->sviewer, PetscObjectComm((PetscObject)viewer), PETSC_ERR_ARG_WRONGSTATE, "Cann… in PetscViewerFileClose_ASCII()
13 PetscCallMPI(MPI_Comm_rank(PetscObjectComm((PetscObject)viewer), &rank)); in PetscViewerFileClose_ASCII()
37 static PetscErrorCode PetscViewerDestroy_ASCII(PetscViewer viewer) in PetscViewerDestroy_ASCII() argument
39 PetscViewer_ASCII *vascii = (PetscViewer_ASCII *)viewer->data; in PetscViewerDestroy_ASCII()
44 …PetscCheck(!vascii->sviewer, PetscObjectComm((PetscObject)viewer), PETSC_ERR_ARG_WRONGSTATE, "Cann… in PetscViewerDestroy_ASCII()
45 PetscCall(PetscViewerFileClose_ASCII(viewer)); in PetscViewerDestroy_ASCII()
51 …PetscCallMPI(MPI_Comm_get_attr(PetscObjectComm((PetscObject)viewer), Petsc_Viewer_keyval, (void **… in PetscViewerDestroy_ASCII()
53 if (vlink && vlink->viewer == viewer) { in PetscViewerDestroy_ASCII()
55 …PetscCallMPI(MPI_Comm_set_attr(PetscObjectComm((PetscObject)viewer), Petsc_Viewer_keyval, vlink->n… in PetscViewerDestroy_ASCII()
57 … PetscCallMPI(MPI_Comm_delete_attr(PetscObjectComm((PetscObject)viewer), Petsc_Viewer_keyval)); in PetscViewerDestroy_ASCII()
62 if (vlink->next->viewer == viewer) { in PetscViewerDestroy_ASCII()
74 …PetscCallMPI(MPI_Comm_get_attr(PetscObjectComm((PetscObject)viewer), Petsc_Viewer_Stdout_keyval, (… in PetscViewerDestroy_ASCII()
75 …if (iflg && aviewer == viewer) PetscCallMPI(MPI_Comm_delete_attr(PetscObjectComm((PetscObject)view… in PetscViewerDestroy_ASCII()
79 …PetscCallMPI(MPI_Comm_get_attr(PetscObjectComm((PetscObject)viewer), Petsc_Viewer_Stderr_keyval, (… in PetscViewerDestroy_ASCII()
80 …if (iflg && aviewer == viewer) PetscCallMPI(MPI_Comm_delete_attr(PetscObjectComm((PetscObject)view… in PetscViewerDestroy_ASCII()
82 PetscCall(PetscObjectComposeFunction((PetscObject)viewer, "PetscViewerFileSetName_C", NULL)); in PetscViewerDestroy_ASCII()
83 PetscCall(PetscObjectComposeFunction((PetscObject)viewer, "PetscViewerFileGetName_C", NULL)); in PetscViewerDestroy_ASCII()
84 PetscCall(PetscObjectComposeFunction((PetscObject)viewer, "PetscViewerFileGetMode_C", NULL)); in PetscViewerDestroy_ASCII()
85 PetscCall(PetscObjectComposeFunction((PetscObject)viewer, "PetscViewerFileSetMode_C", NULL)); in PetscViewerDestroy_ASCII()
89 static PetscErrorCode PetscViewerDestroy_ASCII_SubViewer(PetscViewer viewer) in PetscViewerDestroy_ASCII_SubViewer() argument
91 PetscViewer_ASCII *vascii = (PetscViewer_ASCII *)viewer->data; in PetscViewerDestroy_ASCII_SubViewer()
94 PetscCall(PetscViewerRestoreSubViewer(vascii->bviewer, 0, &viewer)); in PetscViewerDestroy_ASCII_SubViewer()
117 PetscErrorCode PetscViewerASCIIGetPointer(PetscViewer viewer, FILE **fd) in PetscViewerASCIIGetPointer() argument
119 PetscViewer_ASCII *vascii = (PetscViewer_ASCII *)viewer->data; in PetscViewerASCIIGetPointer()
122 …PetscCheck(!vascii->fileunit, PetscObjectComm((PetscObject)viewer), PETSC_ERR_ARG_WRONGSTATE, "Can… in PetscViewerASCIIGetPointer()
127 static PetscErrorCode PetscViewerFileGetMode_ASCII(PetscViewer viewer, PetscFileMode *mode) in PetscViewerFileGetMode_ASCII() argument
129 PetscViewer_ASCII *vascii = (PetscViewer_ASCII *)viewer->data; in PetscViewerFileGetMode_ASCII()
136 static PetscErrorCode PetscViewerFileSetMode_ASCII(PetscViewer viewer, PetscFileMode mode) in PetscViewerFileSetMode_ASCII() argument
138 PetscViewer_ASCII *vascii = (PetscViewer_ASCII *)viewer->data; in PetscViewerFileSetMode_ASCII()
171 PetscErrorCode PetscViewerASCIISetTab(PetscViewer viewer, PetscInt tabs) in PetscViewerASCIISetTab() argument
173 PetscViewer_ASCII *ascii = (PetscViewer_ASCII *)viewer->data; in PetscViewerASCIISetTab()
177 PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1); in PetscViewerASCIISetTab()
178 PetscCall(PetscObjectTypeCompare((PetscObject)viewer, PETSCVIEWERASCII, &isascii)); in PetscViewerASCIISetTab()
201 PetscErrorCode PetscViewerASCIIGetTab(PetscViewer viewer, PetscInt *tabs) in PetscViewerASCIIGetTab() argument
203 PetscViewer_ASCII *ascii = (PetscViewer_ASCII *)viewer->data; in PetscViewerASCIIGetTab()
207 PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1); in PetscViewerASCIIGetTab()
208 PetscCall(PetscObjectTypeCompare((PetscObject)viewer, PETSCVIEWERASCII, &isascii)); in PetscViewerASCIIGetTab()
231 PetscErrorCode PetscViewerASCIIAddTab(PetscViewer viewer, PetscInt tabs) in PetscViewerASCIIAddTab() argument
233 PetscViewer_ASCII *ascii = (PetscViewer_ASCII *)viewer->data; in PetscViewerASCIIAddTab()
237 PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1); in PetscViewerASCIIAddTab()
238 PetscCall(PetscObjectTypeCompare((PetscObject)viewer, PETSCVIEWERASCII, &isascii)); in PetscViewerASCIIAddTab()
262 PetscErrorCode PetscViewerASCIISubtractTab(PetscViewer viewer, PetscInt tabs) in PetscViewerASCIISubtractTab() argument
264 PetscViewer_ASCII *ascii = (PetscViewer_ASCII *)viewer->data; in PetscViewerASCIISubtractTab()
268 PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1); in PetscViewerASCIISubtractTab()
269 PetscCall(PetscObjectTypeCompare((PetscObject)viewer, PETSCVIEWERASCII, &isascii)); in PetscViewerASCIISubtractTab()
291 PetscErrorCode PetscViewerASCIIPushSynchronized(PetscViewer viewer) in PetscViewerASCIIPushSynchronized() argument
293 PetscViewer_ASCII *ascii = (PetscViewer_ASCII *)viewer->data; in PetscViewerASCIIPushSynchronized()
297 PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1); in PetscViewerASCIIPushSynchronized()
298 …PetscCheck(!ascii->sviewer, PetscObjectComm((PetscObject)viewer), PETSC_ERR_ARG_WRONGSTATE, "Canno… in PetscViewerASCIIPushSynchronized()
299 PetscCall(PetscObjectTypeCompare((PetscObject)viewer, PETSCVIEWERASCII, &isascii)); in PetscViewerASCIIPushSynchronized()
321 PetscErrorCode PetscViewerASCIIPopSynchronized(PetscViewer viewer) in PetscViewerASCIIPopSynchronized() argument
323 PetscViewer_ASCII *ascii = (PetscViewer_ASCII *)viewer->data; in PetscViewerASCIIPopSynchronized()
327 PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1); in PetscViewerASCIIPopSynchronized()
328 …PetscCheck(!ascii->sviewer, PetscObjectComm((PetscObject)viewer), PETSC_ERR_ARG_WRONGSTATE, "Canno… in PetscViewerASCIIPopSynchronized()
329 PetscCall(PetscObjectTypeCompare((PetscObject)viewer, PETSCVIEWERASCII, &isascii)); in PetscViewerASCIIPopSynchronized()
352 PetscErrorCode PetscViewerASCIIPushTab(PetscViewer viewer) in PetscViewerASCIIPushTab() argument
354 PetscViewer_ASCII *ascii = (PetscViewer_ASCII *)viewer->data; in PetscViewerASCIIPushTab()
358 PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1); in PetscViewerASCIIPushTab()
359 PetscCall(PetscObjectTypeCompare((PetscObject)viewer, PETSCVIEWERASCII, &isascii)); in PetscViewerASCIIPushTab()
379 PetscErrorCode PetscViewerASCIIPopTab(PetscViewer viewer) in PetscViewerASCIIPopTab() argument
381 PetscViewer_ASCII *ascii = (PetscViewer_ASCII *)viewer->data; in PetscViewerASCIIPopTab()
385 PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1); in PetscViewerASCIIPopTab()
386 PetscCall(PetscObjectTypeCompare((PetscObject)viewer, PETSCVIEWERASCII, &isascii)); in PetscViewerASCIIPopTab()
409 PetscErrorCode PetscViewerASCIIUseTabs(PetscViewer viewer, PetscBool flg) in PetscViewerASCIIUseTabs() argument
411 PetscViewer_ASCII *ascii = (PetscViewer_ASCII *)viewer->data; in PetscViewerASCIIUseTabs()
415 PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1); in PetscViewerASCIIUseTabs()
416 PetscCall(PetscObjectTypeCompare((PetscObject)viewer, PETSCVIEWERASCII, &isascii)); in PetscViewerASCIIUseTabs()
521 PETSC_EXTERN void petscviewerasciisetfileunit_(PetscViewer *viewer, int *unit, PetscErrorCode *ierr) in petscviewerasciisetfileunit_() argument
526 PetscPatchDefaultViewers_Fortran(viewer, v); in petscviewerasciisetfileunit_()
561 PETSC_EXTERN void petscviewerasciiopenwithfileunit_(MPI_Fint *comm, int *unit, PetscViewer *viewer,… in petscviewerasciiopenwithfileunit_() argument
563 *ierr = PetscViewerCreate(MPI_Comm_f2c(*(MPI_Fint *)&*comm), viewer); in petscviewerasciiopenwithfileunit_()
565 *ierr = PetscViewerSetType(*viewer, PETSCVIEWERASCII); in petscviewerasciiopenwithfileunit_()
567 *ierr = PetscViewerFileSetMode(*viewer, FILE_MODE_WRITE); in petscviewerasciiopenwithfileunit_()
569 petscviewerasciisetfileunit_(viewer, unit, ierr); in petscviewerasciiopenwithfileunit_()
635 PetscErrorCode PetscViewerASCIIGetStdout(MPI_Comm comm, PetscViewer *viewer) in PetscViewerASCIIGetStdout() argument
641 PetscAssertPointer(viewer, 2); in PetscViewerASCIIGetStdout()
645 PetscCallMPI(MPI_Comm_get_attr(ncomm, Petsc_Viewer_Stdout_keyval, (void **)viewer, &iflg)); in PetscViewerASCIIGetStdout()
653 petscviewerasciiopenwithfileunit_(&fcomm, &PETSC_VIEWER_ASCII_STDOUT_fileunit, viewer, &ierr); in PetscViewerASCIIGetStdout()
660 PetscCall(PetscViewerCreate(ncomm, viewer)); in PetscViewerASCIIGetStdout()
661 PetscCall(PetscViewerSetType(*viewer, PETSCVIEWERASCII)); in PetscViewerASCIIGetStdout()
663 if (set) PetscCall(PetscViewerPushFormat(*viewer, format)); in PetscViewerASCIIGetStdout()
664 PetscCall(PetscViewerFileSetName(*viewer, "stdout")); in PetscViewerASCIIGetStdout()
666 PetscCall(PetscObjectRegisterDestroy((PetscObject)*viewer)); in PetscViewerASCIIGetStdout()
667 PetscCallMPI(MPI_Comm_set_attr(ncomm, Petsc_Viewer_Stdout_keyval, (void *)*viewer)); in PetscViewerASCIIGetStdout()
672 ((PetscViewer_ASCII *)(*viewer)->data)->fileunit = PETSC_VIEWER_ASCII_STDOUT_fileunit; in PetscViewerASCIIGetStdout()
697 PetscErrorCode PetscViewerASCIIPrintf(PetscViewer viewer, const char format[], ...) in PetscViewerASCIIPrintf() argument
699 PetscViewer_ASCII *ascii = (PetscViewer_ASCII *)viewer->data; in PetscViewerASCIIPrintf()
706 PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1); in PetscViewerASCIIPrintf()
707 …PetscCheck(!ascii->sviewer, PetscObjectComm((PetscObject)viewer), PETSC_ERR_ARG_WRONGSTATE, "Canno… in PetscViewerASCIIPrintf()
709 PetscCall(PetscObjectTypeCompare((PetscObject)viewer, PETSCVIEWERASCII, &isascii)); in PetscViewerASCIIPrintf()
711 PetscCallMPI(MPI_Comm_rank(PetscObjectComm((PetscObject)viewer), &rank)); in PetscViewerASCIIPrintf()
761 PetscErrorCode PetscViewerFileSetName(PetscViewer viewer, const char name[]) in PetscViewerFileSetName() argument
766 PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1); in PetscViewerFileSetName()
768 …PetscCall(PetscStrreplace(PetscObjectComm((PetscObject)viewer), name, filename, sizeof(filename))); in PetscViewerFileSetName()
769 …PetscTryMethod(viewer, "PetscViewerFileSetName_C", (PetscViewer, const char[]), (viewer, filename)… in PetscViewerFileSetName()
791 PetscErrorCode PetscViewerFileGetName(PetscViewer viewer, const char *name[]) in PetscViewerFileGetName() argument
794 PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1); in PetscViewerFileGetName()
796 PetscUseMethod(viewer, "PetscViewerFileGetName_C", (PetscViewer, const char **), (viewer, name)); in PetscViewerFileGetName()
800 static PetscErrorCode PetscViewerFileGetName_ASCII(PetscViewer viewer, const char **name) in PetscViewerFileGetName_ASCII() argument
802 PetscViewer_ASCII *vascii = (PetscViewer_ASCII *)viewer->data; in PetscViewerFileGetName_ASCII()
810 static PetscErrorCode PetscViewerFileSetName_ASCII(PetscViewer viewer, const char name[]) in PetscViewerFileSetName_ASCII() argument
814 PetscViewer_ASCII *vascii = (PetscViewer_ASCII *)viewer->data; in PetscViewerFileSetName_ASCII()
819 PetscCall(PetscViewerFileClose_ASCII(viewer)); in PetscViewerFileSetName_ASCII()
830 …PetscCheck(vascii->mode == FILE_MODE_WRITE, PetscObjectComm((PetscObject)viewer), PETSC_ERR_SUP, "… in PetscViewerFileSetName_ASCII()
835 PetscCallMPI(MPI_Comm_rank(PetscObjectComm((PetscObject)viewer), &rank)); in PetscViewerFileSetName_ASCII()
871 …SETERRQ(PetscObjectComm((PetscObject)viewer), PETSC_ERR_SUP, "Unsupported file mode %s", PetscFile… in PetscViewerFileSetName_ASCII()
876 PetscCall(PetscLogObjectState((PetscObject)viewer, "File: %s", name)); in PetscViewerFileSetName_ASCII()
880 static PetscErrorCode PetscViewerGetSubViewer_ASCII(PetscViewer viewer, MPI_Comm subcomm, PetscView… in PetscViewerGetSubViewer_ASCII() argument
882 PetscViewer_ASCII *vascii = (PetscViewer_ASCII *)viewer->data, *ovascii; in PetscViewerGetSubViewer_ASCII()
886 PetscCall(PetscViewerASCIIPushSynchronized(viewer)); in PetscViewerGetSubViewer_ASCII()
895 PetscCall(PetscViewerASCIIPushSynchronized(viewer)); in PetscViewerGetSubViewer_ASCII()
896 PetscCall(PetscViewerFlush(viewer)); in PetscViewerGetSubViewer_ASCII()
906 (*outviewer)->format = viewer->format; in PetscViewerGetSubViewer_ASCII()
907 ((PetscViewer_ASCII *)((*outviewer)->data))->bviewer = viewer; in PetscViewerGetSubViewer_ASCII()
912 static PetscErrorCode PetscViewerRestoreSubViewer_ASCII(PetscViewer viewer, MPI_Comm comm, PetscVie… in PetscViewerRestoreSubViewer_ASCII() argument
914 PetscViewer_ASCII *ascii = (PetscViewer_ASCII *)viewer->data; in PetscViewerRestoreSubViewer_ASCII()
924 PetscCall(PetscViewerFlush(viewer)); in PetscViewerRestoreSubViewer_ASCII()
925 PetscCall(PetscViewerASCIIPopSynchronized(viewer)); in PetscViewerRestoreSubViewer_ASCII()
929 static PetscErrorCode PetscViewerView_ASCII(PetscViewer v, PetscViewer viewer) in PetscViewerView_ASCII() argument
934 …if (ascii->fileunit) PetscCall(PetscViewerASCIIPrintf(viewer, "Fortran FILE UNIT: %d\n", ascii->fi… in PetscViewerView_ASCII()
935 …else if (ascii->filename) PetscCall(PetscViewerASCIIPrintf(viewer, "Filename: %s\n", ascii->filena… in PetscViewerView_ASCII()
939 static PetscErrorCode PetscViewerFlush_ASCII(PetscViewer viewer) in PetscViewerFlush_ASCII() argument
941 PetscViewer_ASCII *vascii = (PetscViewer_ASCII *)viewer->data; in PetscViewerFlush_ASCII()
947 …PetscCheck(!vascii->sviewer, PetscObjectComm((PetscObject)viewer), PETSC_ERR_ARG_WRONGSTATE, "Cann… in PetscViewerFlush_ASCII()
948 PetscCall(PetscObjectGetComm((PetscObject)viewer, &comm)); in PetscViewerFlush_ASCII()
1028 PETSC_EXTERN PetscErrorCode PetscViewerCreate_ASCII(PetscViewer viewer) in PetscViewerCreate_ASCII() argument
1034 viewer->data = (void *)vascii; in PetscViewerCreate_ASCII()
1036 viewer->ops->destroy = PetscViewerDestroy_ASCII; in PetscViewerCreate_ASCII()
1037 viewer->ops->flush = PetscViewerFlush_ASCII; in PetscViewerCreate_ASCII()
1038 viewer->ops->getsubviewer = PetscViewerGetSubViewer_ASCII; in PetscViewerCreate_ASCII()
1039 viewer->ops->restoresubviewer = PetscViewerRestoreSubViewer_ASCII; in PetscViewerCreate_ASCII()
1040 viewer->ops->view = PetscViewerView_ASCII; in PetscViewerCreate_ASCII()
1041 viewer->ops->read = PetscViewerASCIIRead; in PetscViewerCreate_ASCII()
1054 …PetscCall(PetscObjectComposeFunction((PetscObject)viewer, "PetscViewerFileSetName_C", PetscViewerF… in PetscViewerCreate_ASCII()
1055 …PetscCall(PetscObjectComposeFunction((PetscObject)viewer, "PetscViewerFileGetName_C", PetscViewerF… in PetscViewerCreate_ASCII()
1056 …PetscCall(PetscObjectComposeFunction((PetscObject)viewer, "PetscViewerFileGetMode_C", PetscViewerF… in PetscViewerCreate_ASCII()
1057 …PetscCall(PetscObjectComposeFunction((PetscObject)viewer, "PetscViewerFileSetMode_C", PetscViewerF… in PetscViewerCreate_ASCII()
1104 PetscErrorCode PetscViewerASCIISynchronizedPrintf(PetscViewer viewer, const char format[], ...) in PetscViewerASCIISynchronizedPrintf() argument
1106 PetscViewer_ASCII *vascii = (PetscViewer_ASCII *)viewer->data; in PetscViewerASCIISynchronizedPrintf()
1113 PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1); in PetscViewerASCIISynchronizedPrintf()
1115 PetscCall(PetscObjectTypeCompare((PetscObject)viewer, PETSCVIEWERASCII, &isascii)); in PetscViewerASCIISynchronizedPrintf()
1119 PetscCall(PetscObjectGetComm((PetscObject)viewer, &comm)); in PetscViewerASCIISynchronizedPrintf()
1214 PetscErrorCode PetscViewerASCIIRead(PetscViewer viewer, void *data, PetscInt num, PetscInt *count, … in PetscViewerASCIIRead() argument
1216 PetscViewer_ASCII *vascii = (PetscViewer_ASCII *)viewer->data; in PetscViewerASCIIRead()
1223 PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1); in PetscViewerASCIIRead()
1224 PetscCallMPI(MPI_Comm_rank(PetscObjectComm((PetscObject)viewer), &rank)); in PetscViewerASCIIRead()