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 (PETSCISDEF_H)
  6: #define PETSCISDEF_H

  8: #include "petsc/finclude/petscsys.h"
  9: #include "petsc/finclude/petscviewer.h"

 11: #define IS type(tIS)
 12: #define ISColoring type(tISColoring)
 13: #define PetscSection type(tPetscSection)
 14: #define PetscSectionSym type(tPetscSectionSym)

 16: #define PetscSF type(tPetscSF)
 17: #define PetscLayout PetscFortranAddr

 19: #define ISType character*(80)
 20: #define ISInfo PetscEnum
 21: #define ISInfoType PetscEnum
 22: #define ISLocalToGlobalMapping PetscFortranAddr
 23: #define ISGlobalToLocalType character*(80)
 24: #define ISGlobalToLocalMappingMode PetscEnum
 25: #define ISColoringType PetscEnum

 27: #define ISColoringValue PETSC_IS_COLORING_VALUE_TYPE_F

 29: #define ISGENERAL 'general'
 30: #define ISSTRIDE 'stride'
 31: #define ISBLOCK 'block'

 33: #define ISGLOBALTOLOCALMAPPINGBASIC 'basic'
 34: #define ISGLOBALTOLOCALMAPPINGHASH  'hash'
 35: #endif