1: /*$Id: view.c,v 1.44 2001/04/10 19:34:10 bsmith Exp $*/
3: #include "src/sys/src/viewer/viewerimpl.h" /*I "petsc.h" I*/
5: int PETSC_VIEWER_COOKIE = 0;
9: /*@C
10: PetscViewerDestroy - Destroys a PetscViewer.
12: Collective on PetscViewer
14: Input Parameters:
15: . viewer - the PetscViewer to be destroyed.
17: Level: beginner
19: .seealso: PetscViewerSocketOpen(), PetscViewerASCIIOpen(), PetscViewerCreate(), PetscViewerDrawOpen()
21: @*/
22: int PetscViewerDestroy(PetscViewer viewer)
23: {
24: int ierr;
28: if (--viewer->refct > 0) return(0);
30: /* if memory was published with AMS then destroy it */
31: PetscObjectDepublish(viewer);
33: if (viewer->ops->destroy) {
34: (*viewer->ops->destroy)(viewer);
35: }
36: PetscLogObjectDestroy((PetscObject)viewer);
37: PetscHeaderDestroy((PetscObject)viewer);
38: return(0);
39: }
43: /*@C
44: PetscViewerGetType - Returns the type of a PetscViewer.
46: Not Collective
48: Input Parameter:
49: . viewer - the PetscViewer
51: Output Parameter:
52: . type - PetscViewer type (see below)
54: Available Types Include:
55: . PETSC_VIEWER_SOCKET - Socket PetscViewer
56: . PETSC_VIEWER_ASCII - ASCII PetscViewer
57: . PETSC_VIEWER_BINARY - binary file PetscViewer
58: . PETSC_VIEWER_STRING - string PetscViewer
59: . PETSC_VIEWER_DRAW - drawing PetscViewer
61: Level: intermediate
63: Note:
64: See include/petscviewer.h for a complete list of PetscViewers.
66: PetscViewerType is actually a string
68: .seealso: PetscViewerCreate(), PetscViewerSetType()
70: @*/
71: int PetscViewerGetType(PetscViewer viewer,PetscViewerType *type)
72: {
75: *type = (PetscViewerType) viewer->type_name;
76: return(0);
77: }