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 PETSC_FORTRAN_TYPE_INITIALIZE
  8:       end type tPetscViewer

 10:       PetscViewer, parameter :: PETSC_NULL_VIEWER = tPetscViewer(0)
 11: !
 12: !     The numbers used below should match those in
 13: !     petsc/private/fortranimpl.h
 14: !
 15:       PetscViewer, parameter :: PETSC_VIEWER_STDOUT_SELF  = tPetscViewer(9)
 16:       PetscViewer, parameter :: PETSC_VIEWER_DRAW_WORLD   = tPetscViewer(4)
 17:       PetscViewer, parameter :: PETSC_VIEWER_DRAW_SELF    = tPetscViewer(5)
 18:       PetscViewer, parameter :: PETSC_VIEWER_SOCKET_WORLD = tPetscViewer(6)
 19:       PetscViewer, parameter :: PETSC_VIEWER_SOCKET_SELF  = tPetscViewer(7)
 20:       PetscViewer, parameter :: PETSC_VIEWER_STDOUT_WORLD = tPetscViewer(8)
 21:       PetscViewer, parameter :: PETSC_VIEWER_STDERR_WORLD = tPetscViewer(10)
 22:       PetscViewer, parameter :: PETSC_VIEWER_STDERR_SELF  = tPetscViewer(11)
 23:       PetscViewer, parameter :: PETSC_VIEWER_BINARY_WORLD = tPetscViewer(12)
 24:       PetscViewer, parameter :: PETSC_VIEWER_BINARY_SELF  = tPetscViewer(13)
 25:       PetscViewer, parameter :: PETSC_VIEWER_MATLAB_WORLD = tPetscViewer(14)
 26:       PetscViewer, parameter :: PETSC_VIEWER_MATLAB_SELF  = tPetscViewer(15)

 28:       PetscViewer PETSC_VIEWER_STDOUT_
 29:       PetscViewer PETSC_VIEWER_DRAW_
 30:       external PETSC_VIEWER_STDOUT_
 31:       external PETSC_VIEWER_DRAW_
 32:       external PetscViewerAndFormatDestroy
 33: !
 34: !  Flags for binary I/O
 35: !
 36:       PetscEnum, parameter :: FILE_MODE_READ = 0
 37:       PetscEnum, parameter :: FILE_MODE_WRITE = 1
 38:       PetscEnum, parameter :: FILE_MODE_APPEND = 2
 39:       PetscEnum, parameter :: FILE_MODE_UPDATE = 3
 40:       PetscEnum, parameter :: FILE_MODE_APPEND_UPDATE = 4
 41: !
 42: !  PetscViewer formats
 43: !
 44:       PetscEnum, parameter :: PETSC_VIEWER_DEFAULT = 0
 45:       PetscEnum, parameter :: PETSC_VIEWER_ASCII_MATLAB = 1
 46:       PetscEnum, parameter :: PETSC_VIEWER_ASCII_MATHEMATICA = 2
 47:       PetscEnum, parameter :: PETSC_VIEWER_ASCII_IMPL = 3
 48:       PetscEnum, parameter :: PETSC_VIEWER_ASCII_INFO = 4
 49:       PetscEnum, parameter :: PETSC_VIEWER_ASCII_INFO_DETAIL = 5
 50:       PetscEnum, parameter :: PETSC_VIEWER_ASCII_COMMON = 6
 51:       PetscEnum, parameter :: PETSC_VIEWER_ASCII_SYMMODU = 7
 52:       PetscEnum, parameter :: PETSC_VIEWER_ASCII_INDEX = 8
 53:       PetscEnum, parameter :: PETSC_VIEWER_ASCII_DENSE = 9
 54:       PetscEnum, parameter :: PETSC_VIEWER_ASCII_MATRIXMARKET = 10
 55:       PetscEnum, parameter :: PETSC_VIEWER_ASCII_VTK = 11
 56:       PetscEnum, parameter :: PETSC_VIEWER_ASCII_VTK_CELL = 12
 57:       PetscEnum, parameter :: PETSC_VIEWER_ASCII_VTK_COORDS = 13
 58:       PetscEnum, parameter :: PETSC_VIEWER_ASCII_PCICE = 14
 59:       PetscEnum, parameter :: PETSC_VIEWER_ASCII_PYTHON = 15
 60:       PetscEnum, parameter :: PETSC_VIEWER_ASCII_FACTOR_INFO = 16
 61:       PetscEnum, parameter :: PETSC_VIEWER_ASCII_LATEX = 17
 62:       PetscEnum, parameter :: PETSC_VIEWER_ASCII_XML = 18
 63:       PetscEnum, parameter :: PETSC_VIEWER_ASCII_GLVIS = 19
 64:       PetscEnum, parameter :: PETSC_VIEWER_ASCII_CSV = 20
 65:       PetscEnum, parameter :: PETSC_VIEWER_DRAW_BASIC = 21
 66:       PetscEnum, parameter :: PETSC_VIEWER_DRAW_LG = 22
 67:       PetscEnum, parameter :: PETSC_VIEWER_DRAW_LG_XRANGE = 23
 68:       PetscEnum, parameter :: PETSC_VIEWER_DRAW_CONTOUR = 24
 69:       PetscEnum, parameter :: PETSC_VIEWER_DRAW_PORTS = 25
 70:       PetscEnum, parameter :: PETSC_VIEWER_VTK_VTS = 26
 71:       PetscEnum, parameter :: PETSC_VIEWER_VTK_VTR = 27
 72:       PetscEnum, parameter :: PETSC_VIEWER_VTK_VTU = 28
 73:       PetscEnum, parameter :: PETSC_VIEWER_BINARY_MATLAB = 29
 74:       PetscEnum, parameter :: PETSC_VIEWER_NATIVE = 30
 75:       PetscEnum, parameter :: PETSC_VIEWER_HDF5_PETSC = 31
 76:       PetscEnum, parameter :: PETSC_VIEWER_HDF5_VIZ = 32
 77:       PetscEnum, parameter :: PETSC_VIEWER_HDF5_XDMF = 33
 78:       PetscEnum, parameter :: PETSC_VIEWER_HDF5_MAT = 34
 79:       PetscEnum, parameter :: PETSC_VIEWER_NOFORMAT = 35
 80:       PetscEnum, parameter :: PETSC_VIEWER_LOAD_BALANCE = 36
 81: !
 82: !  End of Fortran include file for the PetscViewer package in PETSc

 84: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
 85: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_VIEWER
 86: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_STDOUT_SELF
 87: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_DRAW_WORLD
 88: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_DRAW_SELF
 89: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_SOCKET_WORLD
 90: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_SOCKET_SELF
 91: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_STDOUT_WORLD
 92: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_STDERR_WORLD
 93: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_STDERR_SELF
 94: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_BINARY_WORLD
 95: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_BINARY_SELF
 96: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_MATLAB_WORLD
 97: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_MATLAB_SELF
 98: !DEC$ ATTRIBUTES DLLEXPORT::FILE_MODE_READ
 99: !DEC$ ATTRIBUTES DLLEXPORT::FILE_MODE_WRITE
100: !DEC$ ATTRIBUTES DLLEXPORT::FILE_MODE_APPEND
101: !DEC$ ATTRIBUTES DLLEXPORT::FILE_MODE_UPDATE
102: !DEC$ ATTRIBUTES DLLEXPORT::FILE_MODE_APPEND_UPDATE
103: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_DEFAULT
104: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_MATLAB
105: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_MATHEMATICA
106: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_IMPL
107: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_INFO
108: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_INFO_DETAIL
109: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_COMMON
110: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_SYMMODU
111: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_INDEX
112: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_DENSE
113: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_MATRIXMARKET
114: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_VTK
115: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_VTK_CELL
116: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_VTK_COORDS
117: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_PCICE
118: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_PYTHON
119: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_FACTOR_INFO
120: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_LATEX
121: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_XML
122: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_GLVIS
123: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_DRAW_BASIC
124: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_DRAW_LG
125: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_DRAW_CONTOUR
126: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_DRAW_PORTS
127: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_VTK_VTS
128: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_VTK_VTR
129: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_VTK_VTU
130: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_BINARY_MATLAB
131: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_NATIVE
132: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_HDF5_VIZ
133: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_NOFORMAT
134: #endif