Actual source code: petscis.h90
1: !
2: ! These are Fortran interfaces that are custom hand coded because
3: ! they cannot currently be generated automatically
4: !
6: Interface
7: Subroutine PetscLayoutFindOwner(a,b,z)
8: PetscLayout a
9: PetscMPIInt b
10: PetscErrorCode z
11: End Subroutine
12: End Interface
14: Interface
15: Subroutine PetscLayoutFindOwnerIndex(a,b,c,z)
16: PetscLayout a
17: PetscMPIInt b
18: PetscInt c
19: PetscErrorCode z
20: End Subroutine
21: End Interface
23: Interface
24: Subroutine ISGetIndicesF90(i,array,ierr)
25: import tIS
26: PetscInt, pointer :: array(:)
27: PetscErrorCode ierr
28: IS i
29: End Subroutine
30: End Interface
32: Interface
33: Subroutine ISRestoreIndicesF90(i,array,ierr)
34: import tIS
35: PetscInt, pointer :: array(:)
36: PetscErrorCode ierr
37: IS i
38: End Subroutine
39: End Interface
41: Interface
42: Subroutine ISLocalToGlobalMappingGetIndicesF90(i,array,ierr)
43: PetscInt, pointer :: array(:)
44: PetscErrorCode ierr
45: ISLocalToGlobalMapping i
46: End Subroutine
47: End Interface
49: Interface
50: Subroutine ISLocalToGlobalMappingRestoreIndicesF90(i,array,ierr)
51: PetscInt, pointer :: array(:)
52: PetscErrorCode ierr
53: ISLocalToGlobalMapping i
54: End Subroutine
55: End Interface
57: ! ------------------------------------------------------
59: Interface
60: Subroutine ISBlockGetIndicesF90(i,array,ierr)
61: import tIS
62: PetscInt, pointer :: array(:)
63: PetscErrorCode ierr
64: IS i
65: End Subroutine
66: End Interface
69: Interface
70: Subroutine ISBlockRestoreIndicesF90(i,array,ierr)
71: import tIS
72: PetscInt, pointer :: array(:)
73: PetscErrorCode ierr
74: IS i
75: End Subroutine
76: End Interface
78: ! ------------------------------------------------------
79: Interface
80: Subroutine ISColoringGetISF90(ic,n,isa,ierr)
81: import tIS,tISColoring
82: IS, pointer :: isa(:)
83: PetscInt n
84: PetscErrorCode ierr
85: ISColoring ic
86: End Subroutine
87: End Interface
89: Interface
90: Subroutine ISColoringRestoreISF90(ic,isa,ierr)
91: import tIS,tISColoring
92: IS, pointer :: isa(:)
93: PetscErrorCode ierr
94: ISColoring ic
95: End Subroutine
96: End Interface
98: Interface
99: Subroutine PetscSectionGetConstraintIndicesF90(s,p,a,ierr)
100: import tPetscSection
101: PetscInt p
102: PetscInt, pointer :: a(:)
103: PetscErrorCode ierr
104: PetscSection s
105: End Subroutine
106: End Interface
108: Interface
109: Subroutine PetscSectionRestoreConstraintIndicesF90(s,p,a,ierr)
110: import tPetscSection
111: PetscInt p
112: PetscInt, pointer :: a(:)
113: PetscErrorCode ierr
114: PetscSection s
115: End Subroutine
116: End Interface
118: Interface
119: Subroutine PetscSectionSetConstraintIndicesF90(s,p,a,ierr)
120: import tPetscSection
121: PetscInt p
122: PetscInt, pointer :: a(:)
123: PetscErrorCode ierr
124: PetscSection s
125: End Subroutine
126: End Interface
128: Interface
129: subroutine ISSetType(a,b,z)
130: import tIS
131: IS a
132: character(*) b
133: integer z
134: end subroutine
135: end Interface
137: Interface
138: subroutine ISView(a,b,z)
139: import tIS,tPetscViewer
140: IS a
141: PetscViewer b
142: PetscErrorCode z
143: end subroutine
144: end Interface