Actual source code: petscis.h
petsc-3.15.0 2021-03-30
Report Typos and Errors

      1: !
      2: !  Used by petscvecmod.F90 to create Fortran module file
      3: !
      4: #include "petsc/finclude/petscis.h"

      6:       type tIS
      7:         PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE
      8:       end type tIS
      9:       type tISColoring
     10:         PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE
     11:       end type tISColoring
     12:       type tPetscSection
     13:         PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE
     14:       end type tPetscSection
     15:       type tPetscSectionSym
     16:         PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE
     17:       end type tPetscSectionSym
     18:       type tPetscSF
     19:         PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE
     20:       end type tPetscSF
     21:       type PetscSFNode
     22:         sequence
     23:         PetscInt    rank
     24:         PetscInt    index
     25:       end type PetscSFNode

     27:       IS, parameter :: PETSC_NULL_IS = tIS(0)
     28:       PetscSF, parameter :: PETSC_NULL_SF = tPetscSF(0)
     29:       PetscSection, parameter :: PETSC_NULL_SECTION = tPetscSection(0)
     30:       PetscSectionSym, parameter :: PETSC_NULL_SECTIONSYM = tPetscSectionSym(0)

     32:       PetscEnum, parameter :: IS_COLORING_GLOBAL = 0
     33:       PetscEnum, parameter :: IS_COLORING_LOCAL = 1

     35:       PetscEnum, parameter :: IS_GENERAL = 0
     36:       PetscEnum, parameter :: IS_STRIDE = 1
     37:       PetscEnum, parameter :: IS_BLOCK = 2

     39:       PetscEnum, parameter :: IS_GTOLM_MASK =0
     40:       PetscEnum, parameter :: IS_GTOLM_DROP = 1
     41: !
     42: !  ISInfo; must match those in include/petscis.h
     43: !
     44:       PetscEnum, parameter :: IS_INFO_MIN = -1
     45:       PetscEnum, parameter :: IS_SORTED = 0
     46:       PetscEnum, parameter :: IS_UNIQUE = 1
     47:       PetscEnum, parameter :: IS_PERMUTATION = 2
     48:       PetscEnum, parameter :: IS_INTERVAL = 3
     49:       PetscEnum, parameter :: IS_IDENTITY = 4
     50:       PetscEnum, parameter :: IS_INFO_MAX = 5
     51: !
     52: !  ISInfoType; must match those in include/petscis.h
     53: !
     54:       PetscEnum, parameter :: IS_LOCAL = 0
     55:       PetscEnum, parameter :: IS_GLOBAL = 1

     57: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
     58: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_IS
     59: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_SF
     60: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_SECTION
     61: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_SECTIONSYM
     62: !DEC$ ATTRIBUTES DLLEXPORT::IS_COLORING_GLOBAL
     63: !DEC$ ATTRIBUTES DLLEXPORT::IS_COLORING_LOCAL
     64: !DEC$ ATTRIBUTES DLLEXPORT::IS_GENERAL
     65: !DEC$ ATTRIBUTES DLLEXPORT::IS_STRIDE
     66: !DEC$ ATTRIBUTES DLLEXPORT::IS_BLOCK
     67: !DEC$ ATTRIBUTES DLLEXPORT::IS_GTOLM_MASK
     68: !DEC$ ATTRIBUTES DLLEXPORT::IS_GTOLM_DROP
     69: #endif