1: !
  2: !  $Id: petscviewer.h,v 1.31 2001/04/10 22:37:56 balay Exp $;
  3: !
  4: !  Include file for Fortran use of the PetscViewer package in PETSc
  5: !
  6: #if !defined (__VIEWER_H)

  9: #define PetscViewer PetscFortranAddr
 10: #define PetscViewers PetscFortranAddr
 11: #define PetscViewerBinaryType integer
 12: #define PetscViewerType character*(80)
 13: #define PetscViewerFormat integer

 15: #define PETSC_VIEWER_SOCKET 'socket'
 16: #define PETSC_VIEWER_ASCII 'ascii'
 17: #define PETSC_VIEWER_BINARY 'binary'
 18: #define PETSC_VIEWER_STRING 'string'
 19: #define PETSC_VIEWER_DRAW 'draw'
 20: #define PETSC_VIEWER_AMS 'ams'

 22: #endif

 24: #if !defined (PETSC_AVOID_DECLARATIONS)

 26: !
 27: !  Flags for binary I/O
 28: !
 29:       integer  PETSC_BINARY_RDONLY,PETSC_BINARY_WRONLY
 30:       integer  PETSC_BINARY_CREATE

 32:       parameter (PETSC_BINARY_RDONLY = 0,PETSC_BINARY_WRONLY = 1)
 33:       parameter (PETSC_BINARY_CREATE = 2)
 34: !
 35: !  PetscViewer formats
 36: !
 37:       integer  PETSC_VIEWER_ASCII_DEFAULT
 38:       integer  PETSC_VIEWER_ASCII_MATLAB
 39:       integer  PETSC_VIEWER_ASCII_IMPL
 40:       integer  PETSC_VIEWER_ASCII_INFO
 41:       integer  PETSC_VIEWER_ASCII_INFO_DETAIL
 42:       integer  PETSC_VIEWER_ASCII_COMMON
 43:       integer  PETSC_VIEWER_ASCII_SYMMODU
 44:       integer  PETSC_VIEWER_ASCII_INDEX
 45:       integer  PETSC_VIEWER_ASCII_DENSE

 47:       parameter (PETSC_VIEWER_ASCII_DEFAULT = 0)
 48:       parameter (PETSC_VIEWER_ASCII_MATLAB = 1)
 49:       parameter (PETSC_VIEWER_ASCII_IMPL = 2)
 50:       parameter (PETSC_VIEWER_ASCII_INFO = 3)
 51:       parameter (PETSC_VIEWER_ASCII_INFO_DETAIL = 4)
 52:       parameter (PETSC_VIEWER_ASCII_COMMON = 5)
 53:       parameter (PETSC_VIEWER_ASCII_SYMMODU = 6)
 54:       parameter (PETSC_VIEWER_ASCII_INDEX = 7)
 55:       parameter (PETSC_VIEWER_ASCII_DENSE = 8)

 57:       integer  PETSC_VIEWER_BINARY_DEFAULT
 58:       integer  PETSC_VIEWER_BINARY_NATIVE

 60:       parameter (PETSC_VIEWER_BINARY_DEFAULT = 9)
 61:       parameter (PETSC_VIEWER_BINARY_NATIVE = 10)

 63:       integer PETSC_VIEWER_DRAW_BASIC
 64:       integer PETSC_VIEWER_DRAW_LG
 65:       integer PETSC_VIEWER_DRAW_CONTOUR
 66:       integer PETSC_VIEWER_DRAW_PORTS

 68:       parameter (PETSC_VIEWER_DRAW_BASIC = 11)
 69:       parameter (PETSC_VIEWER_DRAW_LG = 12)
 70:       parameter (PETSC_VIEWER_DRAW_CONTOUR = 13)
 71:       parameter (PETSC_VIEWER_DRAW_PORTS = 14)

 73:       integer PETSC_VIEWER_NATIVE
 74:       parameter (PETSC_VIEWER_NATIVE = 15)
 75:       integer PETSC_VIEWER_NOFORMAT
 76:       parameter (PETSC_VIEWER_NOFORMAT = 16)
 77: !
 78: !  End of Fortran include file for the PetscViewer package in PETSc

 80: #endif