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 PetscViewerFileType 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  PETSC_FILE_RDONLY,PETSC_FILE_WRONLY
 31:       PetscEnum  PETSC_FILE_CREATE

 33:       parameter (PETSC_FILE_RDONLY = 0,PETSC_FILE_WRONLY = 1)
 34:       parameter (PETSC_FILE_CREATE = 2)
 35: !
 36: !  PetscViewer formats
 37: !
 38:       PetscEnum  PETSC_VIEWER_ASCII_DEFAULT
 39:       PetscEnum  PETSC_VIEWER_ASCII_MATLAB
 40:       PetscEnum  PETSC_VIEWER_ASCII_IMPL
 41:       PetscEnum  PETSC_VIEWER_ASCII_INFO
 42:       PetscEnum  PETSC_VIEWER_ASCII_INFO_DETAIL
 43:       PetscEnum  PETSC_VIEWER_ASCII_COMMON
 44:       PetscEnum  PETSC_VIEWER_ASCII_SYMMODU
 45:       PetscEnum  PETSC_VIEWER_ASCII_INDEX
 46:       PetscEnum  PETSC_VIEWER_ASCII_DENSE

 48:       parameter (PETSC_VIEWER_ASCII_DEFAULT = 0)
 49:       parameter (PETSC_VIEWER_ASCII_MATLAB = 1)
 50:       parameter (PETSC_VIEWER_ASCII_IMPL = 2)
 51:       parameter (PETSC_VIEWER_ASCII_INFO = 3)
 52:       parameter (PETSC_VIEWER_ASCII_INFO_DETAIL = 4)
 53:       parameter (PETSC_VIEWER_ASCII_COMMON = 5)
 54:       parameter (PETSC_VIEWER_ASCII_SYMMODU = 6)
 55:       parameter (PETSC_VIEWER_ASCII_INDEX = 7)
 56:       parameter (PETSC_VIEWER_ASCII_DENSE = 8)

 58:       PetscEnum  PETSC_VIEWER_BINARY_DEFAULT
 59:       PetscEnum  PETSC_VIEWER_BINARY_NATIVE

 61:       parameter (PETSC_VIEWER_BINARY_DEFAULT = 9)
 62:       parameter (PETSC_VIEWER_BINARY_NATIVE = 10)

 64:       PetscEnum PETSC_VIEWER_DRAW_BASIC
 65:       PetscEnum PETSC_VIEWER_DRAW_LG
 66:       PetscEnum PETSC_VIEWER_DRAW_CONTOUR
 67:       PetscEnum PETSC_VIEWER_DRAW_PORTS

 69:       parameter (PETSC_VIEWER_DRAW_BASIC = 11)
 70:       parameter (PETSC_VIEWER_DRAW_LG = 12)
 71:       parameter (PETSC_VIEWER_DRAW_CONTOUR = 13)
 72:       parameter (PETSC_VIEWER_DRAW_PORTS = 14)

 74:       PetscEnum PETSC_VIEWER_NATIVE
 75:       parameter (PETSC_VIEWER_NATIVE = 15)
 76:       PetscEnum PETSC_VIEWER_NOFORMAT
 77:       parameter (PETSC_VIEWER_NOFORMAT = 16)
 78: !
 79: !  End of Fortran include file for the PetscViewer package in PETSc

 81: #endif