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 22: PetscEnum IS_COLORING_GHOSTED 23: parameter (IS_COLORING_GLOBAL = 0,IS_COLORING_GHOSTED = 1) 25: PetscEnum IS_GENERAL 26: PetscEnum IS_STRIDE 27: PetscEnum IS_BLOCK 28: parameter (IS_GENERAL = 0,IS_STRIDE = 1,IS_BLOCK = 2) 30: PetscEnum IS_GTOLM_MASK 31: PetscEnum IS_GTOLM_DROP 32: parameter (IS_GTOLM_MASK =0,IS_GTOLM_DROP = 1) 34: ! 35: ! End of Fortran include file for the IS package in PETSc 37: #endif