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