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