1: ! 2: ! 3: ! Include file for Fortran use of the IS (index set) package in PETSc 4: ! 5: #if !defined (__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