1: ! 2: ! Include file for Fortran use of the PetscViewer package in PETSc 3: ! 4: #include finclude/petscviewerdef.h 6: #if !defined(PETSC_USE_FORTRAN_DATATYPES) 7: PetscViewer PETSC_VIEWER_STDOUT_ 8: external PETSC_VIEWER_STDOUT_ 9: #endif 10: ! 11: ! Flags for binary I/O 12: ! 13: PetscEnum FILE_MODE_READ 14: PetscEnum FILE_MODE_WRITE 15: PetscEnum FILE_MODE_APPEND 16: PetscEnum FILE_MODE_UPDATE 17: PetscEnum FILE_MODE_APPEND_UPDATE 19: parameter (FILE_MODE_READ = 0) 20: parameter (FILE_MODE_WRITE = 1) 21: parameter (FILE_MODE_APPEND = 2) 22: parameter (FILE_MODE_UPDATE = 3) 23: parameter (FILE_MODE_APPEND_UPDATE = 4) 25: ! 26: ! PetscViewer formats 27: ! 28: PetscEnum PETSC_VIEWER_DEFAULT 29: PetscEnum PETSC_VIEWER_ASCII_MATLAB 30: PetscEnum PETSC_VIEWER_ASCII_MATHEMATICA 31: PetscEnum PETSC_VIEWER_ASCII_IMPL 32: PetscEnum PETSC_VIEWER_ASCII_INFO 33: PetscEnum PETSC_VIEWER_ASCII_INFO_DETAIL 34: PetscEnum PETSC_VIEWER_ASCII_COMMON 35: PetscEnum PETSC_VIEWER_ASCII_SYMMODU 36: PetscEnum PETSC_VIEWER_ASCII_INDEX 37: PetscEnum PETSC_VIEWER_ASCII_DENSE 38: PetscEnum PETSC_VIEWER_ASCII_MATRIXMARKET 39: PetscEnum PETSC_VIEWER_ASCII_VTK 40: PetscEnum PETSC_VIEWER_ASCII_VTK_CELL 41: PetscEnum PETSC_VIEWER_ASCII_VTK_COORDS 42: PetscEnum PETSC_VIEWER_ASCII_PCICE 43: PetscEnum PETSC_VIEWER_ASCII_PYLITH 44: PetscEnum PETSC_VIEWER_ASCII_PYLITH_LOCAL 45: PetscEnum PETSC_VIEWER_ASCII_PYTHON 46: PetscEnum PETSC_VIEWER_ASCII_FACTOR_INFO 48: parameter (PETSC_VIEWER_DEFAULT = 0) 49: parameter (PETSC_VIEWER_ASCII_MATLAB = 1) 50: parameter (PETSC_VIEWER_ASCII_MATHEMATICA = 2) 51: parameter (PETSC_VIEWER_ASCII_IMPL = 3) 52: parameter (PETSC_VIEWER_ASCII_INFO = 4) 53: parameter (PETSC_VIEWER_ASCII_INFO_DETAIL = 5) 54: parameter (PETSC_VIEWER_ASCII_COMMON = 6) 55: parameter (PETSC_VIEWER_ASCII_SYMMODU = 7) 56: parameter (PETSC_VIEWER_ASCII_INDEX = 8) 57: parameter (PETSC_VIEWER_ASCII_DENSE = 9) 58: parameter (PETSC_VIEWER_ASCII_MATRIXMARKET = 10) 59: parameter (PETSC_VIEWER_ASCII_VTK = 11) 60: parameter (PETSC_VIEWER_ASCII_VTK_CELL = 12) 61: parameter (PETSC_VIEWER_ASCII_VTK_COORDS = 13) 62: parameter (PETSC_VIEWER_ASCII_PCICE = 14) 63: parameter (PETSC_VIEWER_ASCII_PYLITH = 15) 64: parameter (PETSC_VIEWER_ASCII_PYLITH_LOCAL = 16) 65: parameter (PETSC_VIEWER_ASCII_PYTHON = 17) 66: parameter (PETSC_VIEWER_ASCII_FACTOR_INFO = 18) 68: PetscEnum PETSC_VIEWER_DRAW_BASIC 69: PetscEnum PETSC_VIEWER_DRAW_LG 70: PetscEnum PETSC_VIEWER_DRAW_CONTOUR 71: PetscEnum PETSC_VIEWER_DRAW_PORTS 73: parameter (PETSC_VIEWER_DRAW_BASIC = 19) 74: parameter (PETSC_VIEWER_DRAW_LG = 20) 75: parameter (PETSC_VIEWER_DRAW_CONTOUR = 21) 76: parameter (PETSC_VIEWER_DRAW_PORTS = 22) 78: PetscEnum PETSC_VIEWER_NATIVE 79: parameter (PETSC_VIEWER_NATIVE = 23) 80: PetscEnum PETSC_VIEWER_NOFORMAT 81: parameter (PETSC_VIEWER_NOFORMAT = 24) 82: ! 83: ! End of Fortran include file for the PetscViewer package in PETSc