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 =                   &
 31:      & tPetscSection(0)
 32:       PetscSectionSym, parameter :: PETSC_NULL_SECTIONSYM =             &
 33:      & tPetscSectionSym(0)

 35:       PetscEnum IS_COLORING_GLOBAL
 36:       PetscEnum IS_COLORING_LOCAL
 37:       parameter (IS_COLORING_GLOBAL = 0,IS_COLORING_LOCAL = 1)

 39:       PetscEnum IS_GENERAL
 40:       PetscEnum IS_STRIDE
 41:       PetscEnum IS_BLOCK
 42:       parameter (IS_GENERAL = 0,IS_STRIDE = 1,IS_BLOCK = 2)

 44:       PetscEnum IS_GTOLM_MASK
 45:       PetscEnum IS_GTOLM_DROP
 46:       parameter (IS_GTOLM_MASK =0,IS_GTOLM_DROP = 1)

 48: !
 49: !  End of Fortran include file for the IS package in PETSc

 51: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
 52: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_IS
 53: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_SF
 54: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_SECTION
 55: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_SECTIONSYM
 56: !DEC$ ATTRIBUTES DLLEXPORT::IS_COLORING_GLOBAL
 57: !DEC$ ATTRIBUTES DLLEXPORT::IS_COLORING_LOCAL
 58: !DEC$ ATTRIBUTES DLLEXPORT::IS_GENERAL
 59: !DEC$ ATTRIBUTES DLLEXPORT::IS_STRIDE
 60: !DEC$ ATTRIBUTES DLLEXPORT::IS_BLOCK
 61: !DEC$ ATTRIBUTES DLLEXPORT::IS_GTOLM_MASK
 62: !DEC$ ATTRIBUTES DLLEXPORT::IS_GTOLM_DROP
 63: #endif