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/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 ISColoringValue PETSC_IS_COLOR_VALUE_TYPE_F 26: #define ISGENERAL 'general' 27: #define ISSTRIDE 'stride' 28: #define ISBLOCK 'block' 29: #endif