1: !
  2: !  Include file for Fortran use of the PetscViewer package in PETSc
  3: !
 4:  #include finclude/petscviewerdef.h

  6: #if !defined(PETSC_USE_FORTRAN_DATATYPES)
  7:       PetscViewer PETSC_VIEWER_STDOUT_
  8:       external PETSC_VIEWER_STDOUT_
  9: #endif
 10: !
 11: !  Flags for binary I/O
 12: !
 13:       PetscEnum FILE_MODE_READ
 14:       PetscEnum FILE_MODE_WRITE
 15:       PetscEnum FILE_MODE_APPEND
 16:       PetscEnum FILE_MODE_UPDATE
 17:       PetscEnum FILE_MODE_APPEND_UPDATE

 19:       parameter (FILE_MODE_READ = 0)
 20:       parameter (FILE_MODE_WRITE = 1)
 21:       parameter (FILE_MODE_APPEND = 2)
 22:       parameter (FILE_MODE_UPDATE = 3)
 23:       parameter (FILE_MODE_APPEND_UPDATE = 4)

 25: !
 26: !  PetscViewer formats
 27: !
 28:       PetscEnum PETSC_VIEWER_DEFAULT
 29:       PetscEnum PETSC_VIEWER_ASCII_MATLAB
 30:       PetscEnum PETSC_VIEWER_ASCII_MATHEMATICA
 31:       PetscEnum PETSC_VIEWER_ASCII_IMPL
 32:       PetscEnum PETSC_VIEWER_ASCII_INFO
 33:       PetscEnum PETSC_VIEWER_ASCII_INFO_DETAIL
 34:       PetscEnum PETSC_VIEWER_ASCII_COMMON
 35:       PetscEnum PETSC_VIEWER_ASCII_SYMMODU
 36:       PetscEnum PETSC_VIEWER_ASCII_INDEX
 37:       PetscEnum PETSC_VIEWER_ASCII_DENSE
 38:       PetscEnum PETSC_VIEWER_ASCII_MATRIXMARKET
 39:       PetscEnum PETSC_VIEWER_ASCII_VTK
 40:       PetscEnum PETSC_VIEWER_ASCII_VTK_CELL
 41:       PetscEnum PETSC_VIEWER_ASCII_VTK_COORDS
 42:       PetscEnum PETSC_VIEWER_ASCII_PCICE
 43:       PetscEnum PETSC_VIEWER_ASCII_PYTHON
 44:       PetscEnum PETSC_VIEWER_ASCII_FACTOR_INFO
 45:       PetscEnum PETSC_VIEWER_ASCII_LATEX
 46:       PetscEnum PETSC_VIEWER_DRAW_BASIC
 47:       PetscEnum PETSC_VIEWER_DRAW_LG
 48:       PetscEnum PETSC_VIEWER_DRAW_CONTOUR
 49:       PetscEnum PETSC_VIEWER_DRAW_PORTS
 50:       PetscEnum PETSC_VIEWER_VTK_VTS
 51:       PetscEnum PETSC_VIEWER_VTK_VTU
 52:       PetscEnum PETSC_VIEWER_BINARY_MATLAB
 53:       PetscEnum PETSC_VIEWER_NATIVE
 54:       PetscEnum PETSC_VIEWER_NOFORMAT

 56:       parameter (PETSC_VIEWER_DEFAULT = 0)
 57:       parameter (PETSC_VIEWER_ASCII_MATLAB = 1)
 58:       parameter (PETSC_VIEWER_ASCII_MATHEMATICA = 2)
 59:       parameter (PETSC_VIEWER_ASCII_IMPL = 3)
 60:       parameter (PETSC_VIEWER_ASCII_INFO = 4)
 61:       parameter (PETSC_VIEWER_ASCII_INFO_DETAIL = 5)
 62:       parameter (PETSC_VIEWER_ASCII_COMMON = 6)
 63:       parameter (PETSC_VIEWER_ASCII_SYMMODU = 7)
 64:       parameter (PETSC_VIEWER_ASCII_INDEX = 8)
 65:       parameter (PETSC_VIEWER_ASCII_DENSE = 9)
 66:       parameter (PETSC_VIEWER_ASCII_MATRIXMARKET = 10)
 67:       parameter (PETSC_VIEWER_ASCII_VTK = 11)
 68:       parameter (PETSC_VIEWER_ASCII_VTK_CELL = 12)
 69:       parameter (PETSC_VIEWER_ASCII_VTK_COORDS = 13)
 70:       parameter (PETSC_VIEWER_ASCII_PCICE = 14)
 71:       parameter (PETSC_VIEWER_ASCII_PYTHON = 15)
 72:       parameter (PETSC_VIEWER_ASCII_FACTOR_INFO = 16)
 73:       parameter (PETSC_VIEWER_ASCII_LATEX = 17)
 74:       parameter (PETSC_VIEWER_DRAW_BASIC = 18)
 75:       parameter (PETSC_VIEWER_DRAW_LG = 19)
 76:       parameter (PETSC_VIEWER_DRAW_CONTOUR = 20)
 77:       parameter (PETSC_VIEWER_DRAW_PORTS = 21)
 78:       parameter (PETSC_VIEWER_VTK_VTS = 22)
 79:       parameter (PETSC_VIEWER_VTK_VTU = 23)
 80:       parameter (PETSC_VIEWER_BINARY_MATLAB = 24)
 81:       parameter (PETSC_VIEWER_NATIVE = 25)
 82:       parameter (PETSC_VIEWER_NOFORMAT = 26)
 83: !
 84: !  End of Fortran include file for the PetscViewer package in PETSc