Actual source code: petscis.h

      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