1: ! 2: ! 3: ! Include file for Fortran use of the IS (index set) package in PETSc 4: ! 5: #include "petsc/finclude/petscis.h" 7: type tIS 8: PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE 9: end type tIS 10: type tISColoring 11: PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE 12: end type tISColoring 13: type tPetscSection 14: PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE 15: end type tPetscSection 16: type tPetscSectionSym 17: PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE 18: end type tPetscSectionSym 19: type tPetscSF 20: PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE 21: end type tPetscSF 22: type PetscSFNode 23: sequence 24: PetscInt rank 25: PetscInt index 26: end type PetscSFNode 28: IS, parameter :: PETSC_NULL_IS = tIS(-1) 29: PetscSF, parameter :: PETSC_NULL_SF = tPetscSF(-1) 30: PetscSection, parameter :: PETSC_NULL_SECTION = & 31: & tPetscSection(-1) 32: PetscSectionSym, parameter :: PETSC_NULL_SECTIONSYM = & 33: & tPetscSectionSym(-1) 35: PetscEnum IS_COLORING_GLOBAL 36: PetscEnum IS_COLORING_LOCAL 37: parameter (IS_COLORING_GLOBAL = 0,IS_COLORING_LOCAL = 1) 39: PetscEnum IS_GENERAL 40: PetscEnum IS_STRIDE 41: PetscEnum IS_BLOCK 42: parameter (IS_GENERAL = 0,IS_STRIDE = 1,IS_BLOCK = 2) 44: PetscEnum IS_GTOLM_MASK 45: PetscEnum IS_GTOLM_DROP 46: parameter (IS_GTOLM_MASK =0,IS_GTOLM_DROP = 1) 48: ! 49: ! End of Fortran include file for the IS package in PETSc