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;
7: /*@C
8: PetscViewerDestroy - Destroys a PetscViewer.
10: Collective on PetscViewer
12: Input Parameters:
13: . viewer - the PetscViewer to be destroyed.
15: Level: beginner
17: .seealso: PetscViewerSocketOpen(), PetscViewerASCIIOpen(), PetscViewerCreate(), PetscViewerDrawOpen()
19: @*/
20: int PetscViewerDestroy(PetscViewer viewer)
21: {
22: int ierr;
26: if (--viewer->refct > 0) return(0);
28: /* if memory was published with AMS then destroy it */
29: PetscObjectDepublish(viewer);
31: if (viewer->ops->destroy) {
32: (*viewer->ops->destroy)(viewer);
33: }
34: PetscLogObjectDestroy((PetscObject)viewer);
35: PetscHeaderDestroy((PetscObject)viewer);
36: return(0);
37: }
39: /*@C
40: PetscViewerGetType - Returns the type of a PetscViewer.
42: Not Collective
44: Input Parameter:
45: . viewer - the PetscViewer
47: Output Parameter:
48: . type - PetscViewer type (see below)
50: Available Types Include:
51: . PETSC_VIEWER_SOCKET - Socket PetscViewer
52: . PETSC_VIEWER_ASCII - ASCII PetscViewer
53: . PETSC_VIEWER_BINARY - binary file PetscViewer
54: . PETSC_VIEWER_STRING - string PetscViewer
55: . PETSC_VIEWER_DRAW - drawing PetscViewer
57: Level: intermediate
59: Note:
60: See include/petscviewer.h for a complete list of PetscViewers.
62: PetscViewerType is actually a string
64: .seealso: PetscViewerCreate(), PetscViewerSetType()
66: @*/
67: int PetscViewerGetType(PetscViewer viewer,PetscViewerType *type)
68: {
71: *type = (PetscViewerType) viewer->type_name;
72: return(0);
73: }