Actual source code: gridf.c
1: /* grid.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 grid.h
29: #include "petscfix.h"
30: #include gvec.h
31: #ifdef MPI_BUILD_PROFILING
32: #ifdef PETSC_HAVE_FORTRAN_CAPS
33: #define griddestroy_ PGRIDDESTROY
34: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
35: #define griddestroy_ pgriddestroy
36: #else
37: #define griddestroy_ pgriddestroy_
38: #endif
39: #else
40: #ifdef PETSC_HAVE_FORTRAN_CAPS
41: #define griddestroy_ GRIDDESTROY
42: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
43: #define griddestroy_ griddestroy
44: #endif
45: #endif
47: #ifdef MPI_BUILD_PROFILING
48: #ifdef PETSC_HAVE_FORTRAN_CAPS
49: #define gridview_ PGRIDVIEW
50: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
51: #define gridview_ pgridview
52: #else
53: #define gridview_ pgridview_
54: #endif
55: #else
56: #ifdef PETSC_HAVE_FORTRAN_CAPS
57: #define gridview_ GRIDVIEW
58: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
59: #define gridview_ gridview
60: #endif
61: #endif
63: #ifdef MPI_BUILD_PROFILING
64: #ifdef PETSC_HAVE_FORTRAN_CAPS
65: #define gridsetup_ PGRIDSETUP
66: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
67: #define gridsetup_ pgridsetup
68: #else
69: #define gridsetup_ pgridsetup_
70: #endif
71: #else
72: #ifdef PETSC_HAVE_FORTRAN_CAPS
73: #define gridsetup_ GRIDSETUP
74: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
75: #define gridsetup_ gridsetup
76: #endif
77: #endif
79: #ifdef MPI_BUILD_PROFILING
80: #ifdef PETSC_HAVE_FORTRAN_CAPS
81: #define gridsetupghostscatter_ PGRIDSETUPGHOSTSCATTER
82: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
83: #define gridsetupghostscatter_ pgridsetupghostscatter
84: #else
85: #define gridsetupghostscatter_ pgridsetupghostscatter_
86: #endif
87: #else
88: #ifdef PETSC_HAVE_FORTRAN_CAPS
89: #define gridsetupghostscatter_ GRIDSETUPGHOSTSCATTER
90: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
91: #define gridsetupghostscatter_ gridsetupghostscatter
92: #endif
93: #endif
95: #ifdef MPI_BUILD_PROFILING
96: #ifdef PETSC_HAVE_FORTRAN_CAPS
97: #define gridsetupboundary_ PGRIDSETUPBOUNDARY
98: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
99: #define gridsetupboundary_ pgridsetupboundary
100: #else
101: #define gridsetupboundary_ pgridsetupboundary_
102: #endif
103: #else
104: #ifdef PETSC_HAVE_FORTRAN_CAPS
105: #define gridsetupboundary_ GRIDSETUPBOUNDARY
106: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
107: #define gridsetupboundary_ gridsetupboundary
108: #endif
109: #endif
111: #ifdef MPI_BUILD_PROFILING
112: #ifdef PETSC_HAVE_FORTRAN_CAPS
113: #define gridgetmesh_ PGRIDGETMESH
114: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
115: #define gridgetmesh_ pgridgetmesh
116: #else
117: #define gridgetmesh_ pgridgetmesh_
118: #endif
119: #else
120: #ifdef PETSC_HAVE_FORTRAN_CAPS
121: #define gridgetmesh_ GRIDGETMESH
122: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
123: #define gridgetmesh_ gridgetmesh
124: #endif
125: #endif
127: #ifdef MPI_BUILD_PROFILING
128: #ifdef PETSC_HAVE_FORTRAN_CAPS
129: #define gridgetclassmap_ PGRIDGETCLASSMAP
130: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
131: #define gridgetclassmap_ pgridgetclassmap
132: #else
133: #define gridgetclassmap_ pgridgetclassmap_
134: #endif
135: #else
136: #ifdef PETSC_HAVE_FORTRAN_CAPS
137: #define gridgetclassmap_ GRIDGETCLASSMAP
138: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
139: #define gridgetclassmap_ gridgetclassmap
140: #endif
141: #endif
143: #ifdef MPI_BUILD_PROFILING
144: #ifdef PETSC_HAVE_FORTRAN_CAPS
145: #define gridgetorder_ PGRIDGETORDER
146: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
147: #define gridgetorder_ pgridgetorder
148: #else
149: #define gridgetorder_ pgridgetorder_
150: #endif
151: #else
152: #ifdef PETSC_HAVE_FORTRAN_CAPS
153: #define gridgetorder_ GRIDGETORDER
154: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
155: #define gridgetorder_ gridgetorder
156: #endif
157: #endif
159: #ifdef MPI_BUILD_PROFILING
160: #ifdef PETSC_HAVE_FORTRAN_CAPS
161: #define gridgetlocalorder_ PGRIDGETLOCALORDER
162: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
163: #define gridgetlocalorder_ pgridgetlocalorder
164: #else
165: #define gridgetlocalorder_ pgridgetlocalorder_
166: #endif
167: #else
168: #ifdef PETSC_HAVE_FORTRAN_CAPS
169: #define gridgetlocalorder_ GRIDGETLOCALORDER
170: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
171: #define gridgetlocalorder_ gridgetlocalorder
172: #endif
173: #endif
175: #ifdef MPI_BUILD_PROFILING
176: #ifdef PETSC_HAVE_FORTRAN_CAPS
177: #define gridgetdiscretization_ PGRIDGETDISCRETIZATION
178: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
179: #define gridgetdiscretization_ pgridgetdiscretization
180: #else
181: #define gridgetdiscretization_ pgridgetdiscretization_
182: #endif
183: #else
184: #ifdef PETSC_HAVE_FORTRAN_CAPS
185: #define gridgetdiscretization_ GRIDGETDISCRETIZATION
186: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
187: #define gridgetdiscretization_ gridgetdiscretization
188: #endif
189: #endif
191: #ifdef MPI_BUILD_PROFILING
192: #ifdef PETSC_HAVE_FORTRAN_CAPS
193: #define gridsetfromoptions_ PGRIDSETFROMOPTIONS
194: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
195: #define gridsetfromoptions_ pgridsetfromoptions
196: #else
197: #define gridsetfromoptions_ pgridsetfromoptions_
198: #endif
199: #else
200: #ifdef PETSC_HAVE_FORTRAN_CAPS
201: #define gridsetfromoptions_ GRIDSETFROMOPTIONS
202: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
203: #define gridsetfromoptions_ gridsetfromoptions
204: #endif
205: #endif
207: #ifdef MPI_BUILD_PROFILING
208: #ifdef PETSC_HAVE_FORTRAN_CAPS
209: #define gridviewfromoptions_ PGRIDVIEWFROMOPTIONS
210: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
211: #define gridviewfromoptions_ pgridviewfromoptions
212: #else
213: #define gridviewfromoptions_ pgridviewfromoptions_
214: #endif
215: #else
216: #ifdef PETSC_HAVE_FORTRAN_CAPS
217: #define gridviewfromoptions_ GRIDVIEWFROMOPTIONS
218: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
219: #define gridviewfromoptions_ gridviewfromoptions
220: #endif
221: #endif
223: #ifdef MPI_BUILD_PROFILING
224: #ifdef PETSC_HAVE_FORTRAN_CAPS
225: #define gridprinthelp_ PGRIDPRINTHELP
226: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
227: #define gridprinthelp_ pgridprinthelp
228: #else
229: #define gridprinthelp_ pgridprinthelp_
230: #endif
231: #else
232: #ifdef PETSC_HAVE_FORTRAN_CAPS
233: #define gridprinthelp_ GRIDPRINTHELP
234: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
235: #define gridprinthelp_ gridprinthelp
236: #endif
237: #endif
239: #ifdef MPI_BUILD_PROFILING
240: #ifdef PETSC_HAVE_FORTRAN_CAPS
241: #define gridgetoptionsprefix_ PGRIDGETOPTIONSPREFIX
242: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
243: #define gridgetoptionsprefix_ pgridgetoptionsprefix
244: #else
245: #define gridgetoptionsprefix_ pgridgetoptionsprefix_
246: #endif
247: #else
248: #ifdef PETSC_HAVE_FORTRAN_CAPS
249: #define gridgetoptionsprefix_ GRIDGETOPTIONSPREFIX
250: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
251: #define gridgetoptionsprefix_ gridgetoptionsprefix
252: #endif
253: #endif
255: #ifdef MPI_BUILD_PROFILING
256: #ifdef PETSC_HAVE_FORTRAN_CAPS
257: #define gridgetnearestnode_ PGRIDGETNEARESTNODE
258: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
259: #define gridgetnearestnode_ pgridgetnearestnode
260: #else
261: #define gridgetnearestnode_ pgridgetnearestnode_
262: #endif
263: #else
264: #ifdef PETSC_HAVE_FORTRAN_CAPS
265: #define gridgetnearestnode_ GRIDGETNEARESTNODE
266: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
267: #define gridgetnearestnode_ gridgetnearestnode
268: #endif
269: #endif
271: #ifdef MPI_BUILD_PROFILING
272: #ifdef PETSC_HAVE_FORTRAN_CAPS
273: #define gridgetnearestbdnode_ PGRIDGETNEARESTBDNODE
274: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
275: #define gridgetnearestbdnode_ pgridgetnearestbdnode
276: #else
277: #define gridgetnearestbdnode_ pgridgetnearestbdnode_
278: #endif
279: #else
280: #ifdef PETSC_HAVE_FORTRAN_CAPS
281: #define gridgetnearestbdnode_ GRIDGETNEARESTBDNODE
282: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
283: #define gridgetnearestbdnode_ gridgetnearestbdnode
284: #endif
285: #endif
287: #ifdef MPI_BUILD_PROFILING
288: #ifdef PETSC_HAVE_FORTRAN_CAPS
289: #define gridgetboundarysize_ PGRIDGETBOUNDARYSIZE
290: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
291: #define gridgetboundarysize_ pgridgetboundarysize
292: #else
293: #define gridgetboundarysize_ pgridgetboundarysize_
294: #endif
295: #else
296: #ifdef PETSC_HAVE_FORTRAN_CAPS
297: #define gridgetboundarysize_ GRIDGETBOUNDARYSIZE
298: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
299: #define gridgetboundarysize_ gridgetboundarysize
300: #endif
301: #endif
303: #ifdef MPI_BUILD_PROFILING
304: #ifdef PETSC_HAVE_FORTRAN_CAPS
305: #define gridgetboundarystart_ PGRIDGETBOUNDARYSTART
306: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
307: #define gridgetboundarystart_ pgridgetboundarystart
308: #else
309: #define gridgetboundarystart_ pgridgetboundarystart_
310: #endif
311: #else
312: #ifdef PETSC_HAVE_FORTRAN_CAPS
313: #define gridgetboundarystart_ GRIDGETBOUNDARYSTART
314: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
315: #define gridgetboundarystart_ gridgetboundarystart
316: #endif
317: #endif
319: #ifdef MPI_BUILD_PROFILING
320: #ifdef PETSC_HAVE_FORTRAN_CAPS
321: #define gridgetboundarynext_ PGRIDGETBOUNDARYNEXT
322: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
323: #define gridgetboundarynext_ pgridgetboundarynext
324: #else
325: #define gridgetboundarynext_ pgridgetboundarynext_
326: #endif
327: #else
328: #ifdef PETSC_HAVE_FORTRAN_CAPS
329: #define gridgetboundarynext_ GRIDGETBOUNDARYNEXT
330: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
331: #define gridgetboundarynext_ gridgetboundarynext
332: #endif
333: #endif
335: #ifdef MPI_BUILD_PROFILING
336: #ifdef PETSC_HAVE_FORTRAN_CAPS
337: #define gridrefinemesh_ PGRIDREFINEMESH
338: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
339: #define gridrefinemesh_ pgridrefinemesh
340: #else
341: #define gridrefinemesh_ pgridrefinemesh_
342: #endif
343: #else
344: #ifdef PETSC_HAVE_FORTRAN_CAPS
345: #define gridrefinemesh_ GRIDREFINEMESH
346: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
347: #define gridrefinemesh_ gridrefinemesh
348: #endif
349: #endif
351: #ifdef MPI_BUILD_PROFILING
352: #ifdef PETSC_HAVE_FORTRAN_CAPS
353: #define gridglobaltolocalgeneral_ PGRIDGLOBALTOLOCALGENERAL
354: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
355: #define gridglobaltolocalgeneral_ pgridglobaltolocalgeneral
356: #else
357: #define gridglobaltolocalgeneral_ pgridglobaltolocalgeneral_
358: #endif
359: #else
360: #ifdef PETSC_HAVE_FORTRAN_CAPS
361: #define gridglobaltolocalgeneral_ GRIDGLOBALTOLOCALGENERAL
362: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
363: #define gridglobaltolocalgeneral_ gridglobaltolocalgeneral
364: #endif
365: #endif
367: #ifdef MPI_BUILD_PROFILING
368: #ifdef PETSC_HAVE_FORTRAN_CAPS
369: #define gridglobaltolocal_ PGRIDGLOBALTOLOCAL
370: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
371: #define gridglobaltolocal_ pgridglobaltolocal
372: #else
373: #define gridglobaltolocal_ pgridglobaltolocal_
374: #endif
375: #else
376: #ifdef PETSC_HAVE_FORTRAN_CAPS
377: #define gridglobaltolocal_ GRIDGLOBALTOLOCAL
378: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
379: #define gridglobaltolocal_ gridglobaltolocal
380: #endif
381: #endif
383: #ifdef MPI_BUILD_PROFILING
384: #ifdef PETSC_HAVE_FORTRAN_CAPS
385: #define gridlocaltoglobal_ PGRIDLOCALTOGLOBAL
386: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
387: #define gridlocaltoglobal_ pgridlocaltoglobal
388: #else
389: #define gridlocaltoglobal_ pgridlocaltoglobal_
390: #endif
391: #else
392: #ifdef PETSC_HAVE_FORTRAN_CAPS
393: #define gridlocaltoglobal_ GRIDLOCALTOGLOBAL
394: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
395: #define gridlocaltoglobal_ gridlocaltoglobal
396: #endif
397: #endif
399: #ifdef MPI_BUILD_PROFILING
400: #ifdef PETSC_HAVE_FORTRAN_CAPS
401: #define gridinterpolateelementvec_ PGRIDINTERPOLATEELEMENTVEC
402: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
403: #define gridinterpolateelementvec_ pgridinterpolateelementvec
404: #else
405: #define gridinterpolateelementvec_ pgridinterpolateelementvec_
406: #endif
407: #else
408: #ifdef PETSC_HAVE_FORTRAN_CAPS
409: #define gridinterpolateelementvec_ GRIDINTERPOLATEELEMENTVEC
410: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
411: #define gridinterpolateelementvec_ gridinterpolateelementvec
412: #endif
413: #endif
415: #ifdef MPI_BUILD_PROFILING
416: #ifdef PETSC_HAVE_FORTRAN_CAPS
417: #define gridcreaterestriction_ PGRIDCREATERESTRICTION
418: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
419: #define gridcreaterestriction_ pgridcreaterestriction
420: #else
421: #define gridcreaterestriction_ pgridcreaterestriction_
422: #endif
423: #else
424: #ifdef PETSC_HAVE_FORTRAN_CAPS
425: #define gridcreaterestriction_ GRIDCREATERESTRICTION
426: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
427: #define gridcreaterestriction_ gridcreaterestriction
428: #endif
429: #endif
431: #ifdef MPI_BUILD_PROFILING
432: #ifdef PETSC_HAVE_FORTRAN_CAPS
433: #define gridlocaltoelementgeneral_ PGRIDLOCALTOELEMENTGENERAL
434: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
435: #define gridlocaltoelementgeneral_ pgridlocaltoelementgeneral
436: #else
437: #define gridlocaltoelementgeneral_ pgridlocaltoelementgeneral_
438: #endif
439: #else
440: #ifdef PETSC_HAVE_FORTRAN_CAPS
441: #define gridlocaltoelementgeneral_ GRIDLOCALTOELEMENTGENERAL
442: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
443: #define gridlocaltoelementgeneral_ gridlocaltoelementgeneral
444: #endif
445: #endif
447: #ifdef MPI_BUILD_PROFILING
448: #ifdef PETSC_HAVE_FORTRAN_CAPS
449: #define gridlocaltoelement_ PGRIDLOCALTOELEMENT
450: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
451: #define gridlocaltoelement_ pgridlocaltoelement
452: #else
453: #define gridlocaltoelement_ pgridlocaltoelement_
454: #endif
455: #else
456: #ifdef PETSC_HAVE_FORTRAN_CAPS
457: #define gridlocaltoelement_ GRIDLOCALTOELEMENT
458: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
459: #define gridlocaltoelement_ gridlocaltoelement
460: #endif
461: #endif
465: /* Definitions of Fortran Wrapper routines */
466: #if defined(__cplusplus)
467: extern "C" {
468: #endif
469: void PETSC_STDCALL griddestroy_(Grid grid, int *ierr ){
470: *GridDestroy(
471: (Grid)PetscToPointer( (grid) ));
472: }
473: void PETSC_STDCALL gridview_(Grid grid,PetscViewer *viewer, int *ierr ){
474: *GridView(
475: (Grid)PetscToPointer( (grid) ),*viewer);
476: }
477: void PETSC_STDCALL gridsetup_(Grid grid, int *ierr ){
478: *GridSetUp(
479: (Grid)PetscToPointer( (grid) ));
480: }
481: void PETSC_STDCALL gridsetupghostscatter_(Grid grid, int *ierr ){
482: *GridSetupGhostScatter(
483: (Grid)PetscToPointer( (grid) ));
484: }
485: void PETSC_STDCALL gridsetupboundary_(Grid grid, int *ierr ){
486: *GridSetupBoundary(
487: (Grid)PetscToPointer( (grid) ));
488: }
489: void PETSC_STDCALL gridgetmesh_(Grid grid,Mesh *mesh, int *ierr ){
490: *GridGetMesh(
491: (Grid)PetscToPointer( (grid) ),mesh);
492: }
493: void PETSC_STDCALL gridgetclassmap_(Grid grid,FieldClassMap *map, int *ierr ){
494: *GridGetClassMap(
495: (Grid)PetscToPointer( (grid) ),map);
496: }
497: void PETSC_STDCALL gridgetorder_(Grid grid,VarOrdering *order, int *ierr ){
498: *GridGetOrder(
499: (Grid)PetscToPointer( (grid) ),order);
500: }
501: void PETSC_STDCALL gridgetlocalorder_(Grid grid,LocalVarOrdering *order, int *ierr ){
502: *GridGetLocalOrder(
503: (Grid)PetscToPointer( (grid) ),
504: (LocalVarOrdering* )PetscToPointer( (order) ));
505: }
506: void PETSC_STDCALL gridgetdiscretization_(Grid grid,int *field,Discretization *disc, int *ierr ){
507: *GridGetDiscretization(
508: (Grid)PetscToPointer( (grid) ),*field,disc);
509: }
510: void PETSC_STDCALL gridsetfromoptions_(Grid grid, int *ierr ){
511: *GridSetFromOptions(
512: (Grid)PetscToPointer( (grid) ));
513: }
514: void PETSC_STDCALL gridviewfromoptions_(Grid grid,char *title, int *ierr ){
515: *GridViewFromOptions(
516: (Grid)PetscToPointer( (grid) ),title);
517: }
518: void PETSC_STDCALL gridprinthelp_(Grid grid, int *ierr ){
519: *GridPrintHelp(
520: (Grid)PetscToPointer( (grid) ));
521: }
522: void PETSC_STDCALL gridgetoptionsprefix_(Grid grid,char **prefix, int *ierr ){
523: *GridGetOptionsPrefix(
524: (Grid)PetscToPointer( (grid) ),prefix);
525: }
526: void PETSC_STDCALL gridgetnearestnode_(Grid grid,int *field,double *x,double *y,double *z,int *node, int *ierr ){
527: *GridGetNearestNode(
528: (Grid)PetscToPointer( (grid) ),*field,*x,*y,*z,node);
529: }
530: void PETSC_STDCALL gridgetnearestbdnode_(Grid grid,int *field,double *x,double *y,double *z,int *node, int *ierr ){
531: *GridGetNearestBdNode(
532: (Grid)PetscToPointer( (grid) ),*field,*x,*y,*z,node);
533: }
534: void PETSC_STDCALL gridgetboundarysize_(Grid grid,int *bd,int *field,int *size, int *ierr ){
535: *GridGetBoundarySize(
536: (Grid)PetscToPointer( (grid) ),*bd,*field,size);
537: }
538: void PETSC_STDCALL gridgetboundarystart_(Grid grid,int *bd,int *field,PetscTruth *ghost,int *node,int *nclass, int *ierr ){
539: *GridGetBoundaryStart(
540: (Grid)PetscToPointer( (grid) ),*bd,*field,*ghost,node,nclass);
541: }
542: void PETSC_STDCALL gridgetboundarynext_(Grid grid,int *bd,int *field,PetscTruth *ghost,int *node,int *nclass, int *ierr ){
543: *GridGetBoundaryNext(
544: (Grid)PetscToPointer( (grid) ),*bd,*field,*ghost,node,nclass);
545: }
546: void PETSC_STDCALL gridrefinemesh_(Grid grid,PointFunction *area,Grid *newgrid, int *ierr ){
547: *GridRefineMesh(
548: (Grid)PetscToPointer( (grid) ),*area,newgrid);
549: }
550: void PETSC_STDCALL gridglobaltolocalgeneral_(Grid grid,GVec vec,Vec ghostVec,InsertMode *mode,VecScatter scatter, int *ierr ){
551: *GridGlobalToLocalGeneral(
552: (Grid)PetscToPointer( (grid) ),
553: (GVec)PetscToPointer( (vec) ),
554: (Vec)PetscToPointer( (ghostVec) ),*mode,
555: (VecScatter)PetscToPointer( (scatter) ));
556: }
557: void PETSC_STDCALL gridglobaltolocal_(Grid grid,InsertMode *mode,GVec vec, int *ierr ){
558: *GridGlobalToLocal(
559: (Grid)PetscToPointer( (grid) ),*mode,
560: (GVec)PetscToPointer( (vec) ));
561: }
562: void PETSC_STDCALL gridlocaltoglobal_(Grid grid,InsertMode *mode,GVec vec, int *ierr ){
563: *GridLocalToGlobal(
564: (Grid)PetscToPointer( (grid) ),*mode,
565: (GVec)PetscToPointer( (vec) ));
566: }
567: void PETSC_STDCALL gridinterpolateelementvec_(Grid grid,int *field,ElementVec vec,Grid newGrid,int *newField,ElementVec newVec, int *ierr ){
568: *GridInterpolateElementVec(
569: (Grid)PetscToPointer( (grid) ),*field,
570: (ElementVec)PetscToPointer( (vec) ),
571: (Grid)PetscToPointer( (newGrid) ),*newField,
572: (ElementVec)PetscToPointer( (newVec) ));
573: }
574: void PETSC_STDCALL gridcreaterestriction_(Grid vf,Grid vc,GMat *gmat, int *ierr ){
575: *GridCreateRestriction(
576: (Grid)PetscToPointer( (vf) ),
577: (Grid)PetscToPointer( (vc) ),gmat);
578: }
579: void PETSC_STDCALL gridlocaltoelementgeneral_(Grid grid,Vec ghostVec,Vec reduceVec,PetscTruth *reduceSystem,PetscTruth *reduceElement,ElementVec vec, int *ierr ){
580: *GridLocalToElementGeneral(
581: (Grid)PetscToPointer( (grid) ),
582: (Vec)PetscToPointer( (ghostVec) ),
583: (Vec)PetscToPointer( (reduceVec) ),*reduceSystem,*reduceElement,
584: (ElementVec)PetscToPointer( (vec) ));
585: }
586: void PETSC_STDCALL gridlocaltoelement_(Grid grid,ElementVec vec, int *ierr ){
587: *GridLocalToElement(
588: (Grid)PetscToPointer( (grid) ),
589: (ElementVec)PetscToPointer( (vec) ));
590: }
591: #if defined(__cplusplus)
592: }
593: #endif