1: !
  2: !
  3: !  Include file for Fortran use of the IS (index set) package in PETSc
  4: !
  5: #if !defined (PETSCISDEF_H)
  6: #define PETSCISDEF_H

  8: #include "petsc/finclude/petscsys.h"
  9: #include "petsc/finclude/petscviewer.h"

 11: #define IS type(tIS)
 12: #define ISColoring type(tISColoring)
 13: #define PetscSection type(tPetscSection)
 14: #define PetscSectionSym type(tPetscSectionSym)

 16: #define PetscSF type(tPetscSF)
 17: #define PetscLayout type(tPetscLayout)

 19: #define ISType character*(80)
 20: #define ISInfo PetscEnum
 21: #define ISInfoType PetscEnum
 22: #define ISGlobalToLocalType character*(80)
 23: #define ISGlobalToLocalMappingMode PetscEnum
 24: #define ISColoringType PetscEnum

 26: #define ISLocalToGlobalMapping type(tISLocalToGlobalMapping)

 28: #define ISColoringValue PETSC_IS_COLORING_VALUE_TYPE_F

 30: #define ISGENERAL 'general'
 31: #define ISSTRIDE 'stride'
 32: #define ISBLOCK 'block'

 34: #define ISGLOBALTOLOCALMAPPINGBASIC 'basic'
 35: #define ISGLOBALTOLOCALMAPPINGHASH  'hash'
 36: #endif