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 type(tPetscLayout)

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

     26: #define ISLocalToGlobalMapping type(tISLocalToGlobalMapping)

     28: #define ISColoringValue PETSC_IS_COLORING_VALUE_TYPE_F

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

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