1: !
  2: !  Include file for Fortran use of the PetscViewer package in PETSc
  3: !
  4: #if !defined (__VIEWER_H)

  7: #define PetscViewer PetscFortranAddr
  8: #define PetscViewers PetscFortranAddr
  9: #define PetscFileMode PetscEnum
 10: #define PetscViewerType character*(80)
 11: #define PetscViewerFormat PetscEnum

 13: #define PETSC_VIEWER_SOCKET 'socket'
 14: #define PETSC_VIEWER_ASCII 'ascii'
 15: #define PETSC_VIEWER_BINARY 'binary'
 16: #define PETSC_VIEWER_STRING 'string'
 17: #define PETSC_VIEWER_DRAW 'draw'
 18: #define PETSC_VIEWER_AMS 'ams'
 19: #define PETSC_VIEWER_HDF4 'hdf4'
 20: #define PETSC_VIEWER_NETCDF 'netcdf'
 21: #define PETSC_VIEWER_MATLAB 'matlab'

 23: #endif

 25: #if !defined (PETSC_AVOID_DECLARATIONS)

 27: !
 28: !  Flags for binary I/O
 29: !
 30:       PetscEnum FILE_MODE_READ
 31:       PetscEnum FILE_MODE_WRITE
 32:       PetscEnum FILE_MODE_APPEND
 33:       PetscEnum FILE_MODE_UPDATE
 34:       PetscEnum FILE_MODE_APPEND_UPDATE

 36:       parameter (FILE_MODE_READ = 0)
 37:       parameter (FILE_MODE_WRITE = 1)
 38:       parameter (FILE_MODE_APPEND = 2)
 39:       parameter (FILE_MODE_UPDATE = 3)
 40:       parameter (FILE_MODE_APPEND_UPDATE = 4)

 42: !
 43: !  PetscViewer formats
 44: !
 45:       PetscEnum  PETSC_VIEWER_ASCII_DEFAULT
 46:       PetscEnum  PETSC_VIEWER_ASCII_MATLAB
 47:       PetscEnum  PETSC_VIEWER_ASCII_MATHEMATICA
 48:       PetscEnum  PETSC_VIEWER_ASCII_IMPL
 49:       PetscEnum  PETSC_VIEWER_ASCII_INFO
 50:       PetscEnum  PETSC_VIEWER_ASCII_INFO_DETAIL
 51:       PetscEnum  PETSC_VIEWER_ASCII_COMMON
 52:       PetscEnum  PETSC_VIEWER_ASCII_SYMMODU
 53:       PetscEnum  PETSC_VIEWER_ASCII_INDEX
 54:       PetscEnum  PETSC_VIEWER_ASCII_DENSE
 55:       PetscEnum  PETSC_VIEWER_ASCII_VTK
 56:       PetscEnum  PETSC_VIEWER_ASCII_VTK_CELL
 57:       PetscEnum  PETSC_VIEWER_ASCII_VTK_COORDS
 58:       PetscEnum  PETSC_VIEWER_ASCII_PCICE
 59:       PetscEnum  PETSC_VIEWER_ASCII_PYLITH
 60:       PetscEnum  PETSC_VIEWER_ASCII_PYLITH_LOCAL

 62:       parameter (PETSC_VIEWER_ASCII_DEFAULT = 0)
 63:       parameter (PETSC_VIEWER_ASCII_MATLAB = 1)
 64:       parameter (PETSC_VIEWER_ASCII_MATHEMATICA = 2)
 65:       parameter (PETSC_VIEWER_ASCII_IMPL = 3)
 66:       parameter (PETSC_VIEWER_ASCII_INFO = 4)
 67:       parameter (PETSC_VIEWER_ASCII_INFO_DETAIL = 5)
 68:       parameter (PETSC_VIEWER_ASCII_COMMON = 6)
 69:       parameter (PETSC_VIEWER_ASCII_SYMMODU = 7)
 70:       parameter (PETSC_VIEWER_ASCII_INDEX = 8)
 71:       parameter (PETSC_VIEWER_ASCII_DENSE = 9)
 72:       parameter (PETSC_VIEWER_ASCII_VTK = 10)
 73:       parameter (PETSC_VIEWER_ASCII_VTK_CELL = 11)
 74:       parameter (PETSC_VIEWER_ASCII_VTK_COORDS = 12)
 75:       parameter (PETSC_VIEWER_ASCII_PCICE = 13)
 76:       parameter (PETSC_VIEWER_ASCII_PYLITH = 14)
 77:       parameter (PETSC_VIEWER_ASCII_PYLITH_LOCAL = 15)

 79:       PetscEnum  PETSC_VIEWER_BINARY_DEFAULT
 80:       PetscEnum  PETSC_VIEWER_BINARY_NATIVE

 82:       parameter (PETSC_VIEWER_BINARY_DEFAULT = 16)
 83:       parameter (PETSC_VIEWER_BINARY_NATIVE = 17)

 85:       PetscEnum PETSC_VIEWER_DRAW_BASIC
 86:       PetscEnum PETSC_VIEWER_DRAW_LG
 87:       PetscEnum PETSC_VIEWER_DRAW_CONTOUR
 88:       PetscEnum PETSC_VIEWER_DRAW_PORTS

 90:       parameter (PETSC_VIEWER_DRAW_BASIC = 18)
 91:       parameter (PETSC_VIEWER_DRAW_LG = 19)
 92:       parameter (PETSC_VIEWER_DRAW_CONTOUR = 20)
 93:       parameter (PETSC_VIEWER_DRAW_PORTS = 21)

 95:       PetscEnum PETSC_VIEWER_NATIVE
 96:       parameter (PETSC_VIEWER_NATIVE = 22)
 97:       PetscEnum PETSC_VIEWER_NOFORMAT
 98:       parameter (PETSC_VIEWER_NOFORMAT = 23)
 99:       PetscEnum PETSC_VIEWER_ASCII_FACTOR_INFO
100:       parameter (PETSC_VIEWER_ASCII_FACTOR_INFO = 24)
101: !
102: !  End of Fortran include file for the PetscViewer package in PETSc

104: #endif