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 PetscFortranAddr

 19: #define ISType character*(80)
 20: #define ISLocalToGlobalMapping PetscFortranAddr
 21: #define ISGlobalToLocalType character*(80)
 22: #define ISGlobalToLocalMappingMode PetscEnum
 23: #define ISColoringType PetscEnum

 25: #define ISColoringValue PETSC_IS_COLOR_VALUE_TYPE_F

 27: #define ISGENERAL 'general'
 28: #define ISSTRIDE 'stride'
 29: #define ISBLOCK 'block'

 31: #define ISGLOBALTOLOCALMAPPINGBASIC 'basic'
 32: #define ISGLOBALTOLOCALMAPPINGHASH  'hash'
 33: #endif