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, extends(tPetscObject) :: tIS
7: end type tIS
8: IS, parameter :: PETSC_NULL_IS = tIS(0)
9: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
10: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_IS
11: #endif
13: type, extends(tPetscObject) :: tISColoring
14: end type tISColoring
15: IS, parameter :: PETSC_NULL_IS_COLORING = tIS(0)
16: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
17: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_IS_COLORING
18: #endif
20: type, extends(tPetscObject) :: tPetscSection
21: end type tPetscSection
22: PetscSection, parameter :: PETSC_NULL_SECTION = tPetscSection(0)
23: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
24: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_SECTION
25: #endif
27: type, extends(tPetscObject) :: tPetscSectionSym
28: end type tPetscSectionSym
29: PetscSectionSym, parameter :: PETSC_NULL_SECTION_SYM = tPetscSectionSym(0)
30: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
31: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_SECTION_SYM
32: #endif
34: type, extends(tPetscObject) :: tPetscSF
35: end type tPetscSF
36: PetscSF, parameter :: PETSC_NULL_SF = tPetscSF(0)
37: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
38: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_SF
39: #endif
41: type :: tPetscLayout
42: PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE
43: end type tPetscLayout
44: PetscLayout, parameter :: PETSC_NULL_LAYOUT = tPetscLayout(0)
45: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
46: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_LAYOUT
47: #endif
49: type PetscSFNode
50: PetscInt rank
51: PetscInt index
52: end type PetscSFNode
54: PetscEnum, parameter :: IS_COLORING_GLOBAL = 0
55: PetscEnum, parameter :: IS_COLORING_LOCAL = 1
57: PetscEnum, parameter :: IS_GENERAL = 0
58: PetscEnum, parameter :: IS_STRIDE = 1
59: PetscEnum, parameter :: IS_BLOCK = 2
61: PetscEnum, parameter :: IS_GTOLM_MASK =0
62: PetscEnum, parameter :: IS_GTOLM_DROP = 1
63: !
64: ! ISInfo; must match those in include/petscis.h
65: !
66: PetscEnum, parameter :: IS_INFO_MIN = -1
67: PetscEnum, parameter :: IS_SORTED = 0
68: PetscEnum, parameter :: IS_UNIQUE = 1
69: PetscEnum, parameter :: IS_PERMUTATION = 2
70: PetscEnum, parameter :: IS_INTERVAL = 3
71: PetscEnum, parameter :: IS_IDENTITY = 4
72: PetscEnum, parameter :: IS_INFO_MAX = 5
73: !
74: ! ISInfoType; must match those in include/petscis.h
75: !
76: PetscEnum, parameter :: IS_LOCAL = 0
77: PetscEnum, parameter :: IS_GLOBAL = 1
79: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
80: !DEC$ ATTRIBUTES DLLEXPORT::IS_COLORING_GLOBAL
81: !DEC$ ATTRIBUTES DLLEXPORT::IS_COLORING_LOCAL
82: !DEC$ ATTRIBUTES DLLEXPORT::IS_GENERAL
83: !DEC$ ATTRIBUTES DLLEXPORT::IS_STRIDE
84: !DEC$ ATTRIBUTES DLLEXPORT::IS_BLOCK
85: !DEC$ ATTRIBUTES DLLEXPORT::IS_GTOLM_MASK
86: !DEC$ ATTRIBUTES DLLEXPORT::IS_GTOLM_DROP
87: #endif