1: ! 2: ! 3: ! Include file for Fortran use of the IS (index set) package in PETSc 4: ! 5: #if !defined (__PETSCIS_H) 8: #define IS PetscFortranAddr 9: #define ISType PetscEnum 10: #define ISColoring PetscFortranAddr 11: #define ISLocalToGlobalMapping PetscFortranAddr 12: #define ISGlobalToLocalMappingType PetscEnum 13: #define ISColoringType PetscEnum 16: #endif 19: #if !defined (PETSC_AVOID_DECLARATIONS) 21: PetscEnum IS_COLORING_GLOBAL,IS_COLORING_GHOSTED 22: parameter (IS_COLORING_GLOBAL = 0,IS_COLORING_GHOSTED = 1) 24: PetscEnum IS_GENERAL,IS_STRIDE,IS_BLOCK 25: parameter (IS_GENERAL = 0,IS_STRIDE = 1,IS_BLOCK = 2) 27: PetscEnum IS_GTOLM_MASK,IS_GTOLM_DROP 28: parameter (IS_GTOLM_MASK =0,IS_GTOLM_DROP = 1) 30: ! 31: ! End of Fortran include file for the IS package in PETSc 33: #endif