1: !
  2: !  $Id: petscis.h,v 1.24 2001/06/21 21:20:08 bsmith Exp $;
  3: !
  4: !  Include file for Fortran use of the IS (index set) package in PETSc
  5: !
  6: #if !defined (__PETSCIS_H)

  9: #define IS PetscFortranAddr
 10: #define ISType integer
 11: #define ISColoring PetscFortranAddr
 12: #define ISLocalToGlobalMapping PetscFortranAddr
 13: #define ISGlobalToLocalMappingType integer
 14: #define ISColoringType integer


 17: #endif


 20: #if !defined (PETSC_AVOID_DECLARATIONS)

 22:       integer IS_COLORING_LOCAL,IS_COLORING_GHOSTED
 23:       parameter (IS_COLORING_LOCAL = 0,IS_COLORING_GHOSTED = 1)

 25:       integer IS_GENERAL,IS_STRIDE,IS_BLOCK
 26:       parameter (IS_GENERAL = 0,IS_STRIDE = 1,IS_BLOCK = 2)

 28:       integer IS_GTOLM_MASK,IS_GTOLM_DROP
 29:       parameter (IS_GTOLM_MASK =0,IS_GTOLM_DROP = 1)

 31: !
 32: !  End of Fortran include file for the IS package in PETSc

 34: #endif