Actual source code: petscisdef.h
petsc-3.7.1 2016-05-15
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)

     8:  #include petsc/finclude/petscsysdef.h

     10: #if !defined(PETSC_USE_FORTRAN_DATATYPES)
     11: #define IS PetscFortranAddr
     12: #define ISColoring PetscFortranAddr
     13: #define PetscSection PetscFortranAddr
     14: #endif

     16: #define PetscSF PetscFortranAddr
     17: #define PetscLayout PetscFortranAddr

     19: #define ISType PetscEnum
     20: #define ISLocalToGlobalMapping PetscFortranAddr
     21: #define ISGlobalToLocalMappingType PetscEnum
     22: #define ISColoringType PetscEnum

     24: #if PETSC_IS_COLOR_VALUE_TYPE_SIZE == 1
     25: #define ISColoringValue integer1
     26: #elif PETSC_IS_COLOR_VALUE_TYPE_SIZE == 2
     27: #define ISColoringValue integer2
     28: #else
     29: #error "Unknown size for IS_COLOR_VALUE_TYPE"
     30: #endif

     32: #define ISGENERAL 'general'
     33: #define ISSTRIDE 'stride'
     34: #define ISBLOCK 'block'
     35: #endif