Actual source code: petscis.h
petsc-3.12.1 2019-10-22
Report Typos and Errors

      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 ISLocalToGlobalMapping PetscFortranAddr
     21: #define ISGlobalToLocalType character*(80)
     22: #define ISGlobalToLocalMappingMode PetscEnum
     23: #define ISColoringType PetscEnum

     25: #define ISColoringValue PETSC_IS_COLOR_VALUE_TYPE_F

     27: #define ISGENERAL 'general'
     28: #define ISSTRIDE 'stride'
     29: #define ISBLOCK 'block'

     31: #define ISGLOBALTOLOCALMAPPINGBASIC 'basic'
     32: #define ISGLOBALTOLOCALMAPPINGHASH  'hash'
     33: #endif