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