1: ! 2: ! Include file for Fortran use of the PetscViewer package in PETSc 3: ! 4: #if !defined (__PETSCVIEWERDEF_H) 7: #if !defined(PETSC_USE_FORTRAN_DATATYPES) 8: #define PetscViewer PetscFortranAddr 9: #endif 11: #define PetscViewers PetscFortranAddr 12: #define PetscFileMode PetscEnum 13: #define PetscViewerType character*(80) 14: #define PetscViewerFormat PetscEnum 16: #define PETSCVIEWERSOCKET 'socket' 17: #define PETSCVIEWERASCII 'ascii' 18: #define PETSCVIEWERBINARY 'binary' 19: #define PETSCVIEWERSTRING 'string' 20: #define PETSCVIEWERDRAW 'draw' 21: #define PETSCVIEWERVU 'vu' 22: #define PETSCVIEWERMATHEMATICA 'mathematica' 23: #define PETSCVIEWERNETCDF 'netcdf' 24: #define PETSCVIEWERHDF5 'hdf5' 25: #define PETSCVIEWERVTK 'vtk' 26: #define PETSCVIEWERMATLAB 'matlab' 27: #define PETSCVIEWERSAWS 'saws' 29: #endif