Actual source code: petscviewer.h
petsc-3.10.5 2019-03-28
Report Typos and Errors

      1: !
      2: !  Include file for Fortran use of the PetscViewer package in PETSc
      3: !
      4: #include "petsc/finclude/petscviewer.h"

      6:       type tPetscViewer
      7:         PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE
      8:       end type tPetscViewer

     10:       PetscViewer, parameter :: PETSC_NULL_VIEWER                          &
     11:      &            = tPetscViewer(0)
     12: !
     13: !     The numbers used below should match those in
     14: !     petsc/private/fortranimpl.h
     15: !
     16:       PetscViewer, parameter :: PETSC_VIEWER_STDOUT_SELF =                &
     17:      &           tPetscViewer(9)
     18:       PetscViewer, parameter :: PETSC_VIEWER_DRAW_WORLD   =                &
     19:      &           tPetscViewer(4)
     20:       PetscViewer, parameter :: PETSC_VIEWER_DRAW_SELF    =                &
     21:      &           tPetscViewer(5)
     22:       PetscViewer, parameter :: PETSC_VIEWER_SOCKET_WORLD =                &
     23:      &           tPetscViewer(6)
     24:       PetscViewer, parameter :: PETSC_VIEWER_SOCKET_SELF  =                &
     25:      &           tPetscViewer(7)
     26:       PetscViewer, parameter :: PETSC_VIEWER_STDOUT_WORLD =                &
     27:      &           tPetscViewer(8)
     28:       PetscViewer, parameter :: PETSC_VIEWER_STDERR_WORLD =                &
     29:      &           tPetscViewer(10)
     30:       PetscViewer, parameter :: PETSC_VIEWER_STDERR_SELF  =                &
     31:      &           tPetscViewer(11)
     32:       PetscViewer, parameter :: PETSC_VIEWER_BINARY_WORLD =                &
     33:      &           tPetscViewer(12)
     34:       PetscViewer, parameter :: PETSC_VIEWER_BINARY_SELF  =                &
     35:      &           tPetscViewer(13)
     36:       PetscViewer, parameter :: PETSC_VIEWER_MATLAB_WORLD =                &
     37:      &           tPetscViewer(14)
     38:       PetscViewer, parameter :: PETSC_VIEWER_MATLAB_SELF  =                &
     39:      &           tPetscViewer(15)

     41:       PetscViewer PETSC_VIEWER_STDOUT_
     42:       PetscViewer PETSC_VIEWER_DRAW_
     43:       external PETSC_VIEWER_STDOUT_
     44:       external PETSC_VIEWER_DRAW_
     45:       external PetscViewerAndFormatDestroy
     46: !
     47: !  Flags for binary I/O
     48: !
     49:       PetscEnum FILE_MODE_READ
     50:       PetscEnum FILE_MODE_WRITE
     51:       PetscEnum FILE_MODE_APPEND
     52:       PetscEnum FILE_MODE_UPDATE
     53:       PetscEnum FILE_MODE_APPEND_UPDATE

     55:       parameter (FILE_MODE_READ = 0)
     56:       parameter (FILE_MODE_WRITE = 1)
     57:       parameter (FILE_MODE_APPEND = 2)
     58:       parameter (FILE_MODE_UPDATE = 3)
     59:       parameter (FILE_MODE_APPEND_UPDATE = 4)

     61: !
     62: !  PetscViewer formats
     63: !
     64:       PetscEnum PETSC_VIEWER_DEFAULT
     65:       PetscEnum PETSC_VIEWER_ASCII_MATLAB
     66:       PetscEnum PETSC_VIEWER_ASCII_MATHEMATICA
     67:       PetscEnum PETSC_VIEWER_ASCII_IMPL
     68:       PetscEnum PETSC_VIEWER_ASCII_INFO
     69:       PetscEnum PETSC_VIEWER_ASCII_INFO_DETAIL
     70:       PetscEnum PETSC_VIEWER_ASCII_COMMON
     71:       PetscEnum PETSC_VIEWER_ASCII_SYMMODU
     72:       PetscEnum PETSC_VIEWER_ASCII_INDEX
     73:       PetscEnum PETSC_VIEWER_ASCII_DENSE
     74:       PetscEnum PETSC_VIEWER_ASCII_MATRIXMARKET
     75:       PetscEnum PETSC_VIEWER_ASCII_VTK
     76:       PetscEnum PETSC_VIEWER_ASCII_VTK_CELL
     77:       PetscEnum PETSC_VIEWER_ASCII_VTK_COORDS
     78:       PetscEnum PETSC_VIEWER_ASCII_PCICE
     79:       PetscEnum PETSC_VIEWER_ASCII_PYTHON
     80:       PetscEnum PETSC_VIEWER_ASCII_FACTOR_INFO
     81:       PetscEnum PETSC_VIEWER_ASCII_LATEX
     82:       PetscEnum PETSC_VIEWER_ASCII_XML
     83:       PetscEnum PETSC_VIEWER_ASCII_GLVIS
     84:       PetscEnum PETSC_VIEWER_DRAW_BASIC
     85:       PetscEnum PETSC_VIEWER_DRAW_LG
     86:       PetscEnum PETSC_VIEWER_DRAW_CONTOUR
     87:       PetscEnum PETSC_VIEWER_DRAW_PORTS
     88:       PetscEnum PETSC_VIEWER_VTK_VTS
     89:       PetscEnum PETSC_VIEWER_VTK_VTR
     90:       PetscEnum PETSC_VIEWER_VTK_VTU
     91:       PetscEnum PETSC_VIEWER_BINARY_MATLAB
     92:       PetscEnum PETSC_VIEWER_NATIVE
     93:       PetscEnum PETSC_VIEWER_HDF5_VIZ
     94:       PetscEnum PETSC_VIEWER_NOFORMAT

     96:       parameter (PETSC_VIEWER_DEFAULT = 0)
     97:       parameter (PETSC_VIEWER_ASCII_MATLAB = 1)
     98:       parameter (PETSC_VIEWER_ASCII_MATHEMATICA = 2)
     99:       parameter (PETSC_VIEWER_ASCII_IMPL = 3)
    100:       parameter (PETSC_VIEWER_ASCII_INFO = 4)
    101:       parameter (PETSC_VIEWER_ASCII_INFO_DETAIL = 5)
    102:       parameter (PETSC_VIEWER_ASCII_COMMON = 6)
    103:       parameter (PETSC_VIEWER_ASCII_SYMMODU = 7)
    104:       parameter (PETSC_VIEWER_ASCII_INDEX = 8)
    105:       parameter (PETSC_VIEWER_ASCII_DENSE = 9)
    106:       parameter (PETSC_VIEWER_ASCII_MATRIXMARKET = 10)
    107:       parameter (PETSC_VIEWER_ASCII_VTK = 11)
    108:       parameter (PETSC_VIEWER_ASCII_VTK_CELL = 12)
    109:       parameter (PETSC_VIEWER_ASCII_VTK_COORDS = 13)
    110:       parameter (PETSC_VIEWER_ASCII_PCICE = 14)
    111:       parameter (PETSC_VIEWER_ASCII_PYTHON = 15)
    112:       parameter (PETSC_VIEWER_ASCII_FACTOR_INFO = 16)
    113:       parameter (PETSC_VIEWER_ASCII_LATEX = 17)
    114:       parameter (PETSC_VIEWER_ASCII_XML = 18)
    115:       parameter (PETSC_VIEWER_ASCII_GLVIS = 19)
    116:       parameter (PETSC_VIEWER_DRAW_BASIC = 20)
    117:       parameter (PETSC_VIEWER_DRAW_LG = 21)
    118:       parameter (PETSC_VIEWER_DRAW_CONTOUR = 22)
    119:       parameter (PETSC_VIEWER_DRAW_PORTS = 23)
    120:       parameter (PETSC_VIEWER_VTK_VTS = 24)
    121:       parameter (PETSC_VIEWER_VTK_VTR = 25)
    122:       parameter (PETSC_VIEWER_VTK_VTU = 26)
    123:       parameter (PETSC_VIEWER_BINARY_MATLAB = 27)
    124:       parameter (PETSC_VIEWER_NATIVE = 28)
    125:       parameter (PETSC_VIEWER_HDF5_VIZ = 29)
    126:       parameter (PETSC_VIEWER_NOFORMAT = 30)
    127: !
    128: !  End of Fortran include file for the PetscViewer package in PETSc

    130: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
    131: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_VIEWER
    132: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_STDOUT_SELF
    133: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_DRAW_WORLD
    134: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_DRAW_SELF
    135: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_SOCKET_WORLD
    136: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_SOCKET_SELF
    137: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_STDOUT_WORLD
    138: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_STDERR_WORLD
    139: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_STDERR_SELF
    140: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_BINARY_WORLD
    141: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_BINARY_SELF
    142: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_MATLAB_WORLD
    143: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_MATLAB_SELF
    144: !DEC$ ATTRIBUTES DLLEXPORT::FILE_MODE_READ
    145: !DEC$ ATTRIBUTES DLLEXPORT::FILE_MODE_WRITE
    146: !DEC$ ATTRIBUTES DLLEXPORT::FILE_MODE_APPEND
    147: !DEC$ ATTRIBUTES DLLEXPORT::FILE_MODE_UPDATE
    148: !DEC$ ATTRIBUTES DLLEXPORT::FILE_MODE_APPEND_UPDATE
    149: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_DEFAULT
    150: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_MATLAB
    151: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_MATHEMATICA
    152: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_IMPL
    153: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_INFO
    154: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_INFO_DETAIL
    155: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_COMMON
    156: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_SYMMODU
    157: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_INDEX
    158: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_DENSE
    159: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_MATRIXMARKET
    160: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_VTK
    161: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_VTK_CELL
    162: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_VTK_COORDS
    163: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_PCICE
    164: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_PYTHON
    165: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_FACTOR_INFO
    166: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_LATEX
    167: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_XML
    168: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_ASCII_GLVIS
    169: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_DRAW_BASIC
    170: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_DRAW_LG
    171: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_DRAW_CONTOUR
    172: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_DRAW_PORTS
    173: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_VTK_VTS
    174: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_VTK_VTR
    175: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_VTK_VTU
    176: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_BINARY_MATLAB
    177: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_NATIVE
    178: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_HDF5_VIZ
    179: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_VIEWER_NOFORMAT
    180: #endif