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: }