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