source: issm/trunk-jpl/externalpackages/petsc-dev/src/include/finclude/ftn-custom/petscdmmesh.h90@ 11896

Last change on this file since 11896 was 11896, checked in by habbalf, 13 years ago

petsc-dev : Petsc development code in external packages. Mercurial updates
File size: 7.0 KB
Line 
1
2#if !defined(PETSC_USE_FORTRAN_MODULES)
3#include "finclude/ftn-custom/petscdmmeshdef.h90"
4#endif
5
6#include "finclude/ftn-custom/petscdmhide.h90"
7
8#if defined(PETSC_USE_FORTRAN_DATATYPES) && !defined(SECTIONREAL_HIDE)
9#define SECTIONREAL_HIDE type(SectionReal)
10#define SECTIONINT_HIDE type(SectionInt)
11#elif !defined(SECTIONREAL_HIDE)
12#define SECTIONREAL_HIDE SectionReal
13#define SECTIONINT_HIDE SectionInt
14#endif
15
16#if defined(PETSC_USE_FORTRAN_DATATYPES) && !defined(USE_DMMESH_HIDE)
17# define USE_DMMESH_HIDE use petscdmmeshdef
18#elif !defined(USE_DMMESH_HIDE)
19# define USE_DMMESH_HIDE
20#endif
21
22 Interface
23 Subroutine DMMeshGetCoordinatesF90(m,array,ierr)
24 USE_DMMESH_HIDE
25 PetscReal, pointer :: array(:,:)
26 PetscErrorCode ierr
27 DM_HIDE m
28 End Subroutine
29 End Interface
30
31 Interface
32 Subroutine DMMeshRestoreCoordinatesF90(m,array,ierr)
33 USE_DMMESH_HIDE
34 PetscReal, pointer :: array(:,:)
35 PetscErrorCode ierr
36 DM_HIDE m
37 End Subroutine
38 End Interface
39
40 Interface
41 Subroutine DMMeshGetElementsF90(m,array,ierr)
42 USE_DMMESH_HIDE
43 PetscInt, pointer :: array(:,:)
44 PetscErrorCode ierr
45 DM_HIDE m
46 End Subroutine
47 End Interface
48
49 Interface
50 Subroutine DMMeshRestoreElementsF90(m,array,ierr)
51 USE_DMMESH_HIDE
52 PetscInt, pointer :: array(:,:)
53 PetscErrorCode ierr
54 DM_HIDE m
55 End Subroutine
56 End Interface
57
58 Interface
59 Subroutine DMMeshGetConeF90(m,p,array,ierr)
60 USE_DMMESH_HIDE
61 PetscInt, pointer :: array(:)
62 PetscInt p
63 PetscErrorCode ierr
64 DM_HIDE m
65 End Subroutine
66 End Interface
67
68 Interface
69 Subroutine DMMeshRestoreConeF90(m,p,array,ierr)
70 USE_DMMESH_HIDE
71 PetscInt, pointer :: array(:)
72 PetscInt p
73 PetscErrorCode ierr
74 DM_HIDE m
75 End Subroutine
76 End Interface
77
78 Interface
79 Subroutine SectionGetArrayF90(m,name,array,ierr)
80 USE_DMMESH_HIDE
81 CHARACTER*80 name
82 PetscReal, pointer :: array(:,:)
83 PetscErrorCode ierr
84 DM_HIDE m
85 End Subroutine
86 End Interface
87
88 Interface
89 Subroutine SectionGetArray1DF90(m,name,array,ierr)
90 USE_DMMESH_HIDE
91 CHARACTER*80 name
92 PetscReal, pointer :: array(:)
93 PetscErrorCode ierr
94 DM_HIDE m
95 End Subroutine
96 End Interface
97
98 Interface
99 Subroutine BCSectionGetArrayF90(m,name,array,ierr)
100 USE_DMMESH_HIDE
101 CHARACTER*80 name
102 PetscInt, pointer :: array(:,:)
103 PetscErrorCode ierr
104 DM_HIDE m
105 End Subroutine
106 End Interface
107
108 Interface
109 Subroutine BCSectionGetArray1DF90(m,name,array,ierr)
110 USE_DMMESH_HIDE
111 CHARACTER*80 name
112 PetscInt, pointer :: array(:)
113 PetscErrorCode ierr
114 DM_HIDE m
115 End Subroutine
116 End Interface
117
118 Interface
119 Subroutine BCSectionRealGetArrayF90(m,name,array,ierr)
120 USE_DMMESH_HIDE
121 CHARACTER*80 name
122 PetscReal, pointer :: array(:,:)
123 PetscErrorCode ierr
124 DM_HIDE m
125 End Subroutine
126 End Interface
127
128 Interface
129 Subroutine BCFUNCGetArrayF90(m,array,ierr)
130 USE_DMMESH_HIDE
131 PetscReal, pointer :: array(:,:)
132 PetscErrorCode ierr
133 DM_HIDE m
134 End Subroutine
135 End Interface
136
137 Interface
138 Subroutine DMMeshGetLabelIds(m,name,array,ierr)
139 USE_DMMESH_HIDE
140 PetscErrorCode ierr
141 PetscInt, pointer :: array(:)
142 CHARACTER*80 name
143 DM_HIDE m
144 End Subroutine
145 End Interface
146
147 Interface
148 Subroutine DMMeshGetStratum(m,name,value,array,ierr)
149 USE_DMMESH_HIDE
150 PetscErrorCode ierr
151 PetscInt, pointer :: array(:)
152 PetscInt value
153 CHARACTER*80 name
154 DM_HIDE m
155 End Subroutine
156 End Interface
157
158 Interface
159 Subroutine SectionRealRestrict(section,e,values,ierr)
160 USE_DMMESH_HIDE
161 PetscErrorCode ierr
162 PetscScalar, pointer :: values(:)
163 PetscInt e
164 SECTIONREAL_HIDE section
165 End Subroutine
166 End Interface
167
168 Interface
169 Subroutine SectionIntRestrict(section,e,values,ierr)
170 USE_DMMESH_HIDE
171 PetscErrorCode ierr
172 PetscInt, pointer :: values(:)
173 PetscInt e
174 SECTIONINT_HIDE section
175 End Subroutine
176 End Interface
177
178 Interface
179 Subroutine SectionRealRestore(section,e,values,ierr)
180 USE_DMMESH_HIDE
181 PetscErrorCode ierr
182 PetscScalar, pointer :: values(:)
183 PetscInt e
184 SECTIONREAL_HIDE section
185 End Subroutine
186 End Interface
187
188 Interface
189 Subroutine SectionIntRestore(section,e,values,ierr)
190 USE_DMMESH_HIDE
191 PetscErrorCode ierr
192 PetscInt, pointer :: values(:)
193 PetscInt e
194 SECTIONINT_HIDE section
195 End Subroutine
196 End Interface
197
198 Interface
199 Subroutine SectionRealRestrictClosure(section,m,e,n,values,ierr)
200 USE_DMMESH_HIDE
201 PetscErrorCode ierr
202 PetscScalar, pointer :: values(:)
203 PetscInt n, e
204 SECTIONREAL_HIDE section
205 DM_HIDE m
206 End Subroutine
207 End Interface
208
209 Interface
210 Subroutine SectionIntRestrictClosure(section,m,e,n,values,ierr)
211 USE_DMMESH_HIDE
212 PetscErrorCode ierr
213 PetscInt, pointer :: values(:)
214 PetscInt n, e
215 SECTIONINT_HIDE section
216 DM_HIDE m
217 End Subroutine
218 End Interface
219
220 Interface
221 Subroutine SectionRealUpdate(section,e,values,mode,ierr)
222 USE_DMMESH_HIDE
223 PetscErrorCode ierr
224 PetscScalar, pointer :: values(:)
225 PetscInt e
226 InsertMode mode
227 SECTIONREAL_HIDE section
228 End Subroutine
229 End Interface
230
231 Interface
232 Subroutine SectionIntUpdate(section,e,values,mode,ierr)
233 USE_DMMESH_HIDE
234 PetscErrorCode ierr
235 PetscInt, pointer :: values(:)
236 PetscInt e
237 InsertMode mode
238 SECTIONINT_HIDE section
239 End Subroutine
240 End Interface
241
242 Interface
243 Subroutine SectionRealUpdateClosure(section,m,e,values,mode, &
244 &ierr)
245 USE_DMMESH_HIDE
246 PetscErrorCode ierr
247 PetscScalar, pointer :: values(:)
248 PetscInt e
249 InsertMode mode
250 SECTIONREAL_HIDE section
251 DM_HIDE m
252 End Subroutine
253 End Interface
254
255 Interface
256 Subroutine SectionIntUpdateClosure(section,m,e,values,mode,ierr)
257 USE_DMMESH_HIDE
258 PetscErrorCode ierr
259 PetscInt, pointer :: values(:)
260 PetscInt e
261 InsertMode mode
262 SECTIONINT_HIDE section
263 DM_HIDE m
264 End Subroutine
265 End Interface
Note: See TracBrowser for help on using the repository browser.