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