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