1 #include "petscsys.h"
2 #include "petscfix.h"
3 #include "petsc/private/fortranimpl.h"
4 /* dm.c */
5 /* Fortran interface file */
6
7 /*
8 * This file was generated automatically by bfort from the C source
9 * file.
10 */
11
12 #ifdef PETSC_USE_POINTER_CONVERSION
13 #if defined(__cplusplus)
14 extern "C" {
15 #endif
16 extern void *PetscToPointer(void*);
17 extern int PetscFromPointer(void *);
18 extern void PetscRmPointer(void*);
19 #if defined(__cplusplus)
20 }
21 #endif
22
23 #else
24
25 #define PetscToPointer(a) (*(PetscFortranAddr *)(a))
26 #define PetscFromPointer(a) (PetscFortranAddr)(a)
27 #define PetscRmPointer(a)
28 #endif
29
30 #include "petscdm.h"
31 #include "petscdmlabel.h"
32 #include "petscds.h"
33 #ifdef PETSC_HAVE_FORTRAN_CAPS
34 #define dmcreate_ DMCREATE
35 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
36 #define dmcreate_ dmcreate
37 #endif
38 #ifdef PETSC_HAVE_FORTRAN_CAPS
39 #define dmclone_ DMCLONE
40 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
41 #define dmclone_ dmclone
42 #endif
43 #ifdef PETSC_HAVE_FORTRAN_CAPS
44 #define vecgetdm_ VECGETDM
45 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
46 #define vecgetdm_ vecgetdm
47 #endif
48 #ifdef PETSC_HAVE_FORTRAN_CAPS
49 #define vecsetdm_ VECSETDM
50 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
51 #define vecsetdm_ vecsetdm
52 #endif
53 #ifdef PETSC_HAVE_FORTRAN_CAPS
54 #define matgetdm_ MATGETDM
55 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
56 #define matgetdm_ matgetdm
57 #endif
58 #ifdef PETSC_HAVE_FORTRAN_CAPS
59 #define matsetdm_ MATSETDM
60 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
61 #define matsetdm_ matsetdm
62 #endif
63 #ifdef PETSC_HAVE_FORTRAN_CAPS
64 #define dmdestroy_ DMDESTROY
65 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
66 #define dmdestroy_ dmdestroy
67 #endif
68 #ifdef PETSC_HAVE_FORTRAN_CAPS
69 #define dmsetup_ DMSETUP
70 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
71 #define dmsetup_ dmsetup
72 #endif
73 #ifdef PETSC_HAVE_FORTRAN_CAPS
74 #define dmsetfromoptions_ DMSETFROMOPTIONS
75 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
76 #define dmsetfromoptions_ dmsetfromoptions
77 #endif
78 #ifdef PETSC_HAVE_FORTRAN_CAPS
79 #define dmcreateglobalvector_ DMCREATEGLOBALVECTOR
80 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
81 #define dmcreateglobalvector_ dmcreateglobalvector
82 #endif
83 #ifdef PETSC_HAVE_FORTRAN_CAPS
84 #define dmcreatelocalvector_ DMCREATELOCALVECTOR
85 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
86 #define dmcreatelocalvector_ dmcreatelocalvector
87 #endif
88 #ifdef PETSC_HAVE_FORTRAN_CAPS
89 #define dmgetlocaltoglobalmapping_ DMGETLOCALTOGLOBALMAPPING
90 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
91 #define dmgetlocaltoglobalmapping_ dmgetlocaltoglobalmapping
92 #endif
93 #ifdef PETSC_HAVE_FORTRAN_CAPS
94 #define dmgetblocksize_ DMGETBLOCKSIZE
95 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
96 #define dmgetblocksize_ dmgetblocksize
97 #endif
98 #ifdef PETSC_HAVE_FORTRAN_CAPS
99 #define dmcreateinterpolation_ DMCREATEINTERPOLATION
100 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
101 #define dmcreateinterpolation_ dmcreateinterpolation
102 #endif
103 #ifdef PETSC_HAVE_FORTRAN_CAPS
104 #define dmcreateinterpolationscale_ DMCREATEINTERPOLATIONSCALE
105 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
106 #define dmcreateinterpolationscale_ dmcreateinterpolationscale
107 #endif
108 #ifdef PETSC_HAVE_FORTRAN_CAPS
109 #define dmcreaterestriction_ DMCREATERESTRICTION
110 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
111 #define dmcreaterestriction_ dmcreaterestriction
112 #endif
113 #ifdef PETSC_HAVE_FORTRAN_CAPS
114 #define dmcreateinjection_ DMCREATEINJECTION
115 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
116 #define dmcreateinjection_ dmcreateinjection
117 #endif
118 #ifdef PETSC_HAVE_FORTRAN_CAPS
119 #define dmcreatemassmatrix_ DMCREATEMASSMATRIX
120 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
121 #define dmcreatemassmatrix_ dmcreatemassmatrix
122 #endif
123 #ifdef PETSC_HAVE_FORTRAN_CAPS
124 #define dmcreatecoloring_ DMCREATECOLORING
125 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
126 #define dmcreatecoloring_ dmcreatecoloring
127 #endif
128 #ifdef PETSC_HAVE_FORTRAN_CAPS
129 #define dmcreatematrix_ DMCREATEMATRIX
130 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
131 #define dmcreatematrix_ dmcreatematrix
132 #endif
133 #ifdef PETSC_HAVE_FORTRAN_CAPS
134 #define dmsetmatrixpreallocateonly_ DMSETMATRIXPREALLOCATEONLY
135 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
136 #define dmsetmatrixpreallocateonly_ dmsetmatrixpreallocateonly
137 #endif
138 #ifdef PETSC_HAVE_FORTRAN_CAPS
139 #define dmsetmatrixstructureonly_ DMSETMATRIXSTRUCTUREONLY
140 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
141 #define dmsetmatrixstructureonly_ dmsetmatrixstructureonly
142 #endif
143 #ifdef PETSC_HAVE_FORTRAN_CAPS
144 #define dmcreatesubdm_ DMCREATESUBDM
145 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
146 #define dmcreatesubdm_ dmcreatesubdm
147 #endif
148 #ifdef PETSC_HAVE_FORTRAN_CAPS
149 #define dmrefine_ DMREFINE
150 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
151 #define dmrefine_ dmrefine
152 #endif
153 #ifdef PETSC_HAVE_FORTRAN_CAPS
154 #define dminterpolate_ DMINTERPOLATE
155 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
156 #define dminterpolate_ dminterpolate
157 #endif
158 #ifdef PETSC_HAVE_FORTRAN_CAPS
159 #define dmgetrefinelevel_ DMGETREFINELEVEL
160 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
161 #define dmgetrefinelevel_ dmgetrefinelevel
162 #endif
163 #ifdef PETSC_HAVE_FORTRAN_CAPS
164 #define dmsetrefinelevel_ DMSETREFINELEVEL
165 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
166 #define dmsetrefinelevel_ dmsetrefinelevel
167 #endif
168 #ifdef PETSC_HAVE_FORTRAN_CAPS
169 #define dmhasbasistransform_ DMHASBASISTRANSFORM
170 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
171 #define dmhasbasistransform_ dmhasbasistransform
172 #endif
173 #ifdef PETSC_HAVE_FORTRAN_CAPS
174 #define dmglobaltolocal_ DMGLOBALTOLOCAL
175 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
176 #define dmglobaltolocal_ dmglobaltolocal
177 #endif
178 #ifdef PETSC_HAVE_FORTRAN_CAPS
179 #define dmglobaltolocalbegin_ DMGLOBALTOLOCALBEGIN
180 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
181 #define dmglobaltolocalbegin_ dmglobaltolocalbegin
182 #endif
183 #ifdef PETSC_HAVE_FORTRAN_CAPS
184 #define dmglobaltolocalend_ DMGLOBALTOLOCALEND
185 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
186 #define dmglobaltolocalend_ dmglobaltolocalend
187 #endif
188 #ifdef PETSC_HAVE_FORTRAN_CAPS
189 #define dmlocaltoglobal_ DMLOCALTOGLOBAL
190 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
191 #define dmlocaltoglobal_ dmlocaltoglobal
192 #endif
193 #ifdef PETSC_HAVE_FORTRAN_CAPS
194 #define dmlocaltoglobalbegin_ DMLOCALTOGLOBALBEGIN
195 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
196 #define dmlocaltoglobalbegin_ dmlocaltoglobalbegin
197 #endif
198 #ifdef PETSC_HAVE_FORTRAN_CAPS
199 #define dmlocaltoglobalend_ DMLOCALTOGLOBALEND
200 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
201 #define dmlocaltoglobalend_ dmlocaltoglobalend
202 #endif
203 #ifdef PETSC_HAVE_FORTRAN_CAPS
204 #define dmlocaltolocalbegin_ DMLOCALTOLOCALBEGIN
205 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
206 #define dmlocaltolocalbegin_ dmlocaltolocalbegin
207 #endif
208 #ifdef PETSC_HAVE_FORTRAN_CAPS
209 #define dmlocaltolocalend_ DMLOCALTOLOCALEND
210 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
211 #define dmlocaltolocalend_ dmlocaltolocalend
212 #endif
213 #ifdef PETSC_HAVE_FORTRAN_CAPS
214 #define dmcoarsen_ DMCOARSEN
215 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
216 #define dmcoarsen_ dmcoarsen
217 #endif
218 #ifdef PETSC_HAVE_FORTRAN_CAPS
219 #define dmrestrict_ DMRESTRICT
220 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
221 #define dmrestrict_ dmrestrict
222 #endif
223 #ifdef PETSC_HAVE_FORTRAN_CAPS
224 #define dmsubdomainrestrict_ DMSUBDOMAINRESTRICT
225 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
226 #define dmsubdomainrestrict_ dmsubdomainrestrict
227 #endif
228 #ifdef PETSC_HAVE_FORTRAN_CAPS
229 #define dmgetcoarsenlevel_ DMGETCOARSENLEVEL
230 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
231 #define dmgetcoarsenlevel_ dmgetcoarsenlevel
232 #endif
233 #ifdef PETSC_HAVE_FORTRAN_CAPS
234 #define dmsetcoarsenlevel_ DMSETCOARSENLEVEL
235 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
236 #define dmsetcoarsenlevel_ dmsetcoarsenlevel
237 #endif
238 #ifdef PETSC_HAVE_FORTRAN_CAPS
239 #define dmsetapplicationcontext_ DMSETAPPLICATIONCONTEXT
240 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
241 #define dmsetapplicationcontext_ dmsetapplicationcontext
242 #endif
243 #ifdef PETSC_HAVE_FORTRAN_CAPS
244 #define dmgetapplicationcontext_ DMGETAPPLICATIONCONTEXT
245 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
246 #define dmgetapplicationcontext_ dmgetapplicationcontext
247 #endif
248 #ifdef PETSC_HAVE_FORTRAN_CAPS
249 #define dmhasvariablebounds_ DMHASVARIABLEBOUNDS
250 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
251 #define dmhasvariablebounds_ dmhasvariablebounds
252 #endif
253 #ifdef PETSC_HAVE_FORTRAN_CAPS
254 #define dmhascoloring_ DMHASCOLORING
255 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
256 #define dmhascoloring_ dmhascoloring
257 #endif
258 #ifdef PETSC_HAVE_FORTRAN_CAPS
259 #define dmhascreaterestriction_ DMHASCREATERESTRICTION
260 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
261 #define dmhascreaterestriction_ dmhascreaterestriction
262 #endif
263 #ifdef PETSC_HAVE_FORTRAN_CAPS
264 #define dmhascreateinjection_ DMHASCREATEINJECTION
265 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
266 #define dmhascreateinjection_ dmhascreateinjection
267 #endif
268 #ifdef PETSC_HAVE_FORTRAN_CAPS
269 #define dmgetlocalboundingbox_ DMGETLOCALBOUNDINGBOX
270 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
271 #define dmgetlocalboundingbox_ dmgetlocalboundingbox
272 #endif
273 #ifdef PETSC_HAVE_FORTRAN_CAPS
274 #define dmgetboundingbox_ DMGETBOUNDINGBOX
275 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
276 #define dmgetboundingbox_ dmgetboundingbox
277 #endif
278 #ifdef PETSC_HAVE_FORTRAN_CAPS
279 #define dmgetsection_ DMGETSECTION
280 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
281 #define dmgetsection_ dmgetsection
282 #endif
283 #ifdef PETSC_HAVE_FORTRAN_CAPS
284 #define dmgetlocalsection_ DMGETLOCALSECTION
285 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
286 #define dmgetlocalsection_ dmgetlocalsection
287 #endif
288 #ifdef PETSC_HAVE_FORTRAN_CAPS
289 #define dmsetsection_ DMSETSECTION
290 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
291 #define dmsetsection_ dmsetsection
292 #endif
293 #ifdef PETSC_HAVE_FORTRAN_CAPS
294 #define dmsetlocalsection_ DMSETLOCALSECTION
295 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
296 #define dmsetlocalsection_ dmsetlocalsection
297 #endif
298 #ifdef PETSC_HAVE_FORTRAN_CAPS
299 #define dmgetdefaultconstraints_ DMGETDEFAULTCONSTRAINTS
300 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
301 #define dmgetdefaultconstraints_ dmgetdefaultconstraints
302 #endif
303 #ifdef PETSC_HAVE_FORTRAN_CAPS
304 #define dmsetdefaultconstraints_ DMSETDEFAULTCONSTRAINTS
305 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
306 #define dmsetdefaultconstraints_ dmsetdefaultconstraints
307 #endif
308 #ifdef PETSC_HAVE_FORTRAN_CAPS
309 #define dmgetglobalsection_ DMGETGLOBALSECTION
310 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
311 #define dmgetglobalsection_ dmgetglobalsection
312 #endif
313 #ifdef PETSC_HAVE_FORTRAN_CAPS
314 #define dmsetglobalsection_ DMSETGLOBALSECTION
315 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
316 #define dmsetglobalsection_ dmsetglobalsection
317 #endif
318 #ifdef PETSC_HAVE_FORTRAN_CAPS
319 #define dmgetsectionsf_ DMGETSECTIONSF
320 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
321 #define dmgetsectionsf_ dmgetsectionsf
322 #endif
323 #ifdef PETSC_HAVE_FORTRAN_CAPS
324 #define dmsetsectionsf_ DMSETSECTIONSF
325 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
326 #define dmsetsectionsf_ dmsetsectionsf
327 #endif
328 #ifdef PETSC_HAVE_FORTRAN_CAPS
329 #define dmgetpointsf_ DMGETPOINTSF
330 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
331 #define dmgetpointsf_ dmgetpointsf
332 #endif
333 #ifdef PETSC_HAVE_FORTRAN_CAPS
334 #define dmsetpointsf_ DMSETPOINTSF
335 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
336 #define dmsetpointsf_ dmsetpointsf
337 #endif
338 #ifdef PETSC_HAVE_FORTRAN_CAPS
339 #define dmclearfields_ DMCLEARFIELDS
340 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
341 #define dmclearfields_ dmclearfields
342 #endif
343 #ifdef PETSC_HAVE_FORTRAN_CAPS
344 #define dmgetnumfields_ DMGETNUMFIELDS
345 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
346 #define dmgetnumfields_ dmgetnumfields
347 #endif
348 #ifdef PETSC_HAVE_FORTRAN_CAPS
349 #define dmsetnumfields_ DMSETNUMFIELDS
350 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
351 #define dmsetnumfields_ dmsetnumfields
352 #endif
353 #ifdef PETSC_HAVE_FORTRAN_CAPS
354 #define dmgetfield_ DMGETFIELD
355 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
356 #define dmgetfield_ dmgetfield
357 #endif
358 #ifdef PETSC_HAVE_FORTRAN_CAPS
359 #define dmsetfield_ DMSETFIELD
360 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
361 #define dmsetfield_ dmsetfield
362 #endif
363 #ifdef PETSC_HAVE_FORTRAN_CAPS
364 #define dmaddfield_ DMADDFIELD
365 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
366 #define dmaddfield_ dmaddfield
367 #endif
368 #ifdef PETSC_HAVE_FORTRAN_CAPS
369 #define dmcopyfields_ DMCOPYFIELDS
370 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
371 #define dmcopyfields_ dmcopyfields
372 #endif
373 #ifdef PETSC_HAVE_FORTRAN_CAPS
374 #define dmgetadjacency_ DMGETADJACENCY
375 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
376 #define dmgetadjacency_ dmgetadjacency
377 #endif
378 #ifdef PETSC_HAVE_FORTRAN_CAPS
379 #define dmsetadjacency_ DMSETADJACENCY
380 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
381 #define dmsetadjacency_ dmsetadjacency
382 #endif
383 #ifdef PETSC_HAVE_FORTRAN_CAPS
384 #define dmgetbasicadjacency_ DMGETBASICADJACENCY
385 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
386 #define dmgetbasicadjacency_ dmgetbasicadjacency
387 #endif
388 #ifdef PETSC_HAVE_FORTRAN_CAPS
389 #define dmsetbasicadjacency_ DMSETBASICADJACENCY
390 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
391 #define dmsetbasicadjacency_ dmsetbasicadjacency
392 #endif
393 #ifdef PETSC_HAVE_FORTRAN_CAPS
394 #define dmgetnumds_ DMGETNUMDS
395 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
396 #define dmgetnumds_ dmgetnumds
397 #endif
398 #ifdef PETSC_HAVE_FORTRAN_CAPS
399 #define dmcleards_ DMCLEARDS
400 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
401 #define dmcleards_ dmcleards
402 #endif
403 #ifdef PETSC_HAVE_FORTRAN_CAPS
404 #define dmgetds_ DMGETDS
405 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
406 #define dmgetds_ dmgetds
407 #endif
408 #ifdef PETSC_HAVE_FORTRAN_CAPS
409 #define dmgetcellds_ DMGETCELLDS
410 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
411 #define dmgetcellds_ dmgetcellds
412 #endif
413 #ifdef PETSC_HAVE_FORTRAN_CAPS
414 #define dmgetregionds_ DMGETREGIONDS
415 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
416 #define dmgetregionds_ dmgetregionds
417 #endif
418 #ifdef PETSC_HAVE_FORTRAN_CAPS
419 #define dmsetregionds_ DMSETREGIONDS
420 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
421 #define dmsetregionds_ dmsetregionds
422 #endif
423 #ifdef PETSC_HAVE_FORTRAN_CAPS
424 #define dmgetregionnumds_ DMGETREGIONNUMDS
425 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
426 #define dmgetregionnumds_ dmgetregionnumds
427 #endif
428 #ifdef PETSC_HAVE_FORTRAN_CAPS
429 #define dmsetregionnumds_ DMSETREGIONNUMDS
430 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
431 #define dmsetregionnumds_ dmsetregionnumds
432 #endif
433 #ifdef PETSC_HAVE_FORTRAN_CAPS
434 #define dmfindregionnum_ DMFINDREGIONNUM
435 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
436 #define dmfindregionnum_ dmfindregionnum
437 #endif
438 #ifdef PETSC_HAVE_FORTRAN_CAPS
439 #define dmcreateds_ DMCREATEDS
440 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
441 #define dmcreateds_ dmcreateds
442 #endif
443 #ifdef PETSC_HAVE_FORTRAN_CAPS
444 #define dmcomputeexactsolution_ DMCOMPUTEEXACTSOLUTION
445 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
446 #define dmcomputeexactsolution_ dmcomputeexactsolution
447 #endif
448 #ifdef PETSC_HAVE_FORTRAN_CAPS
449 #define dmcopyds_ DMCOPYDS
450 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
451 #define dmcopyds_ dmcopyds
452 #endif
453 #ifdef PETSC_HAVE_FORTRAN_CAPS
454 #define dmcopydisc_ DMCOPYDISC
455 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
456 #define dmcopydisc_ dmcopydisc
457 #endif
458 #ifdef PETSC_HAVE_FORTRAN_CAPS
459 #define dmgetdimension_ DMGETDIMENSION
460 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
461 #define dmgetdimension_ dmgetdimension
462 #endif
463 #ifdef PETSC_HAVE_FORTRAN_CAPS
464 #define dmsetdimension_ DMSETDIMENSION
465 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
466 #define dmsetdimension_ dmsetdimension
467 #endif
468 #ifdef PETSC_HAVE_FORTRAN_CAPS
469 #define dmgetdimpoints_ DMGETDIMPOINTS
470 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
471 #define dmgetdimpoints_ dmgetdimpoints
472 #endif
473 #ifdef PETSC_HAVE_FORTRAN_CAPS
474 #define dmsetcoordinates_ DMSETCOORDINATES
475 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
476 #define dmsetcoordinates_ dmsetcoordinates
477 #endif
478 #ifdef PETSC_HAVE_FORTRAN_CAPS
479 #define dmsetcoordinateslocal_ DMSETCOORDINATESLOCAL
480 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
481 #define dmsetcoordinateslocal_ dmsetcoordinateslocal
482 #endif
483 #ifdef PETSC_HAVE_FORTRAN_CAPS
484 #define dmgetcoordinates_ DMGETCOORDINATES
485 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
486 #define dmgetcoordinates_ dmgetcoordinates
487 #endif
488 #ifdef PETSC_HAVE_FORTRAN_CAPS
489 #define dmgetcoordinateslocalsetup_ DMGETCOORDINATESLOCALSETUP
490 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
491 #define dmgetcoordinateslocalsetup_ dmgetcoordinateslocalsetup
492 #endif
493 #ifdef PETSC_HAVE_FORTRAN_CAPS
494 #define dmgetcoordinateslocal_ DMGETCOORDINATESLOCAL
495 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
496 #define dmgetcoordinateslocal_ dmgetcoordinateslocal
497 #endif
498 #ifdef PETSC_HAVE_FORTRAN_CAPS
499 #define dmgetcoordinateslocalnoncollective_ DMGETCOORDINATESLOCALNONCOLLECTIVE
500 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
501 #define dmgetcoordinateslocalnoncollective_ dmgetcoordinateslocalnoncollective
502 #endif
503 #ifdef PETSC_HAVE_FORTRAN_CAPS
504 #define dmgetcoordinateslocaltuple_ DMGETCOORDINATESLOCALTUPLE
505 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
506 #define dmgetcoordinateslocaltuple_ dmgetcoordinateslocaltuple
507 #endif
508 #ifdef PETSC_HAVE_FORTRAN_CAPS
509 #define dmgetcoordinatedm_ DMGETCOORDINATEDM
510 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
511 #define dmgetcoordinatedm_ dmgetcoordinatedm
512 #endif
513 #ifdef PETSC_HAVE_FORTRAN_CAPS
514 #define dmsetcoordinatedm_ DMSETCOORDINATEDM
515 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
516 #define dmsetcoordinatedm_ dmsetcoordinatedm
517 #endif
518 #ifdef PETSC_HAVE_FORTRAN_CAPS
519 #define dmgetcoordinatedim_ DMGETCOORDINATEDIM
520 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
521 #define dmgetcoordinatedim_ dmgetcoordinatedim
522 #endif
523 #ifdef PETSC_HAVE_FORTRAN_CAPS
524 #define dmsetcoordinatedim_ DMSETCOORDINATEDIM
525 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
526 #define dmsetcoordinatedim_ dmsetcoordinatedim
527 #endif
528 #ifdef PETSC_HAVE_FORTRAN_CAPS
529 #define dmgetcoordinatesection_ DMGETCOORDINATESECTION
530 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
531 #define dmgetcoordinatesection_ dmgetcoordinatesection
532 #endif
533 #ifdef PETSC_HAVE_FORTRAN_CAPS
534 #define dmsetcoordinatesection_ DMSETCOORDINATESECTION
535 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
536 #define dmsetcoordinatesection_ dmsetcoordinatesection
537 #endif
538 #ifdef PETSC_HAVE_FORTRAN_CAPS
539 #define dmprojectcoordinates_ DMPROJECTCOORDINATES
540 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
541 #define dmprojectcoordinates_ dmprojectcoordinates
542 #endif
543 #ifdef PETSC_HAVE_FORTRAN_CAPS
544 #define dmlocalizecoordinate_ DMLOCALIZECOORDINATE
545 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
546 #define dmlocalizecoordinate_ dmlocalizecoordinate
547 #endif
548 #ifdef PETSC_HAVE_FORTRAN_CAPS
549 #define dmgetcoordinateslocalizedlocal_ DMGETCOORDINATESLOCALIZEDLOCAL
550 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
551 #define dmgetcoordinateslocalizedlocal_ dmgetcoordinateslocalizedlocal
552 #endif
553 #ifdef PETSC_HAVE_FORTRAN_CAPS
554 #define dmgetcoordinateslocalized_ DMGETCOORDINATESLOCALIZED
555 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
556 #define dmgetcoordinateslocalized_ dmgetcoordinateslocalized
557 #endif
558 #ifdef PETSC_HAVE_FORTRAN_CAPS
559 #define dmlocalizecoordinates_ DMLOCALIZECOORDINATES
560 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
561 #define dmlocalizecoordinates_ dmlocalizecoordinates
562 #endif
563 #ifdef PETSC_HAVE_FORTRAN_CAPS
564 #define dmlocatepoints_ DMLOCATEPOINTS
565 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
566 #define dmlocatepoints_ dmlocatepoints
567 #endif
568 #ifdef PETSC_HAVE_FORTRAN_CAPS
569 #define dmgetoutputdm_ DMGETOUTPUTDM
570 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
571 #define dmgetoutputdm_ dmgetoutputdm
572 #endif
573 #ifdef PETSC_HAVE_FORTRAN_CAPS
574 #define dmgetoutputsequencenumber_ DMGETOUTPUTSEQUENCENUMBER
575 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
576 #define dmgetoutputsequencenumber_ dmgetoutputsequencenumber
577 #endif
578 #ifdef PETSC_HAVE_FORTRAN_CAPS
579 #define dmsetoutputsequencenumber_ DMSETOUTPUTSEQUENCENUMBER
580 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
581 #define dmsetoutputsequencenumber_ dmsetoutputsequencenumber
582 #endif
583 #ifdef PETSC_HAVE_FORTRAN_CAPS
584 #define dmgetusenatural_ DMGETUSENATURAL
585 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
586 #define dmgetusenatural_ dmgetusenatural
587 #endif
588 #ifdef PETSC_HAVE_FORTRAN_CAPS
589 #define dmsetusenatural_ DMSETUSENATURAL
590 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
591 #define dmsetusenatural_ dmsetusenatural
592 #endif
593 #ifdef PETSC_HAVE_FORTRAN_CAPS
594 #define dmgetnumlabels_ DMGETNUMLABELS
595 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
596 #define dmgetnumlabels_ dmgetnumlabels
597 #endif
598 #ifdef PETSC_HAVE_FORTRAN_CAPS
599 #define dmremovelabelbyself_ DMREMOVELABELBYSELF
600 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
601 #define dmremovelabelbyself_ dmremovelabelbyself
602 #endif
603 #ifdef PETSC_HAVE_FORTRAN_CAPS
604 #define dmcopylabels_ DMCOPYLABELS
605 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
606 #define dmcopylabels_ dmcopylabels
607 #endif
608 #ifdef PETSC_HAVE_FORTRAN_CAPS
609 #define dmgetcoarsedm_ DMGETCOARSEDM
610 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
611 #define dmgetcoarsedm_ dmgetcoarsedm
612 #endif
613 #ifdef PETSC_HAVE_FORTRAN_CAPS
614 #define dmsetcoarsedm_ DMSETCOARSEDM
615 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
616 #define dmsetcoarsedm_ dmsetcoarsedm
617 #endif
618 #ifdef PETSC_HAVE_FORTRAN_CAPS
619 #define dmgetfinedm_ DMGETFINEDM
620 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
621 #define dmgetfinedm_ dmgetfinedm
622 #endif
623 #ifdef PETSC_HAVE_FORTRAN_CAPS
624 #define dmsetfinedm_ DMSETFINEDM
625 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
626 #define dmsetfinedm_ dmsetfinedm
627 #endif
628 #ifdef PETSC_HAVE_FORTRAN_CAPS
629 #define dmgetnumboundary_ DMGETNUMBOUNDARY
630 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
631 #define dmgetnumboundary_ dmgetnumboundary
632 #endif
633 #ifdef PETSC_HAVE_FORTRAN_CAPS
634 #define matfdcoloringusedm_ MATFDCOLORINGUSEDM
635 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
636 #define matfdcoloringusedm_ matfdcoloringusedm
637 #endif
638 #ifdef PETSC_HAVE_FORTRAN_CAPS
639 #define dmgetcompatibility_ DMGETCOMPATIBILITY
640 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
641 #define dmgetcompatibility_ dmgetcompatibility
642 #endif
643 #ifdef PETSC_HAVE_FORTRAN_CAPS
644 #define dmmonitorcancel_ DMMONITORCANCEL
645 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
646 #define dmmonitorcancel_ dmmonitorcancel
647 #endif
648 #ifdef PETSC_HAVE_FORTRAN_CAPS
649 #define dmmonitor_ DMMONITOR
650 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
651 #define dmmonitor_ dmmonitor
652 #endif
653
654
655 /* Definitions of Fortran Wrapper routines */
656 #if defined(__cplusplus)
657 extern "C" {
658 #endif
dmcreate_(MPI_Fint * comm,DM * dm,int * __ierr)659 PETSC_EXTERN void dmcreate_(MPI_Fint * comm,DM *dm, int *__ierr)
660 {
661 *__ierr = DMCreate(
662 MPI_Comm_f2c(*(comm)),dm);
663 }
dmclone_(DM dm,DM * newdm,int * __ierr)664 PETSC_EXTERN void dmclone_(DM dm,DM *newdm, int *__ierr)
665 {
666 *__ierr = DMClone(
667 (DM)PetscToPointer((dm) ),newdm);
668 }
vecgetdm_(Vec v,DM * dm,int * __ierr)669 PETSC_EXTERN void vecgetdm_(Vec v,DM *dm, int *__ierr)
670 {
671 *__ierr = VecGetDM(
672 (Vec)PetscToPointer((v) ),dm);
673 }
vecsetdm_(Vec v,DM dm,int * __ierr)674 PETSC_EXTERN void vecsetdm_(Vec v,DM dm, int *__ierr)
675 {
676 *__ierr = VecSetDM(
677 (Vec)PetscToPointer((v) ),
678 (DM)PetscToPointer((dm) ));
679 }
matgetdm_(Mat A,DM * dm,int * __ierr)680 PETSC_EXTERN void matgetdm_(Mat A,DM *dm, int *__ierr)
681 {
682 *__ierr = MatGetDM(
683 (Mat)PetscToPointer((A) ),dm);
684 }
matsetdm_(Mat A,DM dm,int * __ierr)685 PETSC_EXTERN void matsetdm_(Mat A,DM dm, int *__ierr)
686 {
687 *__ierr = MatSetDM(
688 (Mat)PetscToPointer((A) ),
689 (DM)PetscToPointer((dm) ));
690 }
dmdestroy_(DM * dm,int * __ierr)691 PETSC_EXTERN void dmdestroy_(DM *dm, int *__ierr)
692 {
693 *__ierr = DMDestroy(dm);
694 }
dmsetup_(DM dm,int * __ierr)695 PETSC_EXTERN void dmsetup_(DM dm, int *__ierr)
696 {
697 *__ierr = DMSetUp(
698 (DM)PetscToPointer((dm) ));
699 }
dmsetfromoptions_(DM dm,int * __ierr)700 PETSC_EXTERN void dmsetfromoptions_(DM dm, int *__ierr)
701 {
702 *__ierr = DMSetFromOptions(
703 (DM)PetscToPointer((dm) ));
704 }
dmcreateglobalvector_(DM dm,Vec * vec,int * __ierr)705 PETSC_EXTERN void dmcreateglobalvector_(DM dm,Vec *vec, int *__ierr)
706 {
707 *__ierr = DMCreateGlobalVector(
708 (DM)PetscToPointer((dm) ),vec);
709 }
dmcreatelocalvector_(DM dm,Vec * vec,int * __ierr)710 PETSC_EXTERN void dmcreatelocalvector_(DM dm,Vec *vec, int *__ierr)
711 {
712 *__ierr = DMCreateLocalVector(
713 (DM)PetscToPointer((dm) ),vec);
714 }
dmgetlocaltoglobalmapping_(DM dm,ISLocalToGlobalMapping * ltog,int * __ierr)715 PETSC_EXTERN void dmgetlocaltoglobalmapping_(DM dm,ISLocalToGlobalMapping *ltog, int *__ierr)
716 {
717 *__ierr = DMGetLocalToGlobalMapping(
718 (DM)PetscToPointer((dm) ),ltog);
719 }
dmgetblocksize_(DM dm,PetscInt * bs,int * __ierr)720 PETSC_EXTERN void dmgetblocksize_(DM dm,PetscInt *bs, int *__ierr)
721 {
722 *__ierr = DMGetBlockSize(
723 (DM)PetscToPointer((dm) ),bs);
724 }
dmcreateinterpolation_(DM dmc,DM dmf,Mat * mat,Vec * vec,int * __ierr)725 PETSC_EXTERN void dmcreateinterpolation_(DM dmc,DM dmf,Mat *mat,Vec *vec, int *__ierr)
726 {
727 *__ierr = DMCreateInterpolation(
728 (DM)PetscToPointer((dmc) ),
729 (DM)PetscToPointer((dmf) ),mat,vec);
730 }
dmcreateinterpolationscale_(DM dac,DM daf,Mat mat,Vec * scale,int * __ierr)731 PETSC_EXTERN void dmcreateinterpolationscale_(DM dac,DM daf,Mat mat,Vec *scale, int *__ierr)
732 {
733 *__ierr = DMCreateInterpolationScale(
734 (DM)PetscToPointer((dac) ),
735 (DM)PetscToPointer((daf) ),
736 (Mat)PetscToPointer((mat) ),scale);
737 }
dmcreaterestriction_(DM dmc,DM dmf,Mat * mat,int * __ierr)738 PETSC_EXTERN void dmcreaterestriction_(DM dmc,DM dmf,Mat *mat, int *__ierr)
739 {
740 *__ierr = DMCreateRestriction(
741 (DM)PetscToPointer((dmc) ),
742 (DM)PetscToPointer((dmf) ),mat);
743 }
dmcreateinjection_(DM dac,DM daf,Mat * mat,int * __ierr)744 PETSC_EXTERN void dmcreateinjection_(DM dac,DM daf,Mat *mat, int *__ierr)
745 {
746 *__ierr = DMCreateInjection(
747 (DM)PetscToPointer((dac) ),
748 (DM)PetscToPointer((daf) ),mat);
749 }
dmcreatemassmatrix_(DM dac,DM daf,Mat * mat,int * __ierr)750 PETSC_EXTERN void dmcreatemassmatrix_(DM dac,DM daf,Mat *mat, int *__ierr)
751 {
752 *__ierr = DMCreateMassMatrix(
753 (DM)PetscToPointer((dac) ),
754 (DM)PetscToPointer((daf) ),mat);
755 }
dmcreatecoloring_(DM dm,ISColoringType * ctype,ISColoring * coloring,int * __ierr)756 PETSC_EXTERN void dmcreatecoloring_(DM dm,ISColoringType *ctype,ISColoring *coloring, int *__ierr)
757 {
758 *__ierr = DMCreateColoring(
759 (DM)PetscToPointer((dm) ),*ctype,coloring);
760 }
dmcreatematrix_(DM dm,Mat * mat,int * __ierr)761 PETSC_EXTERN void dmcreatematrix_(DM dm,Mat *mat, int *__ierr)
762 {
763 *__ierr = DMCreateMatrix(
764 (DM)PetscToPointer((dm) ),mat);
765 }
dmsetmatrixpreallocateonly_(DM dm,PetscBool * only,int * __ierr)766 PETSC_EXTERN void dmsetmatrixpreallocateonly_(DM dm,PetscBool *only, int *__ierr)
767 {
768 *__ierr = DMSetMatrixPreallocateOnly(
769 (DM)PetscToPointer((dm) ),*only);
770 }
dmsetmatrixstructureonly_(DM dm,PetscBool * only,int * __ierr)771 PETSC_EXTERN void dmsetmatrixstructureonly_(DM dm,PetscBool *only, int *__ierr)
772 {
773 *__ierr = DMSetMatrixStructureOnly(
774 (DM)PetscToPointer((dm) ),*only);
775 }
dmcreatesubdm_(DM dm,PetscInt * numFields,PetscInt fields[],IS * is,DM * subdm,int * __ierr)776 PETSC_EXTERN void dmcreatesubdm_(DM dm,PetscInt *numFields, PetscInt fields[],IS *is,DM *subdm, int *__ierr)
777 {
778 *__ierr = DMCreateSubDM(
779 (DM)PetscToPointer((dm) ),*numFields,fields,is,subdm);
780 }
dmrefine_(DM dm,MPI_Fint * comm,DM * dmf,int * __ierr)781 PETSC_EXTERN void dmrefine_(DM dm,MPI_Fint * comm,DM *dmf, int *__ierr)
782 {
783 *__ierr = DMRefine(
784 (DM)PetscToPointer((dm) ),
785 MPI_Comm_f2c(*(comm)),dmf);
786 }
dminterpolate_(DM coarse,Mat interp,DM fine,int * __ierr)787 PETSC_EXTERN void dminterpolate_(DM coarse,Mat interp,DM fine, int *__ierr)
788 {
789 *__ierr = DMInterpolate(
790 (DM)PetscToPointer((coarse) ),
791 (Mat)PetscToPointer((interp) ),
792 (DM)PetscToPointer((fine) ));
793 }
dmgetrefinelevel_(DM dm,PetscInt * level,int * __ierr)794 PETSC_EXTERN void dmgetrefinelevel_(DM dm,PetscInt *level, int *__ierr)
795 {
796 *__ierr = DMGetRefineLevel(
797 (DM)PetscToPointer((dm) ),level);
798 }
dmsetrefinelevel_(DM dm,PetscInt * level,int * __ierr)799 PETSC_EXTERN void dmsetrefinelevel_(DM dm,PetscInt *level, int *__ierr)
800 {
801 *__ierr = DMSetRefineLevel(
802 (DM)PetscToPointer((dm) ),*level);
803 }
dmhasbasistransform_(DM dm,PetscBool * flg,int * __ierr)804 PETSC_EXTERN void dmhasbasistransform_(DM dm,PetscBool *flg, int *__ierr)
805 {
806 *__ierr = DMHasBasisTransform(
807 (DM)PetscToPointer((dm) ),flg);
808 }
dmglobaltolocal_(DM dm,Vec g,InsertMode * mode,Vec l,int * __ierr)809 PETSC_EXTERN void dmglobaltolocal_(DM dm,Vec g,InsertMode *mode,Vec l, int *__ierr)
810 {
811 *__ierr = DMGlobalToLocal(
812 (DM)PetscToPointer((dm) ),
813 (Vec)PetscToPointer((g) ),*mode,
814 (Vec)PetscToPointer((l) ));
815 }
dmglobaltolocalbegin_(DM dm,Vec g,InsertMode * mode,Vec l,int * __ierr)816 PETSC_EXTERN void dmglobaltolocalbegin_(DM dm,Vec g,InsertMode *mode,Vec l, int *__ierr)
817 {
818 *__ierr = DMGlobalToLocalBegin(
819 (DM)PetscToPointer((dm) ),
820 (Vec)PetscToPointer((g) ),*mode,
821 (Vec)PetscToPointer((l) ));
822 }
dmglobaltolocalend_(DM dm,Vec g,InsertMode * mode,Vec l,int * __ierr)823 PETSC_EXTERN void dmglobaltolocalend_(DM dm,Vec g,InsertMode *mode,Vec l, int *__ierr)
824 {
825 *__ierr = DMGlobalToLocalEnd(
826 (DM)PetscToPointer((dm) ),
827 (Vec)PetscToPointer((g) ),*mode,
828 (Vec)PetscToPointer((l) ));
829 }
dmlocaltoglobal_(DM dm,Vec l,InsertMode * mode,Vec g,int * __ierr)830 PETSC_EXTERN void dmlocaltoglobal_(DM dm,Vec l,InsertMode *mode,Vec g, int *__ierr)
831 {
832 *__ierr = DMLocalToGlobal(
833 (DM)PetscToPointer((dm) ),
834 (Vec)PetscToPointer((l) ),*mode,
835 (Vec)PetscToPointer((g) ));
836 }
dmlocaltoglobalbegin_(DM dm,Vec l,InsertMode * mode,Vec g,int * __ierr)837 PETSC_EXTERN void dmlocaltoglobalbegin_(DM dm,Vec l,InsertMode *mode,Vec g, int *__ierr)
838 {
839 *__ierr = DMLocalToGlobalBegin(
840 (DM)PetscToPointer((dm) ),
841 (Vec)PetscToPointer((l) ),*mode,
842 (Vec)PetscToPointer((g) ));
843 }
dmlocaltoglobalend_(DM dm,Vec l,InsertMode * mode,Vec g,int * __ierr)844 PETSC_EXTERN void dmlocaltoglobalend_(DM dm,Vec l,InsertMode *mode,Vec g, int *__ierr)
845 {
846 *__ierr = DMLocalToGlobalEnd(
847 (DM)PetscToPointer((dm) ),
848 (Vec)PetscToPointer((l) ),*mode,
849 (Vec)PetscToPointer((g) ));
850 }
dmlocaltolocalbegin_(DM dm,Vec g,InsertMode * mode,Vec l,int * __ierr)851 PETSC_EXTERN void dmlocaltolocalbegin_(DM dm,Vec g,InsertMode *mode,Vec l, int *__ierr)
852 {
853 *__ierr = DMLocalToLocalBegin(
854 (DM)PetscToPointer((dm) ),
855 (Vec)PetscToPointer((g) ),*mode,
856 (Vec)PetscToPointer((l) ));
857 }
dmlocaltolocalend_(DM dm,Vec g,InsertMode * mode,Vec l,int * __ierr)858 PETSC_EXTERN void dmlocaltolocalend_(DM dm,Vec g,InsertMode *mode,Vec l, int *__ierr)
859 {
860 *__ierr = DMLocalToLocalEnd(
861 (DM)PetscToPointer((dm) ),
862 (Vec)PetscToPointer((g) ),*mode,
863 (Vec)PetscToPointer((l) ));
864 }
dmcoarsen_(DM dm,MPI_Fint * comm,DM * dmc,int * __ierr)865 PETSC_EXTERN void dmcoarsen_(DM dm,MPI_Fint * comm,DM *dmc, int *__ierr)
866 {
867 *__ierr = DMCoarsen(
868 (DM)PetscToPointer((dm) ),
869 MPI_Comm_f2c(*(comm)),dmc);
870 }
dmrestrict_(DM fine,Mat restrct,Vec rscale,Mat inject,DM coarse,int * __ierr)871 PETSC_EXTERN void dmrestrict_(DM fine,Mat restrct,Vec rscale,Mat inject,DM coarse, int *__ierr)
872 {
873 *__ierr = DMRestrict(
874 (DM)PetscToPointer((fine) ),
875 (Mat)PetscToPointer((restrct) ),
876 (Vec)PetscToPointer((rscale) ),
877 (Mat)PetscToPointer((inject) ),
878 (DM)PetscToPointer((coarse) ));
879 }
dmsubdomainrestrict_(DM global,VecScatter oscatter,VecScatter gscatter,DM subdm,int * __ierr)880 PETSC_EXTERN void dmsubdomainrestrict_(DM global,VecScatter oscatter,VecScatter gscatter,DM subdm, int *__ierr)
881 {
882 *__ierr = DMSubDomainRestrict(
883 (DM)PetscToPointer((global) ),
884 (VecScatter)PetscToPointer((oscatter) ),
885 (VecScatter)PetscToPointer((gscatter) ),
886 (DM)PetscToPointer((subdm) ));
887 }
dmgetcoarsenlevel_(DM dm,PetscInt * level,int * __ierr)888 PETSC_EXTERN void dmgetcoarsenlevel_(DM dm,PetscInt *level, int *__ierr)
889 {
890 *__ierr = DMGetCoarsenLevel(
891 (DM)PetscToPointer((dm) ),level);
892 }
dmsetcoarsenlevel_(DM dm,PetscInt * level,int * __ierr)893 PETSC_EXTERN void dmsetcoarsenlevel_(DM dm,PetscInt *level, int *__ierr)
894 {
895 *__ierr = DMSetCoarsenLevel(
896 (DM)PetscToPointer((dm) ),*level);
897 }
dmsetapplicationcontext_(DM dm,void * ctx,int * __ierr)898 PETSC_EXTERN void dmsetapplicationcontext_(DM dm,void*ctx, int *__ierr)
899 {
900 *__ierr = DMSetApplicationContext(
901 (DM)PetscToPointer((dm) ),ctx);
902 }
dmgetapplicationcontext_(DM dm,void * ctx,int * __ierr)903 PETSC_EXTERN void dmgetapplicationcontext_(DM dm,void*ctx, int *__ierr)
904 {
905 *__ierr = DMGetApplicationContext(
906 (DM)PetscToPointer((dm) ),ctx);
907 }
dmhasvariablebounds_(DM dm,PetscBool * flg,int * __ierr)908 PETSC_EXTERN void dmhasvariablebounds_(DM dm,PetscBool *flg, int *__ierr)
909 {
910 *__ierr = DMHasVariableBounds(
911 (DM)PetscToPointer((dm) ),flg);
912 }
dmhascoloring_(DM dm,PetscBool * flg,int * __ierr)913 PETSC_EXTERN void dmhascoloring_(DM dm,PetscBool *flg, int *__ierr)
914 {
915 *__ierr = DMHasColoring(
916 (DM)PetscToPointer((dm) ),flg);
917 }
dmhascreaterestriction_(DM dm,PetscBool * flg,int * __ierr)918 PETSC_EXTERN void dmhascreaterestriction_(DM dm,PetscBool *flg, int *__ierr)
919 {
920 *__ierr = DMHasCreateRestriction(
921 (DM)PetscToPointer((dm) ),flg);
922 }
dmhascreateinjection_(DM dm,PetscBool * flg,int * __ierr)923 PETSC_EXTERN void dmhascreateinjection_(DM dm,PetscBool *flg, int *__ierr)
924 {
925 *__ierr = DMHasCreateInjection(
926 (DM)PetscToPointer((dm) ),flg);
927 }
dmgetlocalboundingbox_(DM dm,PetscReal lmin[],PetscReal lmax[],int * __ierr)928 PETSC_EXTERN void dmgetlocalboundingbox_(DM dm,PetscReal lmin[],PetscReal lmax[], int *__ierr)
929 {
930 *__ierr = DMGetLocalBoundingBox(
931 (DM)PetscToPointer((dm) ),lmin,lmax);
932 }
dmgetboundingbox_(DM dm,PetscReal gmin[],PetscReal gmax[],int * __ierr)933 PETSC_EXTERN void dmgetboundingbox_(DM dm,PetscReal gmin[],PetscReal gmax[], int *__ierr)
934 {
935 *__ierr = DMGetBoundingBox(
936 (DM)PetscToPointer((dm) ),gmin,gmax);
937 }
dmgetsection_(DM dm,PetscSection * section,int * __ierr)938 PETSC_EXTERN void dmgetsection_(DM dm,PetscSection *section, int *__ierr)
939 {
940 *__ierr = DMGetSection(
941 (DM)PetscToPointer((dm) ),section);
942 }
dmgetlocalsection_(DM dm,PetscSection * section,int * __ierr)943 PETSC_EXTERN void dmgetlocalsection_(DM dm,PetscSection *section, int *__ierr)
944 {
945 *__ierr = DMGetLocalSection(
946 (DM)PetscToPointer((dm) ),section);
947 }
dmsetsection_(DM dm,PetscSection section,int * __ierr)948 PETSC_EXTERN void dmsetsection_(DM dm,PetscSection section, int *__ierr)
949 {
950 *__ierr = DMSetSection(
951 (DM)PetscToPointer((dm) ),
952 (PetscSection)PetscToPointer((section) ));
953 }
dmsetlocalsection_(DM dm,PetscSection section,int * __ierr)954 PETSC_EXTERN void dmsetlocalsection_(DM dm,PetscSection section, int *__ierr)
955 {
956 *__ierr = DMSetLocalSection(
957 (DM)PetscToPointer((dm) ),
958 (PetscSection)PetscToPointer((section) ));
959 }
dmgetdefaultconstraints_(DM dm,PetscSection * section,Mat * mat,int * __ierr)960 PETSC_EXTERN void dmgetdefaultconstraints_(DM dm,PetscSection *section,Mat *mat, int *__ierr)
961 {
962 *__ierr = DMGetDefaultConstraints(
963 (DM)PetscToPointer((dm) ),section,mat);
964 }
dmsetdefaultconstraints_(DM dm,PetscSection section,Mat mat,int * __ierr)965 PETSC_EXTERN void dmsetdefaultconstraints_(DM dm,PetscSection section,Mat mat, int *__ierr)
966 {
967 *__ierr = DMSetDefaultConstraints(
968 (DM)PetscToPointer((dm) ),
969 (PetscSection)PetscToPointer((section) ),
970 (Mat)PetscToPointer((mat) ));
971 }
dmgetglobalsection_(DM dm,PetscSection * section,int * __ierr)972 PETSC_EXTERN void dmgetglobalsection_(DM dm,PetscSection *section, int *__ierr)
973 {
974 *__ierr = DMGetGlobalSection(
975 (DM)PetscToPointer((dm) ),section);
976 }
dmsetglobalsection_(DM dm,PetscSection section,int * __ierr)977 PETSC_EXTERN void dmsetglobalsection_(DM dm,PetscSection section, int *__ierr)
978 {
979 *__ierr = DMSetGlobalSection(
980 (DM)PetscToPointer((dm) ),
981 (PetscSection)PetscToPointer((section) ));
982 }
dmgetsectionsf_(DM dm,PetscSF * sf,int * __ierr)983 PETSC_EXTERN void dmgetsectionsf_(DM dm,PetscSF *sf, int *__ierr)
984 {
985 *__ierr = DMGetSectionSF(
986 (DM)PetscToPointer((dm) ),sf);
987 }
dmsetsectionsf_(DM dm,PetscSF sf,int * __ierr)988 PETSC_EXTERN void dmsetsectionsf_(DM dm,PetscSF sf, int *__ierr)
989 {
990 *__ierr = DMSetSectionSF(
991 (DM)PetscToPointer((dm) ),
992 (PetscSF)PetscToPointer((sf) ));
993 }
dmgetpointsf_(DM dm,PetscSF * sf,int * __ierr)994 PETSC_EXTERN void dmgetpointsf_(DM dm,PetscSF *sf, int *__ierr)
995 {
996 *__ierr = DMGetPointSF(
997 (DM)PetscToPointer((dm) ),sf);
998 }
dmsetpointsf_(DM dm,PetscSF sf,int * __ierr)999 PETSC_EXTERN void dmsetpointsf_(DM dm,PetscSF sf, int *__ierr)
1000 {
1001 *__ierr = DMSetPointSF(
1002 (DM)PetscToPointer((dm) ),
1003 (PetscSF)PetscToPointer((sf) ));
1004 }
dmclearfields_(DM dm,int * __ierr)1005 PETSC_EXTERN void dmclearfields_(DM dm, int *__ierr)
1006 {
1007 *__ierr = DMClearFields(
1008 (DM)PetscToPointer((dm) ));
1009 }
dmgetnumfields_(DM dm,PetscInt * numFields,int * __ierr)1010 PETSC_EXTERN void dmgetnumfields_(DM dm,PetscInt *numFields, int *__ierr)
1011 {
1012 *__ierr = DMGetNumFields(
1013 (DM)PetscToPointer((dm) ),numFields);
1014 }
dmsetnumfields_(DM dm,PetscInt * numFields,int * __ierr)1015 PETSC_EXTERN void dmsetnumfields_(DM dm,PetscInt *numFields, int *__ierr)
1016 {
1017 *__ierr = DMSetNumFields(
1018 (DM)PetscToPointer((dm) ),*numFields);
1019 }
dmgetfield_(DM dm,PetscInt * f,DMLabel * label,PetscObject * field,int * __ierr)1020 PETSC_EXTERN void dmgetfield_(DM dm,PetscInt *f,DMLabel *label,PetscObject *field, int *__ierr)
1021 {
1022 *__ierr = DMGetField(
1023 (DM)PetscToPointer((dm) ),*f,label,field);
1024 }
dmsetfield_(DM dm,PetscInt * f,DMLabel label,PetscObject field,int * __ierr)1025 PETSC_EXTERN void dmsetfield_(DM dm,PetscInt *f,DMLabel label,PetscObject field, int *__ierr)
1026 {
1027 *__ierr = DMSetField(
1028 (DM)PetscToPointer((dm) ),*f,
1029 (DMLabel)PetscToPointer((label) ),
1030 (PetscObject)PetscToPointer((field) ));
1031 }
dmaddfield_(DM dm,DMLabel label,PetscObject field,int * __ierr)1032 PETSC_EXTERN void dmaddfield_(DM dm,DMLabel label,PetscObject field, int *__ierr)
1033 {
1034 *__ierr = DMAddField(
1035 (DM)PetscToPointer((dm) ),
1036 (DMLabel)PetscToPointer((label) ),
1037 (PetscObject)PetscToPointer((field) ));
1038 }
dmcopyfields_(DM dm,DM newdm,int * __ierr)1039 PETSC_EXTERN void dmcopyfields_(DM dm,DM newdm, int *__ierr)
1040 {
1041 *__ierr = DMCopyFields(
1042 (DM)PetscToPointer((dm) ),
1043 (DM)PetscToPointer((newdm) ));
1044 }
dmgetadjacency_(DM dm,PetscInt * f,PetscBool * useCone,PetscBool * useClosure,int * __ierr)1045 PETSC_EXTERN void dmgetadjacency_(DM dm,PetscInt *f,PetscBool *useCone,PetscBool *useClosure, int *__ierr)
1046 {
1047 *__ierr = DMGetAdjacency(
1048 (DM)PetscToPointer((dm) ),*f,useCone,useClosure);
1049 }
dmsetadjacency_(DM dm,PetscInt * f,PetscBool * useCone,PetscBool * useClosure,int * __ierr)1050 PETSC_EXTERN void dmsetadjacency_(DM dm,PetscInt *f,PetscBool *useCone,PetscBool *useClosure, int *__ierr)
1051 {
1052 *__ierr = DMSetAdjacency(
1053 (DM)PetscToPointer((dm) ),*f,*useCone,*useClosure);
1054 }
dmgetbasicadjacency_(DM dm,PetscBool * useCone,PetscBool * useClosure,int * __ierr)1055 PETSC_EXTERN void dmgetbasicadjacency_(DM dm,PetscBool *useCone,PetscBool *useClosure, int *__ierr)
1056 {
1057 *__ierr = DMGetBasicAdjacency(
1058 (DM)PetscToPointer((dm) ),useCone,useClosure);
1059 }
dmsetbasicadjacency_(DM dm,PetscBool * useCone,PetscBool * useClosure,int * __ierr)1060 PETSC_EXTERN void dmsetbasicadjacency_(DM dm,PetscBool *useCone,PetscBool *useClosure, int *__ierr)
1061 {
1062 *__ierr = DMSetBasicAdjacency(
1063 (DM)PetscToPointer((dm) ),*useCone,*useClosure);
1064 }
dmgetnumds_(DM dm,PetscInt * Nds,int * __ierr)1065 PETSC_EXTERN void dmgetnumds_(DM dm,PetscInt *Nds, int *__ierr)
1066 {
1067 *__ierr = DMGetNumDS(
1068 (DM)PetscToPointer((dm) ),Nds);
1069 }
dmcleards_(DM dm,int * __ierr)1070 PETSC_EXTERN void dmcleards_(DM dm, int *__ierr)
1071 {
1072 *__ierr = DMClearDS(
1073 (DM)PetscToPointer((dm) ));
1074 }
dmgetds_(DM dm,PetscDS * prob,int * __ierr)1075 PETSC_EXTERN void dmgetds_(DM dm,PetscDS *prob, int *__ierr)
1076 {
1077 *__ierr = DMGetDS(
1078 (DM)PetscToPointer((dm) ),prob);
1079 }
dmgetcellds_(DM dm,PetscInt * point,PetscDS * prob,int * __ierr)1080 PETSC_EXTERN void dmgetcellds_(DM dm,PetscInt *point,PetscDS *prob, int *__ierr)
1081 {
1082 *__ierr = DMGetCellDS(
1083 (DM)PetscToPointer((dm) ),*point,prob);
1084 }
dmgetregionds_(DM dm,DMLabel label,IS * fields,PetscDS * ds,int * __ierr)1085 PETSC_EXTERN void dmgetregionds_(DM dm,DMLabel label,IS *fields,PetscDS *ds, int *__ierr)
1086 {
1087 *__ierr = DMGetRegionDS(
1088 (DM)PetscToPointer((dm) ),
1089 (DMLabel)PetscToPointer((label) ),fields,ds);
1090 }
dmsetregionds_(DM dm,DMLabel label,IS fields,PetscDS ds,int * __ierr)1091 PETSC_EXTERN void dmsetregionds_(DM dm,DMLabel label,IS fields,PetscDS ds, int *__ierr)
1092 {
1093 *__ierr = DMSetRegionDS(
1094 (DM)PetscToPointer((dm) ),
1095 (DMLabel)PetscToPointer((label) ),
1096 (IS)PetscToPointer((fields) ),
1097 (PetscDS)PetscToPointer((ds) ));
1098 }
dmgetregionnumds_(DM dm,PetscInt * num,DMLabel * label,IS * fields,PetscDS * ds,int * __ierr)1099 PETSC_EXTERN void dmgetregionnumds_(DM dm,PetscInt *num,DMLabel *label,IS *fields,PetscDS *ds, int *__ierr)
1100 {
1101 *__ierr = DMGetRegionNumDS(
1102 (DM)PetscToPointer((dm) ),*num,label,fields,ds);
1103 }
dmsetregionnumds_(DM dm,PetscInt * num,DMLabel label,IS fields,PetscDS ds,int * __ierr)1104 PETSC_EXTERN void dmsetregionnumds_(DM dm,PetscInt *num,DMLabel label,IS fields,PetscDS ds, int *__ierr)
1105 {
1106 *__ierr = DMSetRegionNumDS(
1107 (DM)PetscToPointer((dm) ),*num,
1108 (DMLabel)PetscToPointer((label) ),
1109 (IS)PetscToPointer((fields) ),
1110 (PetscDS)PetscToPointer((ds) ));
1111 }
dmfindregionnum_(DM dm,PetscDS ds,PetscInt * num,int * __ierr)1112 PETSC_EXTERN void dmfindregionnum_(DM dm,PetscDS ds,PetscInt *num, int *__ierr)
1113 {
1114 *__ierr = DMFindRegionNum(
1115 (DM)PetscToPointer((dm) ),
1116 (PetscDS)PetscToPointer((ds) ),num);
1117 }
dmcreateds_(DM dm,int * __ierr)1118 PETSC_EXTERN void dmcreateds_(DM dm, int *__ierr)
1119 {
1120 *__ierr = DMCreateDS(
1121 (DM)PetscToPointer((dm) ));
1122 }
dmcomputeexactsolution_(DM dm,PetscReal * time,Vec u,Vec u_t,int * __ierr)1123 PETSC_EXTERN void dmcomputeexactsolution_(DM dm,PetscReal *time,Vec u,Vec u_t, int *__ierr)
1124 {
1125 *__ierr = DMComputeExactSolution(
1126 (DM)PetscToPointer((dm) ),*time,
1127 (Vec)PetscToPointer((u) ),
1128 (Vec)PetscToPointer((u_t) ));
1129 }
dmcopyds_(DM dm,DM newdm,int * __ierr)1130 PETSC_EXTERN void dmcopyds_(DM dm,DM newdm, int *__ierr)
1131 {
1132 *__ierr = DMCopyDS(
1133 (DM)PetscToPointer((dm) ),
1134 (DM)PetscToPointer((newdm) ));
1135 }
dmcopydisc_(DM dm,DM newdm,int * __ierr)1136 PETSC_EXTERN void dmcopydisc_(DM dm,DM newdm, int *__ierr)
1137 {
1138 *__ierr = DMCopyDisc(
1139 (DM)PetscToPointer((dm) ),
1140 (DM)PetscToPointer((newdm) ));
1141 }
dmgetdimension_(DM dm,PetscInt * dim,int * __ierr)1142 PETSC_EXTERN void dmgetdimension_(DM dm,PetscInt *dim, int *__ierr)
1143 {
1144 *__ierr = DMGetDimension(
1145 (DM)PetscToPointer((dm) ),dim);
1146 }
dmsetdimension_(DM dm,PetscInt * dim,int * __ierr)1147 PETSC_EXTERN void dmsetdimension_(DM dm,PetscInt *dim, int *__ierr)
1148 {
1149 *__ierr = DMSetDimension(
1150 (DM)PetscToPointer((dm) ),*dim);
1151 }
dmgetdimpoints_(DM dm,PetscInt * dim,PetscInt * pStart,PetscInt * pEnd,int * __ierr)1152 PETSC_EXTERN void dmgetdimpoints_(DM dm,PetscInt *dim,PetscInt *pStart,PetscInt *pEnd, int *__ierr)
1153 {
1154 *__ierr = DMGetDimPoints(
1155 (DM)PetscToPointer((dm) ),*dim,pStart,pEnd);
1156 }
dmsetcoordinates_(DM dm,Vec c,int * __ierr)1157 PETSC_EXTERN void dmsetcoordinates_(DM dm,Vec c, int *__ierr)
1158 {
1159 *__ierr = DMSetCoordinates(
1160 (DM)PetscToPointer((dm) ),
1161 (Vec)PetscToPointer((c) ));
1162 }
dmsetcoordinateslocal_(DM dm,Vec c,int * __ierr)1163 PETSC_EXTERN void dmsetcoordinateslocal_(DM dm,Vec c, int *__ierr)
1164 {
1165 *__ierr = DMSetCoordinatesLocal(
1166 (DM)PetscToPointer((dm) ),
1167 (Vec)PetscToPointer((c) ));
1168 }
dmgetcoordinates_(DM dm,Vec * c,int * __ierr)1169 PETSC_EXTERN void dmgetcoordinates_(DM dm,Vec *c, int *__ierr)
1170 {
1171 *__ierr = DMGetCoordinates(
1172 (DM)PetscToPointer((dm) ),c);
1173 }
dmgetcoordinateslocalsetup_(DM dm,int * __ierr)1174 PETSC_EXTERN void dmgetcoordinateslocalsetup_(DM dm, int *__ierr)
1175 {
1176 *__ierr = DMGetCoordinatesLocalSetUp(
1177 (DM)PetscToPointer((dm) ));
1178 }
dmgetcoordinateslocal_(DM dm,Vec * c,int * __ierr)1179 PETSC_EXTERN void dmgetcoordinateslocal_(DM dm,Vec *c, int *__ierr)
1180 {
1181 *__ierr = DMGetCoordinatesLocal(
1182 (DM)PetscToPointer((dm) ),c);
1183 }
dmgetcoordinateslocalnoncollective_(DM dm,Vec * c,int * __ierr)1184 PETSC_EXTERN void dmgetcoordinateslocalnoncollective_(DM dm,Vec *c, int *__ierr)
1185 {
1186 *__ierr = DMGetCoordinatesLocalNoncollective(
1187 (DM)PetscToPointer((dm) ),c);
1188 }
dmgetcoordinateslocaltuple_(DM dm,IS p,PetscSection * pCoordSection,Vec * pCoord,int * __ierr)1189 PETSC_EXTERN void dmgetcoordinateslocaltuple_(DM dm,IS p,PetscSection *pCoordSection,Vec *pCoord, int *__ierr)
1190 {
1191 *__ierr = DMGetCoordinatesLocalTuple(
1192 (DM)PetscToPointer((dm) ),
1193 (IS)PetscToPointer((p) ),pCoordSection,pCoord);
1194 }
dmgetcoordinatedm_(DM dm,DM * cdm,int * __ierr)1195 PETSC_EXTERN void dmgetcoordinatedm_(DM dm,DM *cdm, int *__ierr)
1196 {
1197 *__ierr = DMGetCoordinateDM(
1198 (DM)PetscToPointer((dm) ),cdm);
1199 }
dmsetcoordinatedm_(DM dm,DM cdm,int * __ierr)1200 PETSC_EXTERN void dmsetcoordinatedm_(DM dm,DM cdm, int *__ierr)
1201 {
1202 *__ierr = DMSetCoordinateDM(
1203 (DM)PetscToPointer((dm) ),
1204 (DM)PetscToPointer((cdm) ));
1205 }
dmgetcoordinatedim_(DM dm,PetscInt * dim,int * __ierr)1206 PETSC_EXTERN void dmgetcoordinatedim_(DM dm,PetscInt *dim, int *__ierr)
1207 {
1208 *__ierr = DMGetCoordinateDim(
1209 (DM)PetscToPointer((dm) ),dim);
1210 }
dmsetcoordinatedim_(DM dm,PetscInt * dim,int * __ierr)1211 PETSC_EXTERN void dmsetcoordinatedim_(DM dm,PetscInt *dim, int *__ierr)
1212 {
1213 *__ierr = DMSetCoordinateDim(
1214 (DM)PetscToPointer((dm) ),*dim);
1215 }
dmgetcoordinatesection_(DM dm,PetscSection * section,int * __ierr)1216 PETSC_EXTERN void dmgetcoordinatesection_(DM dm,PetscSection *section, int *__ierr)
1217 {
1218 *__ierr = DMGetCoordinateSection(
1219 (DM)PetscToPointer((dm) ),section);
1220 }
dmsetcoordinatesection_(DM dm,PetscInt * dim,PetscSection section,int * __ierr)1221 PETSC_EXTERN void dmsetcoordinatesection_(DM dm,PetscInt *dim,PetscSection section, int *__ierr)
1222 {
1223 *__ierr = DMSetCoordinateSection(
1224 (DM)PetscToPointer((dm) ),*dim,
1225 (PetscSection)PetscToPointer((section) ));
1226 }
dmprojectcoordinates_(DM dm,PetscFE disc,int * __ierr)1227 PETSC_EXTERN void dmprojectcoordinates_(DM dm,PetscFE disc, int *__ierr)
1228 {
1229 *__ierr = DMProjectCoordinates(
1230 (DM)PetscToPointer((dm) ),
1231 (PetscFE)PetscToPointer((disc) ));
1232 }
dmlocalizecoordinate_(DM dm,PetscScalar in[],PetscBool * endpoint,PetscScalar out[],int * __ierr)1233 PETSC_EXTERN void dmlocalizecoordinate_(DM dm, PetscScalar in[],PetscBool *endpoint,PetscScalar out[], int *__ierr)
1234 {
1235 *__ierr = DMLocalizeCoordinate(
1236 (DM)PetscToPointer((dm) ),in,*endpoint,out);
1237 }
dmgetcoordinateslocalizedlocal_(DM dm,PetscBool * areLocalized,int * __ierr)1238 PETSC_EXTERN void dmgetcoordinateslocalizedlocal_(DM dm,PetscBool *areLocalized, int *__ierr)
1239 {
1240 *__ierr = DMGetCoordinatesLocalizedLocal(
1241 (DM)PetscToPointer((dm) ),areLocalized);
1242 }
dmgetcoordinateslocalized_(DM dm,PetscBool * areLocalized,int * __ierr)1243 PETSC_EXTERN void dmgetcoordinateslocalized_(DM dm,PetscBool *areLocalized, int *__ierr)
1244 {
1245 *__ierr = DMGetCoordinatesLocalized(
1246 (DM)PetscToPointer((dm) ),areLocalized);
1247 }
dmlocalizecoordinates_(DM dm,int * __ierr)1248 PETSC_EXTERN void dmlocalizecoordinates_(DM dm, int *__ierr)
1249 {
1250 *__ierr = DMLocalizeCoordinates(
1251 (DM)PetscToPointer((dm) ));
1252 }
dmlocatepoints_(DM dm,Vec v,DMPointLocationType * ltype,PetscSF * cellSF,int * __ierr)1253 PETSC_EXTERN void dmlocatepoints_(DM dm,Vec v,DMPointLocationType *ltype,PetscSF *cellSF, int *__ierr)
1254 {
1255 *__ierr = DMLocatePoints(
1256 (DM)PetscToPointer((dm) ),
1257 (Vec)PetscToPointer((v) ),*ltype,cellSF);
1258 }
dmgetoutputdm_(DM dm,DM * odm,int * __ierr)1259 PETSC_EXTERN void dmgetoutputdm_(DM dm,DM *odm, int *__ierr)
1260 {
1261 *__ierr = DMGetOutputDM(
1262 (DM)PetscToPointer((dm) ),odm);
1263 }
dmgetoutputsequencenumber_(DM dm,PetscInt * num,PetscReal * val,int * __ierr)1264 PETSC_EXTERN void dmgetoutputsequencenumber_(DM dm,PetscInt *num,PetscReal *val, int *__ierr)
1265 {
1266 *__ierr = DMGetOutputSequenceNumber(
1267 (DM)PetscToPointer((dm) ),num,val);
1268 }
dmsetoutputsequencenumber_(DM dm,PetscInt * num,PetscReal * val,int * __ierr)1269 PETSC_EXTERN void dmsetoutputsequencenumber_(DM dm,PetscInt *num,PetscReal *val, int *__ierr)
1270 {
1271 *__ierr = DMSetOutputSequenceNumber(
1272 (DM)PetscToPointer((dm) ),*num,*val);
1273 }
dmgetusenatural_(DM dm,PetscBool * useNatural,int * __ierr)1274 PETSC_EXTERN void dmgetusenatural_(DM dm,PetscBool *useNatural, int *__ierr)
1275 {
1276 *__ierr = DMGetUseNatural(
1277 (DM)PetscToPointer((dm) ),useNatural);
1278 }
dmsetusenatural_(DM dm,PetscBool * useNatural,int * __ierr)1279 PETSC_EXTERN void dmsetusenatural_(DM dm,PetscBool *useNatural, int *__ierr)
1280 {
1281 *__ierr = DMSetUseNatural(
1282 (DM)PetscToPointer((dm) ),*useNatural);
1283 }
dmgetnumlabels_(DM dm,PetscInt * numLabels,int * __ierr)1284 PETSC_EXTERN void dmgetnumlabels_(DM dm,PetscInt *numLabels, int *__ierr)
1285 {
1286 *__ierr = DMGetNumLabels(
1287 (DM)PetscToPointer((dm) ),numLabels);
1288 }
dmremovelabelbyself_(DM dm,DMLabel * label,PetscBool * failNotFound,int * __ierr)1289 PETSC_EXTERN void dmremovelabelbyself_(DM dm,DMLabel *label,PetscBool *failNotFound, int *__ierr)
1290 {
1291 *__ierr = DMRemoveLabelBySelf(
1292 (DM)PetscToPointer((dm) ),label,*failNotFound);
1293 }
dmcopylabels_(DM dmA,DM dmB,PetscCopyMode * mode,PetscBool * all,int * __ierr)1294 PETSC_EXTERN void dmcopylabels_(DM dmA,DM dmB,PetscCopyMode *mode,PetscBool *all, int *__ierr)
1295 {
1296 *__ierr = DMCopyLabels(
1297 (DM)PetscToPointer((dmA) ),
1298 (DM)PetscToPointer((dmB) ),*mode,*all);
1299 }
dmgetcoarsedm_(DM dm,DM * cdm,int * __ierr)1300 PETSC_EXTERN void dmgetcoarsedm_(DM dm,DM *cdm, int *__ierr)
1301 {
1302 *__ierr = DMGetCoarseDM(
1303 (DM)PetscToPointer((dm) ),cdm);
1304 }
dmsetcoarsedm_(DM dm,DM cdm,int * __ierr)1305 PETSC_EXTERN void dmsetcoarsedm_(DM dm,DM cdm, int *__ierr)
1306 {
1307 *__ierr = DMSetCoarseDM(
1308 (DM)PetscToPointer((dm) ),
1309 (DM)PetscToPointer((cdm) ));
1310 }
dmgetfinedm_(DM dm,DM * fdm,int * __ierr)1311 PETSC_EXTERN void dmgetfinedm_(DM dm,DM *fdm, int *__ierr)
1312 {
1313 *__ierr = DMGetFineDM(
1314 (DM)PetscToPointer((dm) ),fdm);
1315 }
dmsetfinedm_(DM dm,DM fdm,int * __ierr)1316 PETSC_EXTERN void dmsetfinedm_(DM dm,DM fdm, int *__ierr)
1317 {
1318 *__ierr = DMSetFineDM(
1319 (DM)PetscToPointer((dm) ),
1320 (DM)PetscToPointer((fdm) ));
1321 }
dmgetnumboundary_(DM dm,PetscInt * numBd,int * __ierr)1322 PETSC_EXTERN void dmgetnumboundary_(DM dm,PetscInt *numBd, int *__ierr)
1323 {
1324 *__ierr = DMGetNumBoundary(
1325 (DM)PetscToPointer((dm) ),numBd);
1326 }
matfdcoloringusedm_(Mat coloring,MatFDColoring fdcoloring,int * __ierr)1327 PETSC_EXTERN void matfdcoloringusedm_(Mat coloring,MatFDColoring fdcoloring, int *__ierr)
1328 {
1329 *__ierr = MatFDColoringUseDM(
1330 (Mat)PetscToPointer((coloring) ),
1331 (MatFDColoring)PetscToPointer((fdcoloring) ));
1332 }
1333
dmgetcompatibility_(DM dm1,DM dm2,PetscBool * compatible,PetscBool * set,int * __ierr)1334 PETSC_EXTERN void dmgetcompatibility_(DM dm1,DM dm2,PetscBool *compatible,PetscBool *set, int *__ierr)
1335 {
1336 *__ierr = DMGetCompatibility(
1337 (DM)PetscToPointer((dm1) ),
1338 (DM)PetscToPointer((dm2) ),compatible,set);
1339 }
dmmonitorcancel_(DM dm,int * __ierr)1340 PETSC_EXTERN void dmmonitorcancel_(DM dm, int *__ierr)
1341 {
1342 *__ierr = DMMonitorCancel(
1343 (DM)PetscToPointer((dm) ));
1344 }
dmmonitor_(DM dm,int * __ierr)1345 PETSC_EXTERN void dmmonitor_(DM dm, int *__ierr)
1346 {
1347 *__ierr = DMMonitor(
1348 (DM)PetscToPointer((dm) ));
1349 }
1350 #if defined(__cplusplus)
1351 }
1352 #endif
1353