1: ! 2: ! 3: ! Include file for Fortran use of the IS (index set) package in PETSc 4: ! 5: #if !defined (__PETSCISDEF_H) 8: #include finclude/petscsysdef.h 10: #if !defined(PETSC_USE_FORTRAN_DATATYPES) 11: #define IS PetscFortranAddr 12: #define ISColoring PetscFortranAddr 13: #define PetscSection PetscFortranAddr 14: #endif 16: #define PetscSF PetscFortranAddr 17: #define PetscLayout PetscFortranAddr 19: #define ISType PetscEnum 20: #define ISLocalToGlobalMapping PetscFortranAddr 21: #define ISGlobalToLocalMappingType PetscEnum 22: #define ISColoringType PetscEnum 24: #define ISGENERAL 'general' 25: #define ISSTRIDE 'stride' 26: #define ISBLOCK 'block' 27: #endif