Actual source code: petscviewer.h

  1: !
  2: !  $Id: petscviewer.h,v 1.31 2001/04/10 22:37:56 balay Exp $;
  3: !
  4: !  Include file for Fortran use of the PetscViewer package in PETSc
  5: !
  6: #if !defined (__VIEWER_H)

  9: #define PetscViewer PetscFortranAddr
 10: #define PetscViewers PetscFortranAddr
 11: #define PetscViewerFileType integer
 12: #define PetscViewerType character*(80)
 13: #define PetscViewerFormat integer

 15: #define PETSC_VIEWER_SOCKET 'socket'
 16: #define PETSC_VIEWER_ASCII 'ascii'
 17: #define PETSC_VIEWER_BINARY 'binary'
 18: #define PETSC_VIEWER_STRING 'string'
 19: #define PETSC_VIEWER_DRAW 'draw'
 20: #define PETSC_VIEWER_AMS 'ams'
 21: #define PETSC_VIEWER_HDF4 'hdf4'
 22: #define PETSC_VIEWER_NETCDF 'netcdf'
 23: #define PETSC_VIEWER_MATLAB 'matlab'

 25: #endif

 27: #if !defined (PETSC_AVOID_DECLARATIONS)

 29: !
 30: !  Flags for binary I/O
 31: !
 32:       integer  PETSC_FILE_RDONLY,PETSC_FILE_WRONLY
 33:       integer  PETSC_FILE_CREATE

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

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

 60:       integer  PETSC_VIEWER_BINARY_DEFAULT
 61:       integer  PETSC_VIEWER_BINARY_NATIVE

 63:       parameter (PETSC_VIEWER_BINARY_DEFAULT = 9)
 64:       parameter (PETSC_VIEWER_BINARY_NATIVE = 10)

 66:       integer PETSC_VIEWER_DRAW_BASIC
 67:       integer PETSC_VIEWER_DRAW_LG
 68:       integer PETSC_VIEWER_DRAW_CONTOUR
 69:       integer PETSC_VIEWER_DRAW_PORTS

 71:       parameter (PETSC_VIEWER_DRAW_BASIC = 11)
 72:       parameter (PETSC_VIEWER_DRAW_LG = 12)
 73:       parameter (PETSC_VIEWER_DRAW_CONTOUR = 13)
 74:       parameter (PETSC_VIEWER_DRAW_PORTS = 14)

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

 83: #endif