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