xref: /petsc/src/sys/classes/viewer/interface/viewa.c (revision cbb4c9996f029c8bb2e19153d781a22d5ed46cf9)
15c6c1daeSBarry Smith 
2af0996ceSBarry Smith #include <petsc/private/viewerimpl.h>  /*I "petscsys.h" I*/
35c6c1daeSBarry Smith 
45c6c1daeSBarry Smith const char *const PetscViewerFormats[] = {
55c6c1daeSBarry Smith   "DEFAULT",
65c6c1daeSBarry Smith   "ASCII_MATLAB",
75c6c1daeSBarry Smith   "ASCII_MATHEMATICA",
85c6c1daeSBarry Smith   "ASCII_IMPL",
95c6c1daeSBarry Smith   "ASCII_INFO",
105c6c1daeSBarry Smith   "ASCII_INFO_DETAIL",
115c6c1daeSBarry Smith   "ASCII_COMMON",
125c6c1daeSBarry Smith   "ASCII_SYMMODU",
135c6c1daeSBarry Smith   "ASCII_INDEX",
145c6c1daeSBarry Smith   "ASCII_DENSE",
155c6c1daeSBarry Smith   "ASCII_MATRIXMARKET",
165c6c1daeSBarry Smith   "ASCII_VTK",
175c6c1daeSBarry Smith   "ASCII_VTK_CELL",
185c6c1daeSBarry Smith   "ASCII_VTK_COORDS",
195c6c1daeSBarry Smith   "ASCII_PCICE",
205c6c1daeSBarry Smith   "ASCII_PYTHON",
215c6c1daeSBarry Smith   "ASCII_FACTOR_INFO",
222e61fd76SBarry Smith   "ASCII_LATEX",
23bb1d7374SBarry Smith   "ASCII_XML",
248135c375SStefano Zampini   "ASCII_GLVIS",
255c6c1daeSBarry Smith   "DRAW_BASIC",
265c6c1daeSBarry Smith   "DRAW_LG",
275c6c1daeSBarry Smith   "DRAW_CONTOUR",
285c6c1daeSBarry Smith   "DRAW_PORTS",
295c6c1daeSBarry Smith   "VTK_VTS",
303a062f41SBarry Smith   "VTK_VTR",
312e61fd76SBarry Smith   "VTK_VTU",
32a261c58fSBarry Smith   "BINARY_MATLAB",
335c6c1daeSBarry Smith   "NATIVE",
348aa4816bSVaclav Hapla   "HDF5_PETSC",
35898f909eSMatthew G. Knepley   "HDF5_VIZ",
368aa4816bSVaclav Hapla   "HDF5_XDMF",
37*cbb4c999SVaclav Hapla   "HDF5_MAT",
382e61fd76SBarry Smith   "NOFORMAT",
39ef5fdb51SBarry Smith   "LOAD_BALANCE",
402e61fd76SBarry Smith   "PetscViewerFormat",
412e61fd76SBarry Smith   "PETSC_VIEWER_",
422e61fd76SBarry Smith   0
435c6c1daeSBarry Smith };
445c6c1daeSBarry Smith 
455c6c1daeSBarry Smith /*@C
465c6c1daeSBarry Smith    PetscViewerSetFormat - Sets the format for PetscViewers.
475c6c1daeSBarry Smith 
485c6c1daeSBarry Smith    Logically Collective on PetscViewer
495c6c1daeSBarry Smith 
506a9046bcSBarry Smith    This routine is deprecated, you should use PetscViewerPushFormat()/PetscViewerPopFormat()
516a9046bcSBarry Smith 
525c6c1daeSBarry Smith    Input Parameters:
535c6c1daeSBarry Smith +  viewer - the PetscViewer
545c6c1daeSBarry Smith -  format - the format
555c6c1daeSBarry Smith 
565c6c1daeSBarry Smith    Level: intermediate
575c6c1daeSBarry Smith 
585c6c1daeSBarry Smith    Notes:
595c6c1daeSBarry Smith    Available formats include
605c6c1daeSBarry Smith +    PETSC_VIEWER_DEFAULT - default format
615c6c1daeSBarry Smith .    PETSC_VIEWER_ASCII_MATLAB - MATLAB format
625c6c1daeSBarry Smith .    PETSC_VIEWER_ASCII_DENSE - print matrix as dense
635c6c1daeSBarry Smith .    PETSC_VIEWER_ASCII_IMPL - implementation-specific format
645c6c1daeSBarry Smith       (which is in many cases the same as the default)
655c6c1daeSBarry Smith .    PETSC_VIEWER_ASCII_INFO - basic information about object
665c6c1daeSBarry Smith .    PETSC_VIEWER_ASCII_INFO_DETAIL - more detailed info
675c6c1daeSBarry Smith        about object
685c6c1daeSBarry Smith .    PETSC_VIEWER_ASCII_COMMON - identical output format for
695c6c1daeSBarry Smith        all objects of a particular type
705c6c1daeSBarry Smith .    PETSC_VIEWER_ASCII_INDEX - (for vectors) prints the vector
715c6c1daeSBarry Smith        element number next to each vector entry
725c6c1daeSBarry Smith .    PETSC_VIEWER_ASCII_SYMMODU - print parallel vectors without
735c6c1daeSBarry Smith        indicating the processor ranges
745c6c1daeSBarry Smith .    PETSC_VIEWER_ASCII_VTK - outputs the object to a VTK file
755c6c1daeSBarry Smith .    PETSC_VIEWER_NATIVE - store the object to the binary
765c6c1daeSBarry Smith        file in its native format (for example, dense
775c6c1daeSBarry Smith        matrices are stored as dense), DMDA vectors are dumped directly to the
785c6c1daeSBarry Smith        file instead of being first put in the natural ordering
795c6c1daeSBarry Smith .    PETSC_VIEWER_DRAW_BASIC - views the vector with a simple 1d plot
805c6c1daeSBarry Smith .    PETSC_VIEWER_DRAW_LG - views the vector with a line graph
815c6c1daeSBarry Smith -    PETSC_VIEWER_DRAW_CONTOUR - views the vector with a contour plot
825c6c1daeSBarry Smith 
835c6c1daeSBarry Smith    These formats are most often used for viewing matrices and vectors.
845c6c1daeSBarry Smith 
855c6c1daeSBarry Smith    If a format (for example PETSC_VIEWER_DRAW_CONTOUR) was applied to a viewer
865c6c1daeSBarry Smith   where it didn't apply (PETSC_VIEWER_STDOUT_WORLD) it cause the default behavior
875c6c1daeSBarry Smith   for that viewer to be used.
885c6c1daeSBarry Smith 
89f55353a2SBarry Smith     Note: This supports passing in a NULL for the viewer for use in the debugger, but it should never be called in the code with a NULL viewer
90f55353a2SBarry Smith 
915c6c1daeSBarry Smith    Concepts: PetscViewer^setting format
925c6c1daeSBarry Smith 
935c6c1daeSBarry Smith .seealso: PetscViewerASCIIOpen(), PetscViewerBinaryOpen(), MatView(), VecView(), PetscViewerType,
945c6c1daeSBarry Smith           PetscViewerPushFormat(), PetscViewerPopFormat(), PetscViewerDrawOpen(),PetscViewerSocketOpen()
955c6c1daeSBarry Smith @*/
965c6c1daeSBarry Smith PetscErrorCode  PetscViewerSetFormat(PetscViewer viewer,PetscViewerFormat format)
975c6c1daeSBarry Smith {
985c6c1daeSBarry Smith   PetscFunctionBegin;
995c6c1daeSBarry Smith   if (!viewer) viewer = PETSC_VIEWER_STDOUT_SELF;
1005c6c1daeSBarry Smith   PetscValidHeaderSpecific(viewer,PETSC_VIEWER_CLASSID,1);
1015c6c1daeSBarry Smith   PetscValidLogicalCollectiveEnum(viewer,format,2);
1025c6c1daeSBarry Smith   viewer->format = format;
1035c6c1daeSBarry Smith   PetscFunctionReturn(0);
1045c6c1daeSBarry Smith }
1055c6c1daeSBarry Smith 
1065c6c1daeSBarry Smith /*@C
1075c6c1daeSBarry Smith    PetscViewerPushFormat - Sets the format for file PetscViewers.
1085c6c1daeSBarry Smith 
1095c6c1daeSBarry Smith    Logically Collective on PetscViewer
1105c6c1daeSBarry Smith 
1115c6c1daeSBarry Smith    Input Parameters:
1125c6c1daeSBarry Smith +  viewer - the PetscViewer
1135c6c1daeSBarry Smith -  format - the format
1145c6c1daeSBarry Smith 
1155c6c1daeSBarry Smith    Level: intermediate
1165c6c1daeSBarry Smith 
1175c6c1daeSBarry Smith    Notes:
1185c6c1daeSBarry Smith    Available formats include
1195c6c1daeSBarry Smith +    PETSC_VIEWER_DEFAULT - default format
1205c6c1daeSBarry Smith .    PETSC_VIEWER_ASCII_MATLAB - MATLAB format
1215c6c1daeSBarry Smith .    PETSC_VIEWER_ASCII_IMPL - implementation-specific format
1225c6c1daeSBarry Smith       (which is in many cases the same as the default)
1235c6c1daeSBarry Smith .    PETSC_VIEWER_ASCII_INFO - basic information about object
1245c6c1daeSBarry Smith .    PETSC_VIEWER_ASCII_INFO_DETAIL - more detailed info
1255c6c1daeSBarry Smith        about object
1265c6c1daeSBarry Smith .    PETSC_VIEWER_ASCII_COMMON - identical output format for
1275c6c1daeSBarry Smith        all objects of a particular type
1285c6c1daeSBarry Smith .    PETSC_VIEWER_ASCII_INDEX - (for vectors) prints the vector
1295c6c1daeSBarry Smith        element number next to each vector entry
1305c6c1daeSBarry Smith .    PETSC_VIEWER_NATIVE - store the object to the binary
1315c6c1daeSBarry Smith        file in its native format (for example, dense
1325c6c1daeSBarry Smith        matrices are stored as dense), for DMDA vectors displays vectors in DMDA ordering, not natural
1335c6c1daeSBarry Smith .    PETSC_VIEWER_DRAW_BASIC - views the vector with a simple 1d plot
1345c6c1daeSBarry Smith .    PETSC_VIEWER_DRAW_LG - views the vector with a line graph
135fe866b2dSBarry Smith .    PETSC_VIEWER_DRAW_CONTOUR - views the vector with a contour plot
136fe866b2dSBarry Smith -    PETSC_VIEWER_ASCII_XML - saves the data in XML format, needed for PetscLogView() when viewing with PetscLogNestedBegin()
1375c6c1daeSBarry Smith 
1385c6c1daeSBarry Smith    These formats are most often used for viewing matrices and vectors.
1395c6c1daeSBarry Smith    Currently, the object name is used only in the MATLAB format.
1405c6c1daeSBarry Smith 
1415c6c1daeSBarry Smith    Concepts: PetscViewer^setting format
1425c6c1daeSBarry Smith 
1435c6c1daeSBarry Smith .seealso: PetscViewerASCIIOpen(), PetscViewerBinaryOpen(), MatView(), VecView(),
1445c6c1daeSBarry Smith           PetscViewerSetFormat(), PetscViewerPopFormat()
1455c6c1daeSBarry Smith @*/
1465c6c1daeSBarry Smith PetscErrorCode  PetscViewerPushFormat(PetscViewer viewer,PetscViewerFormat format)
1475c6c1daeSBarry Smith {
1485c6c1daeSBarry Smith   PetscFunctionBegin;
1495c6c1daeSBarry Smith   PetscValidHeaderSpecific(viewer,PETSC_VIEWER_CLASSID,1);
1505c6c1daeSBarry Smith   PetscValidLogicalCollectiveEnum(viewer,format,2);
151a2628df9SBarry Smith   if (viewer->iformat > PETSCVIEWERFORMATPUSHESMAX-1) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_OUTOFRANGE,"Too many PetscViewerPushFormat(), perhaps you forgot PetscViewerPopFormat()?");
1525c6c1daeSBarry Smith 
1535c6c1daeSBarry Smith   viewer->formats[viewer->iformat++] = viewer->format;
1545c6c1daeSBarry Smith   viewer->format                     = format;
1555c6c1daeSBarry Smith   PetscFunctionReturn(0);
1565c6c1daeSBarry Smith }
1575c6c1daeSBarry Smith 
1585c6c1daeSBarry Smith /*@C
1595c6c1daeSBarry Smith    PetscViewerPopFormat - Resets the format for file PetscViewers.
1605c6c1daeSBarry Smith 
1615c6c1daeSBarry Smith    Logically Collective on PetscViewer
1625c6c1daeSBarry Smith 
1635c6c1daeSBarry Smith    Input Parameters:
1645c6c1daeSBarry Smith .  viewer - the PetscViewer
1655c6c1daeSBarry Smith 
1665c6c1daeSBarry Smith    Level: intermediate
1675c6c1daeSBarry Smith 
1685c6c1daeSBarry Smith    Concepts: PetscViewer^setting format
1695c6c1daeSBarry Smith 
1705c6c1daeSBarry Smith .seealso: PetscViewerASCIIOpen(), PetscViewerBinaryOpen(), MatView(), VecView(),
1715c6c1daeSBarry Smith           PetscViewerSetFormat(), PetscViewerPushFormat()
1725c6c1daeSBarry Smith @*/
1735c6c1daeSBarry Smith PetscErrorCode  PetscViewerPopFormat(PetscViewer viewer)
1745c6c1daeSBarry Smith {
1755c6c1daeSBarry Smith   PetscFunctionBegin;
1765c6c1daeSBarry Smith   PetscValidHeaderSpecific(viewer,PETSC_VIEWER_CLASSID,1);
1775c6c1daeSBarry Smith   if (viewer->iformat <= 0) PetscFunctionReturn(0);
1785c6c1daeSBarry Smith 
1795c6c1daeSBarry Smith   viewer->format = viewer->formats[--viewer->iformat];
1805c6c1daeSBarry Smith   PetscFunctionReturn(0);
1815c6c1daeSBarry Smith }
1825c6c1daeSBarry Smith 
1835c6c1daeSBarry Smith PetscErrorCode  PetscViewerGetFormat(PetscViewer viewer,PetscViewerFormat *format)
1845c6c1daeSBarry Smith {
1855c6c1daeSBarry Smith   PetscFunctionBegin;
1865c6c1daeSBarry Smith   *format =  viewer->format;
1875c6c1daeSBarry Smith   PetscFunctionReturn(0);
1885c6c1daeSBarry Smith }
1895c6c1daeSBarry Smith 
1905c6c1daeSBarry Smith 
1915c6c1daeSBarry Smith 
192