Actual source code: petscviewer.h

      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