1: !
  2: !
  3: !  Include file for Fortran use of the IS (index set) package in PETSc
  4: !
  5: #include "petsc/finclude/petscis.h"

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

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

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

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

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

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