Actual source code: petscis.h

  1: !
  2: !  Used by petscvecmod.F90 to create Fortran module file
  3: !
  4: #include "petsc/finclude/petscis.h"

  6:       type tIS
  7:         PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE
  8:       end type tIS
  9:       type tISColoring
 10:         PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE
 11:       end type tISColoring
 12:       type tPetscSection
 13:         PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE
 14:       end type tPetscSection
 15:       type tPetscSectionSym
 16:         PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE
 17:       end type tPetscSectionSym
 18:       type tPetscSF
 19:         PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE
 20:       end type tPetscSF
 21:       type PetscSFNode
 22:         sequence
 23:         PetscInt    rank
 24:         PetscInt    index
 25:       end type PetscSFNode

 27:       IS, parameter :: PETSC_NULL_IS = tIS(0)
 28:       PetscSF, parameter :: PETSC_NULL_SF = tPetscSF(0)
 29:       PetscSection, parameter :: PETSC_NULL_SECTION = tPetscSection(0)
 30:       PetscSectionSym, parameter :: PETSC_NULL_SECTIONSYM = tPetscSectionSym(0)

 32:       PetscEnum, parameter :: IS_COLORING_GLOBAL = 0
 33:       PetscEnum, parameter :: IS_COLORING_LOCAL = 1

 35:       PetscEnum, parameter :: IS_GENERAL = 0
 36:       PetscEnum, parameter :: IS_STRIDE = 1
 37:       PetscEnum, parameter :: IS_BLOCK = 2

 39:       PetscEnum, parameter :: IS_GTOLM_MASK =0
 40:       PetscEnum, parameter :: IS_GTOLM_DROP = 1
 41: !
 42: !  ISInfo; must match those in include/petscis.h
 43: !
 44:       PetscEnum, parameter :: IS_INFO_MIN = -1
 45:       PetscEnum, parameter :: IS_SORTED = 0
 46:       PetscEnum, parameter :: IS_UNIQUE = 1
 47:       PetscEnum, parameter :: IS_PERMUTATION = 2
 48:       PetscEnum, parameter :: IS_INTERVAL = 3
 49:       PetscEnum, parameter :: IS_IDENTITY = 4
 50:       PetscEnum, parameter :: IS_INFO_MAX = 5
 51: !
 52: !  ISInfoType; must match those in include/petscis.h
 53: !
 54:       PetscEnum, parameter :: IS_LOCAL = 0
 55:       PetscEnum, parameter :: IS_GLOBAL = 1

 57: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
 58: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_IS
 59: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_SF
 60: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_SECTION
 61: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_SECTIONSYM
 62: !DEC$ ATTRIBUTES DLLEXPORT::IS_COLORING_GLOBAL
 63: !DEC$ ATTRIBUTES DLLEXPORT::IS_COLORING_LOCAL
 64: !DEC$ ATTRIBUTES DLLEXPORT::IS_GENERAL
 65: !DEC$ ATTRIBUTES DLLEXPORT::IS_STRIDE
 66: !DEC$ ATTRIBUTES DLLEXPORT::IS_BLOCK
 67: !DEC$ ATTRIBUTES DLLEXPORT::IS_GTOLM_MASK
 68: !DEC$ ATTRIBUTES DLLEXPORT::IS_GTOLM_DROP
 69: #endif