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,FILE_MODE_APPEND 31: PetscEnum FILE_MODE_WRITE 33: parameter (FILE_MODE_READ = 0,FILE_MODE_WRITE = 1) 34: parameter (FILE_MODE_APPEND = 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