Actual source code: meshMovementf.c
1: /* meshMovement.c */
2: /* Fortran interface file */
4: /*
5: * This file was generated automatically by bfort from the C source
6: * file.
7: */
9: #ifdef PETSC_USE_POINTER_CONVERSION
10: #if defined(__cplusplus)
11: extern "C" {
12: #endif
13: extern void *PetscToPointer(void *);
14: extern int PetscFromPointer(void *);
15: extern void PetscRmPointer(void *);
16: #if defined(__cplusplus)
17: }
18: #endif
20: #else
22: #define PetscToPointer(a) (*(long *)(a))
23: #define PetscFromPointer(a) (long)(a)
24: #define PetscRmPointer(a)
25: #endif
27: #include "petscfix.h"
28: #include "meshMovement.h"
29: #include "petscfix.h"
30: #include grid.h
31: #include "petscfix.h"
32: #include gvec.h
33: #ifdef MPI_BUILD_PROFILING
34: #ifdef PETSC_HAVE_FORTRAN_CAPS
35: #define meshsetmover_ PMESHSETMOVER
36: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
37: #define meshsetmover_ pmeshsetmover
38: #else
39: #define meshsetmover_ pmeshsetmover_
40: #endif
41: #else
42: #ifdef PETSC_HAVE_FORTRAN_CAPS
43: #define meshsetmover_ MESHSETMOVER
44: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
45: #define meshsetmover_ meshsetmover
46: #endif
47: #endif
49: #ifdef MPI_BUILD_PROFILING
50: #ifdef PETSC_HAVE_FORTRAN_CAPS
51: #define meshgetmover_ PMESHGETMOVER
52: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
53: #define meshgetmover_ pmeshgetmover
54: #else
55: #define meshgetmover_ pmeshgetmover_
56: #endif
57: #else
58: #ifdef PETSC_HAVE_FORTRAN_CAPS
59: #define meshgetmover_ MESHGETMOVER
60: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
61: #define meshgetmover_ meshgetmover
62: #endif
63: #endif
65: #ifdef MPI_BUILD_PROFILING
66: #ifdef PETSC_HAVE_FORTRAN_CAPS
67: #define meshmovemesh_ PMESHMOVEMESH
68: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
69: #define meshmovemesh_ pmeshmovemesh
70: #else
71: #define meshmovemesh_ pmeshmovemesh_
72: #endif
73: #else
74: #ifdef PETSC_HAVE_FORTRAN_CAPS
75: #define meshmovemesh_ MESHMOVEMESH
76: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
77: #define meshmovemesh_ meshmovemesh
78: #endif
79: #endif
81: #ifdef MPI_BUILD_PROFILING
82: #ifdef PETSC_HAVE_FORTRAN_CAPS
83: #define meshupdatenodevalues_ PMESHUPDATENODEVALUES
84: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
85: #define meshupdatenodevalues_ pmeshupdatenodevalues
86: #else
87: #define meshupdatenodevalues_ pmeshupdatenodevalues_
88: #endif
89: #else
90: #ifdef PETSC_HAVE_FORTRAN_CAPS
91: #define meshupdatenodevalues_ MESHUPDATENODEVALUES
92: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
93: #define meshupdatenodevalues_ meshupdatenodevalues
94: #endif
95: #endif
97: #ifdef MPI_BUILD_PROFILING
98: #ifdef PETSC_HAVE_FORTRAN_CAPS
99: #define meshreform_ PMESHREFORM
100: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
101: #define meshreform_ pmeshreform
102: #else
103: #define meshreform_ pmeshreform_
104: #endif
105: #else
106: #ifdef PETSC_HAVE_FORTRAN_CAPS
107: #define meshreform_ MESHREFORM
108: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
109: #define meshreform_ meshreform
110: #endif
111: #endif
113: #ifdef MPI_BUILD_PROFILING
114: #ifdef PETSC_HAVE_FORTRAN_CAPS
115: #define meshmovercreate_ PMESHMOVERCREATE
116: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
117: #define meshmovercreate_ pmeshmovercreate
118: #else
119: #define meshmovercreate_ pmeshmovercreate_
120: #endif
121: #else
122: #ifdef PETSC_HAVE_FORTRAN_CAPS
123: #define meshmovercreate_ MESHMOVERCREATE
124: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
125: #define meshmovercreate_ meshmovercreate
126: #endif
127: #endif
129: #ifdef MPI_BUILD_PROFILING
130: #ifdef PETSC_HAVE_FORTRAN_CAPS
131: #define meshmoversetup_ PMESHMOVERSETUP
132: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
133: #define meshmoversetup_ pmeshmoversetup
134: #else
135: #define meshmoversetup_ pmeshmoversetup_
136: #endif
137: #else
138: #ifdef PETSC_HAVE_FORTRAN_CAPS
139: #define meshmoversetup_ MESHMOVERSETUP
140: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
141: #define meshmoversetup_ meshmoversetup
142: #endif
143: #endif
145: #ifdef MPI_BUILD_PROFILING
146: #ifdef PETSC_HAVE_FORTRAN_CAPS
147: #define meshmoversetfromoptions_ PMESHMOVERSETFROMOPTIONS
148: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
149: #define meshmoversetfromoptions_ pmeshmoversetfromoptions
150: #else
151: #define meshmoversetfromoptions_ pmeshmoversetfromoptions_
152: #endif
153: #else
154: #ifdef PETSC_HAVE_FORTRAN_CAPS
155: #define meshmoversetfromoptions_ MESHMOVERSETFROMOPTIONS
156: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
157: #define meshmoversetfromoptions_ meshmoversetfromoptions
158: #endif
159: #endif
161: #ifdef MPI_BUILD_PROFILING
162: #ifdef PETSC_HAVE_FORTRAN_CAPS
163: #define meshmoverprinthelp_ PMESHMOVERPRINTHELP
164: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
165: #define meshmoverprinthelp_ pmeshmoverprinthelp
166: #else
167: #define meshmoverprinthelp_ pmeshmoverprinthelp_
168: #endif
169: #else
170: #ifdef PETSC_HAVE_FORTRAN_CAPS
171: #define meshmoverprinthelp_ MESHMOVERPRINTHELP
172: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
173: #define meshmoverprinthelp_ meshmoverprinthelp
174: #endif
175: #endif
177: #ifdef MPI_BUILD_PROFILING
178: #ifdef PETSC_HAVE_FORTRAN_CAPS
179: #define meshmoverduplicate_ PMESHMOVERDUPLICATE
180: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
181: #define meshmoverduplicate_ pmeshmoverduplicate
182: #else
183: #define meshmoverduplicate_ pmeshmoverduplicate_
184: #endif
185: #else
186: #ifdef PETSC_HAVE_FORTRAN_CAPS
187: #define meshmoverduplicate_ MESHMOVERDUPLICATE
188: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
189: #define meshmoverduplicate_ meshmoverduplicate
190: #endif
191: #endif
193: #ifdef MPI_BUILD_PROFILING
194: #ifdef PETSC_HAVE_FORTRAN_CAPS
195: #define meshmoverconvert_ PMESHMOVERCONVERT
196: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
197: #define meshmoverconvert_ pmeshmoverconvert
198: #else
199: #define meshmoverconvert_ pmeshmoverconvert_
200: #endif
201: #else
202: #ifdef PETSC_HAVE_FORTRAN_CAPS
203: #define meshmoverconvert_ MESHMOVERCONVERT
204: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
205: #define meshmoverconvert_ meshmoverconvert
206: #endif
207: #endif
209: #ifdef MPI_BUILD_PROFILING
210: #ifdef PETSC_HAVE_FORTRAN_CAPS
211: #define meshmoverview_ PMESHMOVERVIEW
212: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
213: #define meshmoverview_ pmeshmoverview
214: #else
215: #define meshmoverview_ pmeshmoverview_
216: #endif
217: #else
218: #ifdef PETSC_HAVE_FORTRAN_CAPS
219: #define meshmoverview_ MESHMOVERVIEW
220: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
221: #define meshmoverview_ meshmoverview
222: #endif
223: #endif
225: #ifdef MPI_BUILD_PROFILING
226: #ifdef PETSC_HAVE_FORTRAN_CAPS
227: #define meshmoverdestroy_ PMESHMOVERDESTROY
228: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
229: #define meshmoverdestroy_ pmeshmoverdestroy
230: #else
231: #define meshmoverdestroy_ pmeshmoverdestroy_
232: #endif
233: #else
234: #ifdef PETSC_HAVE_FORTRAN_CAPS
235: #define meshmoverdestroy_ MESHMOVERDESTROY
236: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
237: #define meshmoverdestroy_ meshmoverdestroy
238: #endif
239: #endif
241: #ifdef MPI_BUILD_PROFILING
242: #ifdef PETSC_HAVE_FORTRAN_CAPS
243: #define meshmoversetmesh_ PMESHMOVERSETMESH
244: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
245: #define meshmoversetmesh_ pmeshmoversetmesh
246: #else
247: #define meshmoversetmesh_ pmeshmoversetmesh_
248: #endif
249: #else
250: #ifdef PETSC_HAVE_FORTRAN_CAPS
251: #define meshmoversetmesh_ MESHMOVERSETMESH
252: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
253: #define meshmoversetmesh_ meshmoversetmesh
254: #endif
255: #endif
257: #ifdef MPI_BUILD_PROFILING
258: #ifdef PETSC_HAVE_FORTRAN_CAPS
259: #define meshmovergetmesh_ PMESHMOVERGETMESH
260: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
261: #define meshmovergetmesh_ pmeshmovergetmesh
262: #else
263: #define meshmovergetmesh_ pmeshmovergetmesh_
264: #endif
265: #else
266: #ifdef PETSC_HAVE_FORTRAN_CAPS
267: #define meshmovergetmesh_ MESHMOVERGETMESH
268: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
269: #define meshmovergetmesh_ meshmovergetmesh
270: #endif
271: #endif
273: #ifdef MPI_BUILD_PROFILING
274: #ifdef PETSC_HAVE_FORTRAN_CAPS
275: #define meshmovergetmovement_ PMESHMOVERGETMOVEMENT
276: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
277: #define meshmovergetmovement_ pmeshmovergetmovement
278: #else
279: #define meshmovergetmovement_ pmeshmovergetmovement_
280: #endif
281: #else
282: #ifdef PETSC_HAVE_FORTRAN_CAPS
283: #define meshmovergetmovement_ MESHMOVERGETMOVEMENT
284: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
285: #define meshmovergetmovement_ meshmovergetmovement
286: #endif
287: #endif
289: #ifdef MPI_BUILD_PROFILING
290: #ifdef PETSC_HAVE_FORTRAN_CAPS
291: #define meshmoversetmovement_ PMESHMOVERSETMOVEMENT
292: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
293: #define meshmoversetmovement_ pmeshmoversetmovement
294: #else
295: #define meshmoversetmovement_ pmeshmoversetmovement_
296: #endif
297: #else
298: #ifdef PETSC_HAVE_FORTRAN_CAPS
299: #define meshmoversetmovement_ MESHMOVERSETMOVEMENT
300: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
301: #define meshmoversetmovement_ meshmoversetmovement
302: #endif
303: #endif
305: #ifdef MPI_BUILD_PROFILING
306: #ifdef PETSC_HAVE_FORTRAN_CAPS
307: #define meshmovergetvelocitygrid_ PMESHMOVERGETVELOCITYGRID
308: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
309: #define meshmovergetvelocitygrid_ pmeshmovergetvelocitygrid
310: #else
311: #define meshmovergetvelocitygrid_ pmeshmovergetvelocitygrid_
312: #endif
313: #else
314: #ifdef PETSC_HAVE_FORTRAN_CAPS
315: #define meshmovergetvelocitygrid_ MESHMOVERGETVELOCITYGRID
316: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
317: #define meshmovergetvelocitygrid_ meshmovergetvelocitygrid
318: #endif
319: #endif
321: #ifdef MPI_BUILD_PROFILING
322: #ifdef PETSC_HAVE_FORTRAN_CAPS
323: #define meshmovergetaccelerationgrid_ PMESHMOVERGETACCELERATIONGRID
324: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
325: #define meshmovergetaccelerationgrid_ pmeshmovergetaccelerationgrid
326: #else
327: #define meshmovergetaccelerationgrid_ pmeshmovergetaccelerationgrid_
328: #endif
329: #else
330: #ifdef PETSC_HAVE_FORTRAN_CAPS
331: #define meshmovergetaccelerationgrid_ MESHMOVERGETACCELERATIONGRID
332: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
333: #define meshmovergetaccelerationgrid_ meshmovergetaccelerationgrid
334: #endif
335: #endif
337: #ifdef MPI_BUILD_PROFILING
338: #ifdef PETSC_HAVE_FORTRAN_CAPS
339: #define meshmovercalcvelocitybcvalues_ PMESHMOVERCALCVELOCITYBCVALUES
340: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
341: #define meshmovercalcvelocitybcvalues_ pmeshmovercalcvelocitybcvalues
342: #else
343: #define meshmovercalcvelocitybcvalues_ pmeshmovercalcvelocitybcvalues_
344: #endif
345: #else
346: #ifdef PETSC_HAVE_FORTRAN_CAPS
347: #define meshmovercalcvelocitybcvalues_ MESHMOVERCALCVELOCITYBCVALUES
348: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
349: #define meshmovercalcvelocitybcvalues_ meshmovercalcvelocitybcvalues
350: #endif
351: #endif
353: #ifdef MPI_BUILD_PROFILING
354: #ifdef PETSC_HAVE_FORTRAN_CAPS
355: #define meshmovercalcaccelerationbcvalues_ PMESHMOVERCALCACCELERATIONBCVALUES
356: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
357: #define meshmovercalcaccelerationbcvalues_ pmeshmovercalcaccelerationbcvalues
358: #else
359: #define meshmovercalcaccelerationbcvalues_ pmeshmovercalcaccelerationbcvalues_
360: #endif
361: #else
362: #ifdef PETSC_HAVE_FORTRAN_CAPS
363: #define meshmovercalcaccelerationbcvalues_ MESHMOVERCALCACCELERATIONBCVALUES
364: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
365: #define meshmovercalcaccelerationbcvalues_ meshmovercalcaccelerationbcvalues
366: #endif
367: #endif
369: #ifdef MPI_BUILD_PROFILING
370: #ifdef PETSC_HAVE_FORTRAN_CAPS
371: #define meshmovercalcnodevelocities_ PMESHMOVERCALCNODEVELOCITIES
372: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
373: #define meshmovercalcnodevelocities_ pmeshmovercalcnodevelocities
374: #else
375: #define meshmovercalcnodevelocities_ pmeshmovercalcnodevelocities_
376: #endif
377: #else
378: #ifdef PETSC_HAVE_FORTRAN_CAPS
379: #define meshmovercalcnodevelocities_ MESHMOVERCALCNODEVELOCITIES
380: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
381: #define meshmovercalcnodevelocities_ meshmovercalcnodevelocities
382: #endif
383: #endif
385: #ifdef MPI_BUILD_PROFILING
386: #ifdef PETSC_HAVE_FORTRAN_CAPS
387: #define meshmovercalcnodeaccelerations_ PMESHMOVERCALCNODEACCELERATIONS
388: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
389: #define meshmovercalcnodeaccelerations_ pmeshmovercalcnodeaccelerations
390: #else
391: #define meshmovercalcnodeaccelerations_ pmeshmovercalcnodeaccelerations_
392: #endif
393: #else
394: #ifdef PETSC_HAVE_FORTRAN_CAPS
395: #define meshmovercalcnodeaccelerations_ MESHMOVERCALCNODEACCELERATIONS
396: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
397: #define meshmovercalcnodeaccelerations_ meshmovercalcnodeaccelerations
398: #endif
399: #endif
401: #ifdef MPI_BUILD_PROFILING
402: #ifdef PETSC_HAVE_FORTRAN_CAPS
403: #define meshmoversetnodevelocities_ PMESHMOVERSETNODEVELOCITIES
404: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
405: #define meshmoversetnodevelocities_ pmeshmoversetnodevelocities
406: #else
407: #define meshmoversetnodevelocities_ pmeshmoversetnodevelocities_
408: #endif
409: #else
410: #ifdef PETSC_HAVE_FORTRAN_CAPS
411: #define meshmoversetnodevelocities_ MESHMOVERSETNODEVELOCITIES
412: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
413: #define meshmoversetnodevelocities_ meshmoversetnodevelocities
414: #endif
415: #endif
417: #ifdef MPI_BUILD_PROFILING
418: #ifdef PETSC_HAVE_FORTRAN_CAPS
419: #define meshmoversetnodeaccelerations_ PMESHMOVERSETNODEACCELERATIONS
420: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
421: #define meshmoversetnodeaccelerations_ pmeshmoversetnodeaccelerations
422: #else
423: #define meshmoversetnodeaccelerations_ pmeshmoversetnodeaccelerations_
424: #endif
425: #else
426: #ifdef PETSC_HAVE_FORTRAN_CAPS
427: #define meshmoversetnodeaccelerations_ MESHMOVERSETNODEACCELERATIONS
428: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
429: #define meshmoversetnodeaccelerations_ meshmoversetnodeaccelerations
430: #endif
431: #endif
433: #ifdef MPI_BUILD_PROFILING
434: #ifdef PETSC_HAVE_FORTRAN_CAPS
435: #define meshmoversetmovementcaption_ PMESHMOVERSETMOVEMENTCAPTION
436: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
437: #define meshmoversetmovementcaption_ pmeshmoversetmovementcaption
438: #else
439: #define meshmoversetmovementcaption_ pmeshmoversetmovementcaption_
440: #endif
441: #else
442: #ifdef PETSC_HAVE_FORTRAN_CAPS
443: #define meshmoversetmovementcaption_ MESHMOVERSETMOVEMENTCAPTION
444: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
445: #define meshmoversetmovementcaption_ meshmoversetmovementcaption
446: #endif
447: #endif
449: #ifdef MPI_BUILD_PROFILING
450: #ifdef PETSC_HAVE_FORTRAN_CAPS
451: #define gridreformmesh_ PGRIDREFORMMESH
452: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
453: #define gridreformmesh_ pgridreformmesh
454: #else
455: #define gridreformmesh_ pgridreformmesh_
456: #endif
457: #else
458: #ifdef PETSC_HAVE_FORTRAN_CAPS
459: #define gridreformmesh_ GRIDREFORMMESH
460: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
461: #define gridreformmesh_ gridreformmesh
462: #endif
463: #endif
465: #ifdef MPI_BUILD_PROFILING
466: #ifdef PETSC_HAVE_FORTRAN_CAPS
467: #define gridreform_ PGRIDREFORM
468: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
469: #define gridreform_ pgridreform
470: #else
471: #define gridreform_ pgridreform_
472: #endif
473: #else
474: #ifdef PETSC_HAVE_FORTRAN_CAPS
475: #define gridreform_ GRIDREFORM
476: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
477: #define gridreform_ gridreform
478: #endif
479: #endif
483: /* Definitions of Fortran Wrapper routines */
484: #if defined(__cplusplus)
485: extern "C" {
486: #endif
487: void PETSC_STDCALL meshsetmover_(Mesh mesh,MeshMover *mover, int *ierr ){
488: *MeshSetMover(
489: (Mesh)PetscToPointer( (mesh) ),*mover);
490: }
491: void PETSC_STDCALL meshgetmover_(Mesh mesh,MeshMover *mover, int *ierr ){
492: *MeshGetMover(
493: (Mesh)PetscToPointer( (mesh) ),
494: (MeshMover* )PetscToPointer( (mover) ));
495: }
496: void PETSC_STDCALL meshmovemesh_(Mesh mesh,double *dt, int *ierr ){
497: *MeshMoveMesh(
498: (Mesh)PetscToPointer( (mesh) ),*dt);
499: }
500: void PETSC_STDCALL meshupdatenodevalues_(Mesh mesh,GVec sol,Vec vec,Vec ghostVec, int *ierr ){
501: *MeshUpdateNodeValues(
502: (Mesh)PetscToPointer( (mesh) ),
503: (GVec)PetscToPointer( (sol) ),
504: (Vec)PetscToPointer( (vec) ),
505: (Vec)PetscToPointer( (ghostVec) ));
506: }
507: void PETSC_STDCALL meshreform_(Mesh mesh,PetscTruth *refine,PointFunction *area,PetscTruth *newBd,Mesh *newMesh, int *ierr ){
508: *MeshReform(
509: (Mesh)PetscToPointer( (mesh) ),*refine,*area,*newBd,newMesh);
510: }
511: void PETSC_STDCALL meshmovercreate_(Mesh mesh,MeshMover *mover, int *ierr ){
512: *MeshMoverCreate(
513: (Mesh)PetscToPointer( (mesh) ),
514: (MeshMover* )PetscToPointer( (mover) ));
515: }
516: void PETSC_STDCALL meshmoversetup_(MeshMover *mover, int *ierr ){
517: *MeshMoverSetup(*mover);
518: }
519: void PETSC_STDCALL meshmoversetfromoptions_(MeshMover *mover, int *ierr ){
520: *MeshMoverSetFromOptions(*mover);
521: }
522: void PETSC_STDCALL meshmoverprinthelp_(MeshMover *mover, int *ierr ){
523: *MeshMoverPrintHelp(*mover);
524: }
525: void PETSC_STDCALL meshmoverduplicate_(MeshMover *mover,MeshMover *newMover, int *ierr ){
526: *MeshMoverDuplicate(*mover,
527: (MeshMover* )PetscToPointer( (newMover) ));
528: }
529: void PETSC_STDCALL meshmoverconvert_(MeshMover *mover,Mesh newMesh,MeshMover *newMover, int *ierr ){
530: *MeshMoverConvert(*mover,
531: (Mesh)PetscToPointer( (newMesh) ),
532: (MeshMover* )PetscToPointer( (newMover) ));
533: }
534: void PETSC_STDCALL meshmoverview_(MeshMover *mover,PetscViewer *viewer, int *ierr ){
535: *MeshMoverView(*mover,*viewer);
536: }
537: void PETSC_STDCALL meshmoverdestroy_(MeshMover *mover, int *ierr ){
538: *MeshMoverDestroy(*mover);
539: }
540: void PETSC_STDCALL meshmoversetmesh_(MeshMover *mover,Mesh mesh, int *ierr ){
541: *MeshMoverSetMesh(*mover,
542: (Mesh)PetscToPointer( (mesh) ));
543: }
544: void PETSC_STDCALL meshmovergetmesh_(MeshMover *mover,Mesh *mesh, int *ierr ){
545: *MeshMoverGetMesh(*mover,mesh);
546: }
547: void PETSC_STDCALL meshmovergetmovement_(MeshMover *mover,MeshSolveMethod *vtype,MeshSolveMethod *atype,PetscObject *ctx, int *ierr ){
548: *MeshMoverGetMovement(*mover,
549: (MeshSolveMethod* )PetscToPointer( (vtype) ),
550: (MeshSolveMethod* )PetscToPointer( (atype) ),ctx);
551: }
552: void PETSC_STDCALL meshmoversetmovement_(MeshMover *mover,MeshSolveMethod *vtype,MeshSolveMethod *atype,PetscObject ctx, int *ierr ){
553: *MeshMoverSetMovement(*mover,*vtype,*atype,
554: (PetscObject)PetscToPointer( (ctx) ));
555: }
556: void PETSC_STDCALL meshmovergetvelocitygrid_(MeshMover *mover,Grid *velGrid, int *ierr ){
557: *MeshMoverGetVelocityGrid(*mover,velGrid);
558: }
559: void PETSC_STDCALL meshmovergetaccelerationgrid_(MeshMover *mover,Grid *accGrid, int *ierr ){
560: *MeshMoverGetAccelerationGrid(*mover,accGrid);
561: }
562: void PETSC_STDCALL meshmovercalcvelocitybcvalues_(MeshMover *mover, int *ierr ){
563: *MeshMoverCalcVelocityBCValues(*mover);
564: }
565: void PETSC_STDCALL meshmovercalcaccelerationbcvalues_(MeshMover *mover, int *ierr ){
566: *MeshMoverCalcAccelerationBCValues(*mover);
567: }
568: void PETSC_STDCALL meshmovercalcnodevelocities_(MeshMover *mover,PetscTruth *flag, int *ierr ){
569: *MeshMoverCalcNodeVelocities(*mover,*flag);
570: }
571: void PETSC_STDCALL meshmovercalcnodeaccelerations_(MeshMover *mover,PetscTruth *flag, int *ierr ){
572: *MeshMoverCalcNodeAccelerations(*mover,*flag);
573: }
574: void PETSC_STDCALL meshmoversetnodevelocities_(MeshMover *mover,PointFunction *func,PetscScalar *alpha,void*ctx, int *ierr ){
575: *MeshMoverSetNodeVelocities(*mover,*func,*alpha,ctx);
576: }
577: void PETSC_STDCALL meshmoversetnodeaccelerations_(MeshMover *mover,PointFunction *func,PetscScalar *alpha,void*ctx, int *ierr ){
578: *MeshMoverSetNodeAccelerations(*mover,*func,*alpha,ctx);
579: }
580: void PETSC_STDCALL meshmoversetmovementcaption_(MeshMover *mover,char *caption, int *ierr ){
581: *MeshMoverSetMovementCaption(*mover,caption);
582: }
583: void PETSC_STDCALL gridreformmesh_(Grid grid,PetscTruth *refine,PointFunction *area,PetscTruth *newBd,Mesh *oldMesh, int *ierr ){
584: *GridReformMesh(
585: (Grid)PetscToPointer( (grid) ),*refine,*area,*newBd,oldMesh);
586: }
587: void PETSC_STDCALL gridreform_(Grid grid,Mesh oldMesh,GVec x,GVec *y, int *ierr ){
588: *GridReform(
589: (Grid)PetscToPointer( (grid) ),
590: (Mesh)PetscToPointer( (oldMesh) ),
591: (GVec)PetscToPointer( (x) ),y);
592: }
593: #if defined(__cplusplus)
594: }
595: #endif