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

  6:       type tPetscViewer
  7:         PetscFortranAddr:: v
  8:       end type tPetscViewer

 10:       PetscViewer, parameter :: PETSC_NULL_VIEWER                          &
 11:      &            = tPetscViewer(-1)
 12: !
 13: !     The numbers used below should match those in
 14: !     petsc/private/fortranimpl.h
 15: !
 16:       PetscViewer, parameter :: PETSC_VIEWER_STDOUT_SELF =                &
 17:      &           tPetscViewer(9)
 18:       PetscViewer, parameter :: PETSC_VIEWER_DRAW_WORLD   =                &
 19:      &           tPetscViewer(4)
 20:       PetscViewer, parameter :: PETSC_VIEWER_DRAW_SELF    =                &
 21:      &           tPetscViewer(5)
 22:       PetscViewer, parameter :: PETSC_VIEWER_SOCKET_WORLD =                &
 23:      &           tPetscViewer(6)
 24:       PetscViewer, parameter :: PETSC_VIEWER_SOCKET_SELF  =                &
 25:      &           tPetscViewer(7)
 26:       PetscViewer, parameter :: PETSC_VIEWER_STDOUT_WORLD =                &
 27:      &           tPetscViewer(8)
 28:       PetscViewer, parameter :: PETSC_VIEWER_STDERR_WORLD =                &
 29:      &           tPetscViewer(10)
 30:       PetscViewer, parameter :: PETSC_VIEWER_STDERR_SELF  =                &
 31:      &           tPetscViewer(11)
 32:       PetscViewer, parameter :: PETSC_VIEWER_BINARY_WORLD =                &
 33:      &           tPetscViewer(12)
 34:       PetscViewer, parameter :: PETSC_VIEWER_BINARY_SELF  =                &
 35:      &           tPetscViewer(13)
 36:       PetscViewer, parameter :: PETSC_VIEWER_MATLAB_WORLD =                &
 37:      &           tPetscViewer(14)
 38:       PetscViewer, parameter :: PETSC_VIEWER_MATLAB_SELF  =                &
 39:      &           tPetscViewer(15)

 41:       PetscViewer PETSC_VIEWER_STDOUT_
 42:       PetscViewer PETSC_VIEWER_DRAW_
 43:       external PETSC_VIEWER_STDOUT_
 44:       external PETSC_VIEWER_DRAW_
 45:       external PetscViewerAndFormatDestroy
 46: !
 47: !  Flags for binary I/O
 48: !
 49:       PetscEnum FILE_MODE_READ
 50:       PetscEnum FILE_MODE_WRITE
 51:       PetscEnum FILE_MODE_APPEND
 52:       PetscEnum FILE_MODE_UPDATE
 53:       PetscEnum FILE_MODE_APPEND_UPDATE

 55:       parameter (FILE_MODE_READ = 0)
 56:       parameter (FILE_MODE_WRITE = 1)
 57:       parameter (FILE_MODE_APPEND = 2)
 58:       parameter (FILE_MODE_UPDATE = 3)
 59:       parameter (FILE_MODE_APPEND_UPDATE = 4)

 61: !
 62: !  PetscViewer formats
 63: !
 64:       PetscEnum PETSC_VIEWER_DEFAULT
 65:       PetscEnum PETSC_VIEWER_ASCII_MATLAB
 66:       PetscEnum PETSC_VIEWER_ASCII_MATHEMATICA
 67:       PetscEnum PETSC_VIEWER_ASCII_IMPL
 68:       PetscEnum PETSC_VIEWER_ASCII_INFO
 69:       PetscEnum PETSC_VIEWER_ASCII_INFO_DETAIL
 70:       PetscEnum PETSC_VIEWER_ASCII_COMMON
 71:       PetscEnum PETSC_VIEWER_ASCII_SYMMODU
 72:       PetscEnum PETSC_VIEWER_ASCII_INDEX
 73:       PetscEnum PETSC_VIEWER_ASCII_DENSE
 74:       PetscEnum PETSC_VIEWER_ASCII_MATRIXMARKET
 75:       PetscEnum PETSC_VIEWER_ASCII_VTK
 76:       PetscEnum PETSC_VIEWER_ASCII_VTK_CELL
 77:       PetscEnum PETSC_VIEWER_ASCII_VTK_COORDS
 78:       PetscEnum PETSC_VIEWER_ASCII_PCICE
 79:       PetscEnum PETSC_VIEWER_ASCII_PYTHON
 80:       PetscEnum PETSC_VIEWER_ASCII_FACTOR_INFO
 81:       PetscEnum PETSC_VIEWER_ASCII_LATEX
 82:       PetscEnum PETSC_VIEWER_ASCII_XML
 83:       PetscEnum PETSC_VIEWER_ASCII_GLVIS
 84:       PetscEnum PETSC_VIEWER_DRAW_BASIC
 85:       PetscEnum PETSC_VIEWER_DRAW_LG
 86:       PetscEnum PETSC_VIEWER_DRAW_CONTOUR
 87:       PetscEnum PETSC_VIEWER_DRAW_PORTS
 88:       PetscEnum PETSC_VIEWER_VTK_VTS
 89:       PetscEnum PETSC_VIEWER_VTK_VTR
 90:       PetscEnum PETSC_VIEWER_VTK_VTU
 91:       PetscEnum PETSC_VIEWER_BINARY_MATLAB
 92:       PetscEnum PETSC_VIEWER_NATIVE
 93:       PetscEnum PETSC_VIEWER_HDF5_VIZ
 94:       PetscEnum PETSC_VIEWER_NOFORMAT

 96:       parameter (PETSC_VIEWER_DEFAULT = 0)
 97:       parameter (PETSC_VIEWER_ASCII_MATLAB = 1)
 98:       parameter (PETSC_VIEWER_ASCII_MATHEMATICA = 2)
 99:       parameter (PETSC_VIEWER_ASCII_IMPL = 3)
100:       parameter (PETSC_VIEWER_ASCII_INFO = 4)
101:       parameter (PETSC_VIEWER_ASCII_INFO_DETAIL = 5)
102:       parameter (PETSC_VIEWER_ASCII_COMMON = 6)
103:       parameter (PETSC_VIEWER_ASCII_SYMMODU = 7)
104:       parameter (PETSC_VIEWER_ASCII_INDEX = 8)
105:       parameter (PETSC_VIEWER_ASCII_DENSE = 9)
106:       parameter (PETSC_VIEWER_ASCII_MATRIXMARKET = 10)
107:       parameter (PETSC_VIEWER_ASCII_VTK = 11)
108:       parameter (PETSC_VIEWER_ASCII_VTK_CELL = 12)
109:       parameter (PETSC_VIEWER_ASCII_VTK_COORDS = 13)
110:       parameter (PETSC_VIEWER_ASCII_PCICE = 14)
111:       parameter (PETSC_VIEWER_ASCII_PYTHON = 15)
112:       parameter (PETSC_VIEWER_ASCII_FACTOR_INFO = 16)
113:       parameter (PETSC_VIEWER_ASCII_LATEX = 17)
114:       parameter (PETSC_VIEWER_ASCII_XML = 18)
115:       parameter (PETSC_VIEWER_ASCII_GLVIS = 19)
116:       parameter (PETSC_VIEWER_DRAW_BASIC = 20)
117:       parameter (PETSC_VIEWER_DRAW_LG = 21)
118:       parameter (PETSC_VIEWER_DRAW_CONTOUR = 22)
119:       parameter (PETSC_VIEWER_DRAW_PORTS = 23)
120:       parameter (PETSC_VIEWER_VTK_VTS = 24)
121:       parameter (PETSC_VIEWER_VTK_VTR = 25)
122:       parameter (PETSC_VIEWER_VTK_VTU = 26)
123:       parameter (PETSC_VIEWER_BINARY_MATLAB = 27)
124:       parameter (PETSC_VIEWER_NATIVE = 28)
125:       parameter (PETSC_VIEWER_HDF5_VIZ = 29)
126:       parameter (PETSC_VIEWER_NOFORMAT = 30)
127: !
128: !  End of Fortran include file for the PetscViewer package in PETSc