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