xref: /petsc/src/sys/classes/viewer/interface/viewa.c (revision 3a062f41c0bc3be19c159685adbcbfeb7e235790)
15c6c1daeSBarry Smith 
25c6c1daeSBarry 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",
235c6c1daeSBarry Smith   "DRAW_BASIC",
245c6c1daeSBarry Smith   "DRAW_LG",
255c6c1daeSBarry Smith   "DRAW_CONTOUR",
265c6c1daeSBarry Smith   "DRAW_PORTS",
275c6c1daeSBarry Smith   "VTK_VTS",
28*3a062f41SBarry Smith   "VTK_VTR",
292e61fd76SBarry Smith   "VTK_VTU",
30a261c58fSBarry Smith   "BINARY_MATLAB",
315c6c1daeSBarry Smith   "NATIVE",
322e61fd76SBarry Smith   "NOFORMAT",
332e61fd76SBarry Smith   "PetscViewerFormat",
342e61fd76SBarry Smith   "PETSC_VIEWER_",
352e61fd76SBarry Smith   0
365c6c1daeSBarry Smith };
375c6c1daeSBarry Smith 
385c6c1daeSBarry Smith #undef __FUNCT__
395c6c1daeSBarry Smith #define __FUNCT__ "PetscViewerSetFormat"
405c6c1daeSBarry Smith /*@C
415c6c1daeSBarry Smith    PetscViewerSetFormat - Sets the format for PetscViewers.
425c6c1daeSBarry Smith 
435c6c1daeSBarry Smith    Logically Collective on PetscViewer
445c6c1daeSBarry Smith 
455c6c1daeSBarry Smith    Input Parameters:
465c6c1daeSBarry Smith +  viewer - the PetscViewer
475c6c1daeSBarry Smith -  format - the format
485c6c1daeSBarry Smith 
495c6c1daeSBarry Smith    Level: intermediate
505c6c1daeSBarry Smith 
515c6c1daeSBarry Smith    Notes:
525c6c1daeSBarry Smith    Available formats include
535c6c1daeSBarry Smith +    PETSC_VIEWER_DEFAULT - default format
545c6c1daeSBarry Smith .    PETSC_VIEWER_ASCII_MATLAB - MATLAB format
555c6c1daeSBarry Smith .    PETSC_VIEWER_ASCII_DENSE - print matrix as dense
565c6c1daeSBarry Smith .    PETSC_VIEWER_ASCII_IMPL - implementation-specific format
575c6c1daeSBarry Smith       (which is in many cases the same as the default)
585c6c1daeSBarry Smith .    PETSC_VIEWER_ASCII_INFO - basic information about object
595c6c1daeSBarry Smith .    PETSC_VIEWER_ASCII_INFO_DETAIL - more detailed info
605c6c1daeSBarry Smith        about object
615c6c1daeSBarry Smith .    PETSC_VIEWER_ASCII_COMMON - identical output format for
625c6c1daeSBarry Smith        all objects of a particular type
635c6c1daeSBarry Smith .    PETSC_VIEWER_ASCII_INDEX - (for vectors) prints the vector
645c6c1daeSBarry Smith        element number next to each vector entry
655c6c1daeSBarry Smith .    PETSC_VIEWER_ASCII_SYMMODU - print parallel vectors without
665c6c1daeSBarry Smith        indicating the processor ranges
675c6c1daeSBarry Smith .    PETSC_VIEWER_ASCII_VTK - outputs the object to a VTK file
685c6c1daeSBarry Smith .    PETSC_VIEWER_NATIVE - store the object to the binary
695c6c1daeSBarry Smith        file in its native format (for example, dense
705c6c1daeSBarry Smith        matrices are stored as dense), DMDA vectors are dumped directly to the
715c6c1daeSBarry Smith        file instead of being first put in the natural ordering
725c6c1daeSBarry Smith .    PETSC_VIEWER_DRAW_BASIC - views the vector with a simple 1d plot
735c6c1daeSBarry Smith .    PETSC_VIEWER_DRAW_LG - views the vector with a line graph
745c6c1daeSBarry Smith -    PETSC_VIEWER_DRAW_CONTOUR - views the vector with a contour plot
755c6c1daeSBarry Smith 
765c6c1daeSBarry Smith    These formats are most often used for viewing matrices and vectors.
775c6c1daeSBarry Smith 
785c6c1daeSBarry Smith    If a format (for example PETSC_VIEWER_DRAW_CONTOUR) was applied to a viewer
795c6c1daeSBarry Smith   where it didn't apply (PETSC_VIEWER_STDOUT_WORLD) it cause the default behavior
805c6c1daeSBarry Smith   for that viewer to be used.
815c6c1daeSBarry Smith 
825c6c1daeSBarry Smith    Concepts: PetscViewer^setting format
835c6c1daeSBarry Smith 
845c6c1daeSBarry Smith .seealso: PetscViewerASCIIOpen(), PetscViewerBinaryOpen(), MatView(), VecView(), PetscViewerType,
855c6c1daeSBarry Smith           PetscViewerPushFormat(), PetscViewerPopFormat(), PetscViewerDrawOpen(),PetscViewerSocketOpen()
865c6c1daeSBarry Smith @*/
875c6c1daeSBarry Smith PetscErrorCode  PetscViewerSetFormat(PetscViewer viewer,PetscViewerFormat format)
885c6c1daeSBarry Smith {
895c6c1daeSBarry Smith   PetscFunctionBegin;
905c6c1daeSBarry Smith   if (!viewer) viewer = PETSC_VIEWER_STDOUT_SELF;
915c6c1daeSBarry Smith   PetscValidHeaderSpecific(viewer,PETSC_VIEWER_CLASSID,1);
925c6c1daeSBarry Smith   PetscValidLogicalCollectiveEnum(viewer,format,2);
935c6c1daeSBarry Smith   viewer->format = format;
945c6c1daeSBarry Smith   PetscFunctionReturn(0);
955c6c1daeSBarry Smith }
965c6c1daeSBarry Smith 
975c6c1daeSBarry Smith #undef __FUNCT__
985c6c1daeSBarry Smith #define __FUNCT__ "PetscViewerPushFormat"
995c6c1daeSBarry Smith /*@C
1005c6c1daeSBarry Smith    PetscViewerPushFormat - Sets the format for file PetscViewers.
1015c6c1daeSBarry Smith 
1025c6c1daeSBarry Smith    Logically Collective on PetscViewer
1035c6c1daeSBarry Smith 
1045c6c1daeSBarry Smith    Input Parameters:
1055c6c1daeSBarry Smith +  viewer - the PetscViewer
1065c6c1daeSBarry Smith -  format - the format
1075c6c1daeSBarry Smith 
1085c6c1daeSBarry Smith    Level: intermediate
1095c6c1daeSBarry Smith 
1105c6c1daeSBarry Smith    Notes:
1115c6c1daeSBarry Smith    Available formats include
1125c6c1daeSBarry Smith +    PETSC_VIEWER_DEFAULT - default format
1135c6c1daeSBarry Smith .    PETSC_VIEWER_ASCII_MATLAB - MATLAB format
1145c6c1daeSBarry Smith .    PETSC_VIEWER_ASCII_IMPL - implementation-specific format
1155c6c1daeSBarry Smith       (which is in many cases the same as the default)
1165c6c1daeSBarry Smith .    PETSC_VIEWER_ASCII_INFO - basic information about object
1175c6c1daeSBarry Smith .    PETSC_VIEWER_ASCII_INFO_DETAIL - more detailed info
1185c6c1daeSBarry Smith        about object
1195c6c1daeSBarry Smith .    PETSC_VIEWER_ASCII_COMMON - identical output format for
1205c6c1daeSBarry Smith        all objects of a particular type
1215c6c1daeSBarry Smith .    PETSC_VIEWER_ASCII_INDEX - (for vectors) prints the vector
1225c6c1daeSBarry Smith        element number next to each vector entry
1235c6c1daeSBarry Smith .    PETSC_VIEWER_NATIVE - store the object to the binary
1245c6c1daeSBarry Smith        file in its native format (for example, dense
1255c6c1daeSBarry Smith        matrices are stored as dense), for DMDA vectors displays vectors in DMDA ordering, not natural
1265c6c1daeSBarry Smith .    PETSC_VIEWER_DRAW_BASIC - views the vector with a simple 1d plot
1275c6c1daeSBarry Smith .    PETSC_VIEWER_DRAW_LG - views the vector with a line graph
1285c6c1daeSBarry Smith -    PETSC_VIEWER_DRAW_CONTOUR - views the vector with a contour plot
1295c6c1daeSBarry Smith 
1305c6c1daeSBarry Smith    These formats are most often used for viewing matrices and vectors.
1315c6c1daeSBarry Smith    Currently, the object name is used only in the MATLAB format.
1325c6c1daeSBarry Smith 
1335c6c1daeSBarry Smith    Concepts: PetscViewer^setting format
1345c6c1daeSBarry Smith 
1355c6c1daeSBarry Smith .seealso: PetscViewerASCIIOpen(), PetscViewerBinaryOpen(), MatView(), VecView(),
1365c6c1daeSBarry Smith           PetscViewerSetFormat(), PetscViewerPopFormat()
1375c6c1daeSBarry Smith @*/
1385c6c1daeSBarry Smith PetscErrorCode  PetscViewerPushFormat(PetscViewer viewer,PetscViewerFormat format)
1395c6c1daeSBarry Smith {
1405c6c1daeSBarry Smith   PetscFunctionBegin;
1415c6c1daeSBarry Smith   PetscValidHeaderSpecific(viewer,PETSC_VIEWER_CLASSID,1);
1425c6c1daeSBarry Smith   PetscValidLogicalCollectiveEnum(viewer,format,2);
1435c6c1daeSBarry Smith   if (viewer->iformat > 9) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_OUTOFRANGE,"Too many pushes");
1445c6c1daeSBarry Smith 
1455c6c1daeSBarry Smith   viewer->formats[viewer->iformat++] = viewer->format;
1465c6c1daeSBarry Smith   viewer->format                     = format;
1475c6c1daeSBarry Smith   PetscFunctionReturn(0);
1485c6c1daeSBarry Smith }
1495c6c1daeSBarry Smith 
1505c6c1daeSBarry Smith #undef __FUNCT__
1515c6c1daeSBarry Smith #define __FUNCT__ "PetscViewerPopFormat"
1525c6c1daeSBarry Smith /*@C
1535c6c1daeSBarry Smith    PetscViewerPopFormat - Resets the format for file PetscViewers.
1545c6c1daeSBarry Smith 
1555c6c1daeSBarry Smith    Logically Collective on PetscViewer
1565c6c1daeSBarry Smith 
1575c6c1daeSBarry Smith    Input Parameters:
1585c6c1daeSBarry Smith .  viewer - the PetscViewer
1595c6c1daeSBarry Smith 
1605c6c1daeSBarry Smith    Level: intermediate
1615c6c1daeSBarry Smith 
1625c6c1daeSBarry Smith    Concepts: PetscViewer^setting format
1635c6c1daeSBarry Smith 
1645c6c1daeSBarry Smith .seealso: PetscViewerASCIIOpen(), PetscViewerBinaryOpen(), MatView(), VecView(),
1655c6c1daeSBarry Smith           PetscViewerSetFormat(), PetscViewerPushFormat()
1665c6c1daeSBarry Smith @*/
1675c6c1daeSBarry Smith PetscErrorCode  PetscViewerPopFormat(PetscViewer viewer)
1685c6c1daeSBarry Smith {
1695c6c1daeSBarry Smith   PetscFunctionBegin;
1705c6c1daeSBarry Smith   PetscValidHeaderSpecific(viewer,PETSC_VIEWER_CLASSID,1);
1715c6c1daeSBarry Smith   if (viewer->iformat <= 0) PetscFunctionReturn(0);
1725c6c1daeSBarry Smith 
1735c6c1daeSBarry Smith   viewer->format = viewer->formats[--viewer->iformat];
1745c6c1daeSBarry Smith   PetscFunctionReturn(0);
1755c6c1daeSBarry Smith }
1765c6c1daeSBarry Smith 
1775c6c1daeSBarry Smith #undef __FUNCT__
1785c6c1daeSBarry Smith #define __FUNCT__ "PetscViewerGetFormat"
1795c6c1daeSBarry Smith PetscErrorCode  PetscViewerGetFormat(PetscViewer viewer,PetscViewerFormat *format)
1805c6c1daeSBarry Smith {
1815c6c1daeSBarry Smith   PetscFunctionBegin;
1825c6c1daeSBarry Smith   *format =  viewer->format;
1835c6c1daeSBarry Smith   PetscFunctionReturn(0);
1845c6c1daeSBarry Smith }
1855c6c1daeSBarry Smith 
1865c6c1daeSBarry Smith 
1875c6c1daeSBarry Smith 
188