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