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_IMPL
 48:       PetscEnum  PETSC_VIEWER_ASCII_INFO
 49:       PetscEnum  PETSC_VIEWER_ASCII_INFO_DETAIL
 50:       PetscEnum  PETSC_VIEWER_ASCII_COMMON
 51:       PetscEnum  PETSC_VIEWER_ASCII_SYMMODU
 52:       PetscEnum  PETSC_VIEWER_ASCII_INDEX
 53:       PetscEnum  PETSC_VIEWER_ASCII_DENSE

 55:       parameter (PETSC_VIEWER_ASCII_DEFAULT = 0)
 56:       parameter (PETSC_VIEWER_ASCII_MATLAB = 1)
 57:       parameter (PETSC_VIEWER_ASCII_IMPL = 2)
 58:       parameter (PETSC_VIEWER_ASCII_INFO = 3)
 59:       parameter (PETSC_VIEWER_ASCII_INFO_DETAIL = 4)
 60:       parameter (PETSC_VIEWER_ASCII_COMMON = 5)
 61:       parameter (PETSC_VIEWER_ASCII_SYMMODU = 6)
 62:       parameter (PETSC_VIEWER_ASCII_INDEX = 7)
 63:       parameter (PETSC_VIEWER_ASCII_DENSE = 8)

 65:       PetscEnum  PETSC_VIEWER_BINARY_DEFAULT
 66:       PetscEnum  PETSC_VIEWER_BINARY_NATIVE

 68:       parameter (PETSC_VIEWER_BINARY_DEFAULT = 9)
 69:       parameter (PETSC_VIEWER_BINARY_NATIVE = 10)

 71:       PetscEnum PETSC_VIEWER_DRAW_BASIC
 72:       PetscEnum PETSC_VIEWER_DRAW_LG
 73:       PetscEnum PETSC_VIEWER_DRAW_CONTOUR
 74:       PetscEnum PETSC_VIEWER_DRAW_PORTS

 76:       parameter (PETSC_VIEWER_DRAW_BASIC = 11)
 77:       parameter (PETSC_VIEWER_DRAW_LG = 12)
 78:       parameter (PETSC_VIEWER_DRAW_CONTOUR = 13)
 79:       parameter (PETSC_VIEWER_DRAW_PORTS = 14)

 81:       PetscEnum PETSC_VIEWER_NATIVE
 82:       parameter (PETSC_VIEWER_NATIVE = 15)
 83:       PetscEnum PETSC_VIEWER_NOFORMAT
 84:       parameter (PETSC_VIEWER_NOFORMAT = 16)
 85: !
 86: !  End of Fortran include file for the PetscViewer package in PETSc

 88: #endif