Actual source code: petscis.h

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

  6:       type, extends(tPetscObject) :: tIS
  7:       end type tIS
  8:       IS, parameter :: PETSC_NULL_IS = tIS(0)
  9: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
 10: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_IS
 11: #endif

 13:       type, extends(tPetscObject) :: tISColoring
 14:       end type tISColoring
 15:       IS, parameter :: PETSC_NULL_IS_COLORING = tIS(0)
 16: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
 17: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_IS_COLORING
 18: #endif

 20:       type, extends(tPetscObject) :: tPetscSection
 21:       end type tPetscSection
 22:       PetscSection, parameter :: PETSC_NULL_SECTION = tPetscSection(0)
 23: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
 24: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_SECTION
 25: #endif

 27:       type, extends(tPetscObject) :: tPetscSectionSym
 28:       end type tPetscSectionSym
 29:       PetscSectionSym, parameter :: PETSC_NULL_SECTION_SYM = tPetscSectionSym(0)
 30: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
 31: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_SECTION_SYM
 32: #endif

 34:       type, extends(tPetscObject) :: tPetscSF
 35:       end type tPetscSF
 36:       PetscSF, parameter :: PETSC_NULL_SF = tPetscSF(0)
 37: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
 38: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_SF
 39: #endif

 41:       type :: tPetscLayout
 42:         PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE
 43:       end type tPetscLayout
 44:       PetscLayout, parameter :: PETSC_NULL_LAYOUT = tPetscLayout(0)
 45: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
 46: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_LAYOUT
 47: #endif

 49:       type PetscSFNode
 50:         PetscInt    rank
 51:         PetscInt    index
 52:       end type PetscSFNode

 54:       PetscEnum, parameter :: IS_COLORING_GLOBAL = 0
 55:       PetscEnum, parameter :: IS_COLORING_LOCAL = 1

 57:       PetscEnum, parameter :: IS_GENERAL = 0
 58:       PetscEnum, parameter :: IS_STRIDE = 1
 59:       PetscEnum, parameter :: IS_BLOCK = 2

 61:       PetscEnum, parameter :: IS_GTOLM_MASK =0
 62:       PetscEnum, parameter :: IS_GTOLM_DROP = 1
 63: !
 64: !  ISInfo; must match those in include/petscis.h
 65: !
 66:       PetscEnum, parameter :: IS_INFO_MIN = -1
 67:       PetscEnum, parameter :: IS_SORTED = 0
 68:       PetscEnum, parameter :: IS_UNIQUE = 1
 69:       PetscEnum, parameter :: IS_PERMUTATION = 2
 70:       PetscEnum, parameter :: IS_INTERVAL = 3
 71:       PetscEnum, parameter :: IS_IDENTITY = 4
 72:       PetscEnum, parameter :: IS_INFO_MAX = 5
 73: !
 74: !  ISInfoType; must match those in include/petscis.h
 75: !
 76:       PetscEnum, parameter :: IS_LOCAL = 0
 77:       PetscEnum, parameter :: IS_GLOBAL = 1

 79: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
 80: !DEC$ ATTRIBUTES DLLEXPORT::IS_COLORING_GLOBAL
 81: !DEC$ ATTRIBUTES DLLEXPORT::IS_COLORING_LOCAL
 82: !DEC$ ATTRIBUTES DLLEXPORT::IS_GENERAL
 83: !DEC$ ATTRIBUTES DLLEXPORT::IS_STRIDE
 84: !DEC$ ATTRIBUTES DLLEXPORT::IS_BLOCK
 85: !DEC$ ATTRIBUTES DLLEXPORT::IS_GTOLM_MASK
 86: !DEC$ ATTRIBUTES DLLEXPORT::IS_GTOLM_DROP
 87: #endif