Chombo + EB + MF  3.2
EBPatchGodunovF_F.H
Go to the documentation of this file.
1 #ifndef _EBPATCHGODUNOVF_F_H_
2 #define _EBPATCHGODUNOVF_F_H_
3 
4 #include "FORT_PROTO.H"
5 #include "CH_Timer.H"
6 #include "REAL.H"
7 
8 extern "C"
9 {
10 
11 #ifndef GUARDMINFLAT
12 #define GUARDMINFLAT
13 // Prototype for Fortran procedure minflat ...
14 //
15 void FORTRAN_NAME( MINFLAT ,minflat )(
16  CHFp_FRA1(flattening)
17  ,CHFp_CONST_FRA(zetadir)
18  ,CHFp_CONST_FRA(du)
19  ,CHFp_BOX(box) );
20 
21 #define FORT_MINFLAT FORTRAN_NAME( inlineMINFLAT, inlineMINFLAT)
22 #define FORTNT_MINFLAT FORTRAN_NAME( MINFLAT, minflat)
23 
24 inline void FORTRAN_NAME(inlineMINFLAT, inlineMINFLAT)(
25  CHFp_FRA1(flattening)
26  ,CHFp_CONST_FRA(zetadir)
27  ,CHFp_CONST_FRA(du)
29 {
30  CH_TIMELEAF("FORT_MINFLAT");
31  FORTRAN_NAME( MINFLAT ,minflat )(
32  CHFt_FRA1(flattening)
33  ,CHFt_CONST_FRA(zetadir)
34  ,CHFt_CONST_FRA(du)
35  ,CHFt_BOX(box) );
36 }
37 #endif // GUARDMINFLAT
38 
39 #ifndef GUARDGETDPTWO
40 #define GUARDGETDPTWO
41 // Prototype for Fortran procedure getdptwo ...
42 //
43 void FORTRAN_NAME( GETDPTWO ,getdptwo )(
44  CHFp_FRA1(delta2p)
45  ,CHFp_CONST_FRA1(delta1p)
46  ,CHFp_CONST_INT(idir)
47  ,CHFp_BOX(lobox)
48  ,CHFp_CONST_INT(haslo)
49  ,CHFp_BOX(hibox)
50  ,CHFp_CONST_INT(hashi)
51  ,CHFp_BOX(centerbox) );
52 
53 #define FORT_GETDPTWO FORTRAN_NAME( inlineGETDPTWO, inlineGETDPTWO)
54 #define FORTNT_GETDPTWO FORTRAN_NAME( GETDPTWO, getdptwo)
55 
56 inline void FORTRAN_NAME(inlineGETDPTWO, inlineGETDPTWO)(
57  CHFp_FRA1(delta2p)
58  ,CHFp_CONST_FRA1(delta1p)
59  ,CHFp_CONST_INT(idir)
60  ,CHFp_BOX(lobox)
61  ,CHFp_CONST_INT(haslo)
62  ,CHFp_BOX(hibox)
63  ,CHFp_CONST_INT(hashi)
64  ,CHFp_BOX(centerbox) )
65 {
66  CH_TIMELEAF("FORT_GETDPTWO");
67  FORTRAN_NAME( GETDPTWO ,getdptwo )(
68  CHFt_FRA1(delta2p)
69  ,CHFt_CONST_FRA1(delta1p)
70  ,CHFt_CONST_INT(idir)
71  ,CHFt_BOX(lobox)
72  ,CHFt_CONST_INT(haslo)
73  ,CHFt_BOX(hibox)
74  ,CHFt_CONST_INT(hashi)
75  ,CHFt_BOX(centerbox) );
76 }
77 #endif // GUARDGETDPTWO
78 
79 #ifndef GUARDGETFLAT
80 #define GUARDGETFLAT
81 // Prototype for Fortran procedure getflat ...
82 //
83 void FORTRAN_NAME( GETFLAT ,getflat )(
84  CHFp_FRA1(zetatwiddle)
85  ,CHFp_CONST_FRA1(delta1p)
86  ,CHFp_CONST_FRA1(delta2p)
87  ,CHFp_CONST_FRA1(bulkmin)
88  ,CHFp_BOX(box) );
89 
90 #define FORT_GETFLAT FORTRAN_NAME( inlineGETFLAT, inlineGETFLAT)
91 #define FORTNT_GETFLAT FORTRAN_NAME( GETFLAT, getflat)
92 
93 inline void FORTRAN_NAME(inlineGETFLAT, inlineGETFLAT)(
94  CHFp_FRA1(zetatwiddle)
95  ,CHFp_CONST_FRA1(delta1p)
96  ,CHFp_CONST_FRA1(delta2p)
97  ,CHFp_CONST_FRA1(bulkmin)
98  ,CHFp_BOX(box) )
99 {
100  CH_TIMELEAF("FORT_GETFLAT");
101  FORTRAN_NAME( GETFLAT ,getflat )(
102  CHFt_FRA1(zetatwiddle)
103  ,CHFt_CONST_FRA1(delta1p)
104  ,CHFt_CONST_FRA1(delta2p)
105  ,CHFt_CONST_FRA1(bulkmin)
106  ,CHFt_BOX(box) );
107 }
108 #endif // GUARDGETFLAT
109 
110 #ifndef GUARDGETGRAD
111 #define GUARDGETGRAD
112 // Prototype for Fortran procedure getgrad ...
113 //
114 void FORTRAN_NAME( GETGRAD ,getgrad )(
115  CHFp_FRA1(du)
116  ,CHFp_CONST_FRA1(u)
117  ,CHFp_CONST_INT(idir)
118  ,CHFp_BOX(lobox)
119  ,CHFp_CONST_INT(haslo)
120  ,CHFp_BOX(hibox)
121  ,CHFp_CONST_INT(hashi)
122  ,CHFp_BOX(centerbox) );
123 
124 #define FORT_GETGRAD FORTRAN_NAME( inlineGETGRAD, inlineGETGRAD)
125 #define FORTNT_GETGRAD FORTRAN_NAME( GETGRAD, getgrad)
126 
127 inline void FORTRAN_NAME(inlineGETGRAD, inlineGETGRAD)(
128  CHFp_FRA1(du)
129  ,CHFp_CONST_FRA1(u)
130  ,CHFp_CONST_INT(idir)
131  ,CHFp_BOX(lobox)
132  ,CHFp_CONST_INT(haslo)
133  ,CHFp_BOX(hibox)
134  ,CHFp_CONST_INT(hashi)
135  ,CHFp_BOX(centerbox) )
136 {
137  CH_TIMELEAF("FORT_GETGRAD");
138  FORTRAN_NAME( GETGRAD ,getgrad )(
139  CHFt_FRA1(du)
140  ,CHFt_CONST_FRA1(u)
141  ,CHFt_CONST_INT(idir)
142  ,CHFt_BOX(lobox)
143  ,CHFt_CONST_INT(haslo)
144  ,CHFt_BOX(hibox)
145  ,CHFt_CONST_INT(hashi)
146  ,CHFt_BOX(centerbox) );
147 }
148 #endif // GUARDGETGRAD
149 
150 #ifndef GUARDGETRELATIVEGRAD
151 #define GUARDGETRELATIVEGRAD
152 // Prototype for Fortran procedure getrelativegrad ...
153 //
154 void FORTRAN_NAME( GETRELATIVEGRAD ,getrelativegrad )(
155  CHFp_FRA1(du)
156  ,CHFp_CONST_FRA1(u)
157  ,CHFp_CONST_INT(idir)
158  ,CHFp_BOX(lobox)
159  ,CHFp_CONST_INT(haslo)
160  ,CHFp_BOX(hibox)
161  ,CHFp_CONST_INT(hashi)
162  ,CHFp_BOX(centerbox) );
163 
164 #define FORT_GETRELATIVEGRAD FORTRAN_NAME( inlineGETRELATIVEGRAD, inlineGETRELATIVEGRAD)
165 #define FORTNT_GETRELATIVEGRAD FORTRAN_NAME( GETRELATIVEGRAD, getrelativegrad)
166 
167 inline void FORTRAN_NAME(inlineGETRELATIVEGRAD, inlineGETRELATIVEGRAD)(
168  CHFp_FRA1(du)
169  ,CHFp_CONST_FRA1(u)
170  ,CHFp_CONST_INT(idir)
171  ,CHFp_BOX(lobox)
172  ,CHFp_CONST_INT(haslo)
173  ,CHFp_BOX(hibox)
174  ,CHFp_CONST_INT(hashi)
175  ,CHFp_BOX(centerbox) )
176 {
177  CH_TIMELEAF("FORT_GETRELATIVEGRAD");
178  FORTRAN_NAME( GETRELATIVEGRAD ,getrelativegrad )(
179  CHFt_FRA1(du)
180  ,CHFt_CONST_FRA1(u)
181  ,CHFt_CONST_INT(idir)
182  ,CHFt_BOX(lobox)
183  ,CHFt_CONST_INT(haslo)
184  ,CHFt_BOX(hibox)
185  ,CHFt_CONST_INT(hashi)
186  ,CHFt_BOX(centerbox) );
187 }
188 #endif // GUARDGETRELATIVEGRAD
189 
190 #ifndef GUARDMAGNITUDE
191 #define GUARDMAGNITUDE
192 // Prototype for Fortran procedure magnitude ...
193 //
194 void FORTRAN_NAME( MAGNITUDE ,magnitude )(
195  CHFp_FRA1(magdata)
196  ,CHFp_CONST_FRA(data)
197  ,CHFp_BOX(box) );
198 
199 #define FORT_MAGNITUDE FORTRAN_NAME( inlineMAGNITUDE, inlineMAGNITUDE)
200 #define FORTNT_MAGNITUDE FORTRAN_NAME( MAGNITUDE, magnitude)
201 
202 inline void FORTRAN_NAME(inlineMAGNITUDE, inlineMAGNITUDE)(
203  CHFp_FRA1(magdata)
204  ,CHFp_CONST_FRA(data)
205  ,CHFp_BOX(box) )
206 {
207  CH_TIMELEAF("FORT_MAGNITUDE");
208  FORTRAN_NAME( MAGNITUDE ,magnitude )(
209  CHFt_FRA1(magdata)
210  ,CHFt_CONST_FRA(data)
211  ,CHFt_BOX(box) );
212 }
213 #endif // GUARDMAGNITUDE
214 
215 #ifndef GUARDMIN3PTS
216 #define GUARDMIN3PTS
217 // Prototype for Fortran procedure min3pts ...
218 //
219 void FORTRAN_NAME( MIN3PTS ,min3pts )(
220  CHFp_FRA1(mindata)
221  ,CHFp_CONST_FRA1(data)
222  ,CHFp_CONST_INT(idir)
223  ,CHFp_BOX(lobox)
224  ,CHFp_CONST_INT(haslo)
225  ,CHFp_BOX(hibox)
226  ,CHFp_CONST_INT(hashi)
227  ,CHFp_BOX(centerbox) );
228 
229 #define FORT_MIN3PTS FORTRAN_NAME( inlineMIN3PTS, inlineMIN3PTS)
230 #define FORTNT_MIN3PTS FORTRAN_NAME( MIN3PTS, min3pts)
231 
232 inline void FORTRAN_NAME(inlineMIN3PTS, inlineMIN3PTS)(
233  CHFp_FRA1(mindata)
234  ,CHFp_CONST_FRA1(data)
235  ,CHFp_CONST_INT(idir)
236  ,CHFp_BOX(lobox)
237  ,CHFp_CONST_INT(haslo)
238  ,CHFp_BOX(hibox)
239  ,CHFp_CONST_INT(hashi)
240  ,CHFp_BOX(centerbox) )
241 {
242  CH_TIMELEAF("FORT_MIN3PTS");
243  FORTRAN_NAME( MIN3PTS ,min3pts )(
244  CHFt_FRA1(mindata)
245  ,CHFt_CONST_FRA1(data)
246  ,CHFt_CONST_INT(idir)
247  ,CHFt_BOX(lobox)
248  ,CHFt_CONST_INT(haslo)
249  ,CHFt_BOX(hibox)
250  ,CHFt_CONST_INT(hashi)
251  ,CHFt_BOX(centerbox) );
252 }
253 #endif // GUARDMIN3PTS
254 
255 #ifndef GUARDSECONDSLOPEDIFFS
256 #define GUARDSECONDSLOPEDIFFS
257 // Prototype for Fortran procedure secondslopediffs ...
258 //
259 void FORTRAN_NAME( SECONDSLOPEDIFFS ,secondslopediffs )(
260  CHFp_FRA(deltawc)
261  ,CHFp_FRA(deltawl)
262  ,CHFp_FRA(deltawr)
263  ,CHFp_CONST_FRA(w)
264  ,CHFp_CONST_INT(numslopes)
265  ,CHFp_CONST_INT(idir)
266  ,CHFp_BOX(lobox)
267  ,CHFp_CONST_INT(haslo)
268  ,CHFp_BOX(hibox)
269  ,CHFp_CONST_INT(hashi)
270  ,CHFp_BOX(centerbox) );
271 
272 #define FORT_SECONDSLOPEDIFFS FORTRAN_NAME( inlineSECONDSLOPEDIFFS, inlineSECONDSLOPEDIFFS)
273 #define FORTNT_SECONDSLOPEDIFFS FORTRAN_NAME( SECONDSLOPEDIFFS, secondslopediffs)
274 
275 inline void FORTRAN_NAME(inlineSECONDSLOPEDIFFS, inlineSECONDSLOPEDIFFS)(
276  CHFp_FRA(deltawc)
277  ,CHFp_FRA(deltawl)
278  ,CHFp_FRA(deltawr)
279  ,CHFp_CONST_FRA(w)
280  ,CHFp_CONST_INT(numslopes)
281  ,CHFp_CONST_INT(idir)
282  ,CHFp_BOX(lobox)
283  ,CHFp_CONST_INT(haslo)
284  ,CHFp_BOX(hibox)
285  ,CHFp_CONST_INT(hashi)
286  ,CHFp_BOX(centerbox) )
287 {
288  CH_TIMELEAF("FORT_SECONDSLOPEDIFFS");
289  FORTRAN_NAME( SECONDSLOPEDIFFS ,secondslopediffs )(
290  CHFt_FRA(deltawc)
291  ,CHFt_FRA(deltawl)
292  ,CHFt_FRA(deltawr)
293  ,CHFt_CONST_FRA(w)
294  ,CHFt_CONST_INT(numslopes)
295  ,CHFt_CONST_INT(idir)
296  ,CHFt_BOX(lobox)
297  ,CHFt_CONST_INT(haslo)
298  ,CHFt_BOX(hibox)
299  ,CHFt_CONST_INT(hashi)
300  ,CHFt_BOX(centerbox) );
301 }
302 #endif // GUARDSECONDSLOPEDIFFS
303 
304 #ifndef GUARDFORTHSLOPEDIFFS
305 #define GUARDFORTHSLOPEDIFFS
306 // Prototype for Fortran procedure forthslopediffs ...
307 //
308 void FORTRAN_NAME( FORTHSLOPEDIFFS ,forthslopediffs )(
309  CHFp_FRA(delta4wc)
310  ,CHFp_CONST_FRA(w)
311  ,CHFp_CONST_FRA(delta2w)
312  ,CHFp_CONST_INT(numslopes)
313  ,CHFp_CONST_INT(idir)
314  ,CHFp_BOX(lobox)
315  ,CHFp_CONST_INT(haslo)
316  ,CHFp_BOX(hibox)
317  ,CHFp_CONST_INT(hashi)
318  ,CHFp_BOX(centerbox) );
319 
320 #define FORT_FORTHSLOPEDIFFS FORTRAN_NAME( inlineFORTHSLOPEDIFFS, inlineFORTHSLOPEDIFFS)
321 #define FORTNT_FORTHSLOPEDIFFS FORTRAN_NAME( FORTHSLOPEDIFFS, forthslopediffs)
322 
323 inline void FORTRAN_NAME(inlineFORTHSLOPEDIFFS, inlineFORTHSLOPEDIFFS)(
324  CHFp_FRA(delta4wc)
325  ,CHFp_CONST_FRA(w)
326  ,CHFp_CONST_FRA(delta2w)
327  ,CHFp_CONST_INT(numslopes)
328  ,CHFp_CONST_INT(idir)
329  ,CHFp_BOX(lobox)
330  ,CHFp_CONST_INT(haslo)
331  ,CHFp_BOX(hibox)
332  ,CHFp_CONST_INT(hashi)
333  ,CHFp_BOX(centerbox) )
334 {
335  CH_TIMELEAF("FORT_FORTHSLOPEDIFFS");
336  FORTRAN_NAME( FORTHSLOPEDIFFS ,forthslopediffs )(
337  CHFt_FRA(delta4wc)
338  ,CHFt_CONST_FRA(w)
339  ,CHFt_CONST_FRA(delta2w)
340  ,CHFt_CONST_INT(numslopes)
341  ,CHFt_CONST_INT(idir)
342  ,CHFt_BOX(lobox)
343  ,CHFt_CONST_INT(haslo)
344  ,CHFt_BOX(hibox)
345  ,CHFt_CONST_INT(hashi)
346  ,CHFt_BOX(centerbox) );
347 }
348 #endif // GUARDFORTHSLOPEDIFFS
349 
350 #ifndef GUARDAPPLYFLAT
351 #define GUARDAPPLYFLAT
352 // Prototype for Fortran procedure applyflat ...
353 //
354 void FORTRAN_NAME( APPLYFLAT ,applyflat )(
355  CHFp_FRA(dw)
356  ,CHFp_CONST_FRA1(flattening)
357  ,CHFp_CONST_INT(numslopes)
358  ,CHFp_BOX(box) );
359 
360 #define FORT_APPLYFLAT FORTRAN_NAME( inlineAPPLYFLAT, inlineAPPLYFLAT)
361 #define FORTNT_APPLYFLAT FORTRAN_NAME( APPLYFLAT, applyflat)
362 
363 inline void FORTRAN_NAME(inlineAPPLYFLAT, inlineAPPLYFLAT)(
364  CHFp_FRA(dw)
365  ,CHFp_CONST_FRA1(flattening)
366  ,CHFp_CONST_INT(numslopes)
367  ,CHFp_BOX(box) )
368 {
369  CH_TIMELEAF("FORT_APPLYFLAT");
370  FORTRAN_NAME( APPLYFLAT ,applyflat )(
371  CHFt_FRA(dw)
372  ,CHFt_CONST_FRA1(flattening)
373  ,CHFt_CONST_INT(numslopes)
374  ,CHFt_BOX(box) );
375 }
376 #endif // GUARDAPPLYFLAT
377 
378 #ifndef GUARDINCSOURCE
379 #define GUARDINCSOURCE
380 // Prototype for Fortran procedure incsource ...
381 //
382 void FORTRAN_NAME( INCSOURCE ,incsource )(
383  CHFp_FRA(prim)
384  ,CHFp_CONST_FRA(source)
386  ,CHFp_BOX(dcalc) );
387 
388 #define FORT_INCSOURCE FORTRAN_NAME( inlineINCSOURCE, inlineINCSOURCE)
389 #define FORTNT_INCSOURCE FORTRAN_NAME( INCSOURCE, incsource)
390 
391 inline void FORTRAN_NAME(inlineINCSOURCE, inlineINCSOURCE)(
392  CHFp_FRA(prim)
393  ,CHFp_CONST_FRA(source)
395  ,CHFp_BOX(dcalc) )
396 {
397  CH_TIMELEAF("FORT_INCSOURCE");
398  FORTRAN_NAME( INCSOURCE ,incsource )(
399  CHFt_FRA(prim)
400  ,CHFt_CONST_FRA(source)
402  ,CHFt_BOX(dcalc) );
403 }
404 #endif // GUARDINCSOURCE
405 
406 #ifndef GUARDVLLIMITER
407 #define GUARDVLLIMITER
408 // Prototype for Fortran procedure vllimiter ...
409 //
410 void FORTRAN_NAME( VLLIMITER ,vllimiter )(
411  CHFp_FRA(slopeprim)
412  ,CHFp_CONST_FRA(slopeleft)
413  ,CHFp_CONST_FRA(sloperigh)
414  ,CHFp_BOX(dcalc) );
415 
416 #define FORT_VLLIMITER FORTRAN_NAME( inlineVLLIMITER, inlineVLLIMITER)
417 #define FORTNT_VLLIMITER FORTRAN_NAME( VLLIMITER, vllimiter)
418 
419 inline void FORTRAN_NAME(inlineVLLIMITER, inlineVLLIMITER)(
420  CHFp_FRA(slopeprim)
421  ,CHFp_CONST_FRA(slopeleft)
422  ,CHFp_CONST_FRA(sloperigh)
423  ,CHFp_BOX(dcalc) )
424 {
425  CH_TIMELEAF("FORT_VLLIMITER");
426  FORTRAN_NAME( VLLIMITER ,vllimiter )(
427  CHFt_FRA(slopeprim)
428  ,CHFt_CONST_FRA(slopeleft)
429  ,CHFt_CONST_FRA(sloperigh)
430  ,CHFt_BOX(dcalc) );
431 }
432 #endif // GUARDVLLIMITER
433 
434 #ifndef GUARDPOINTVLLIMITER
435 #define GUARDPOINTVLLIMITER
436 // Prototype for Fortran procedure pointvllimiter ...
437 //
438 void FORTRAN_NAME( POINTVLLIMITER ,pointvllimiter )(
439  CHFp_REAL(dqlim)
440  ,CHFp_CONST_REAL(dql)
441  ,CHFp_CONST_REAL(dqr) );
442 
443 #define FORT_POINTVLLIMITER FORTRAN_NAME( inlinePOINTVLLIMITER, inlinePOINTVLLIMITER)
444 #define FORTNT_POINTVLLIMITER FORTRAN_NAME( POINTVLLIMITER, pointvllimiter)
445 
446 inline void FORTRAN_NAME(inlinePOINTVLLIMITER, inlinePOINTVLLIMITER)(
447  CHFp_REAL(dqlim)
448  ,CHFp_CONST_REAL(dql)
450 {
451  CH_TIMELEAF("FORT_POINTVLLIMITER");
452  FORTRAN_NAME( POINTVLLIMITER ,pointvllimiter )(
453  CHFt_REAL(dqlim)
454  ,CHFt_CONST_REAL(dql)
455  ,CHFt_CONST_REAL(dqr) );
456 }
457 #endif // GUARDPOINTVLLIMITER
458 
459 #ifndef GUARDDIVUEDGE
460 #define GUARDDIVUEDGE
461 // Prototype for Fortran procedure divuedge ...
462 //
463 void FORTRAN_NAME( DIVUEDGE ,divuedge )(
464  CHFp_FRA1(divu)
465  ,CHFp_CONST_INT(facedir)
466  ,CHFp_BOX(lobox)
467  ,CHFp_CONST_INT(haslo)
468  ,CHFp_BOX(hibox)
469  ,CHFp_CONST_INT(hashi) );
470 
471 #define FORT_DIVUEDGE FORTRAN_NAME( inlineDIVUEDGE, inlineDIVUEDGE)
472 #define FORTNT_DIVUEDGE FORTRAN_NAME( DIVUEDGE, divuedge)
473 
474 inline void FORTRAN_NAME(inlineDIVUEDGE, inlineDIVUEDGE)(
475  CHFp_FRA1(divu)
476  ,CHFp_CONST_INT(facedir)
477  ,CHFp_BOX(lobox)
478  ,CHFp_CONST_INT(haslo)
479  ,CHFp_BOX(hibox)
480  ,CHFp_CONST_INT(hashi) )
481 {
482  CH_TIMELEAF("FORT_DIVUEDGE");
483  FORTRAN_NAME( DIVUEDGE ,divuedge )(
484  CHFt_FRA1(divu)
485  ,CHFt_CONST_INT(facedir)
486  ,CHFt_BOX(lobox)
487  ,CHFt_CONST_INT(haslo)
488  ,CHFt_BOX(hibox)
489  ,CHFt_CONST_INT(hashi) );
490 }
491 #endif // GUARDDIVUEDGE
492 
493 #ifndef GUARDAVEFLUXTOFACE
494 #define GUARDAVEFLUXTOFACE
495 // Prototype for Fortran procedure avefluxtoface ...
496 //
497 void FORTRAN_NAME( AVEFLUXTOFACE ,avefluxtoface )(
498  CHFp_FRA1(faceflux)
499  ,CHFp_CONST_FRA1(ccflux)
500  ,CHFp_CONST_INT(facedir)
501  ,CHFp_BOX(facebox) );
502 
503 #define FORT_AVEFLUXTOFACE FORTRAN_NAME( inlineAVEFLUXTOFACE, inlineAVEFLUXTOFACE)
504 #define FORTNT_AVEFLUXTOFACE FORTRAN_NAME( AVEFLUXTOFACE, avefluxtoface)
505 
506 inline void FORTRAN_NAME(inlineAVEFLUXTOFACE, inlineAVEFLUXTOFACE)(
507  CHFp_FRA1(faceflux)
508  ,CHFp_CONST_FRA1(ccflux)
509  ,CHFp_CONST_INT(facedir)
510  ,CHFp_BOX(facebox) )
511 {
512  CH_TIMELEAF("FORT_AVEFLUXTOFACE");
513  FORTRAN_NAME( AVEFLUXTOFACE ,avefluxtoface )(
514  CHFt_FRA1(faceflux)
515  ,CHFt_CONST_FRA1(ccflux)
516  ,CHFt_CONST_INT(facedir)
517  ,CHFt_BOX(facebox) );
518 }
519 #endif // GUARDAVEFLUXTOFACE
520 
521 #ifndef GUARDDIVUONED
522 #define GUARDDIVUONED
523 // Prototype for Fortran procedure divuoned ...
524 //
525 void FORTRAN_NAME( DIVUONED ,divuoned )(
526  CHFp_FRA1(divu)
527  ,CHFp_CONST_FRA1(velnorm)
528  ,CHFp_CONST_INT(facedir)
529  ,CHFp_BOX(centerbox) );
530 
531 #define FORT_DIVUONED FORTRAN_NAME( inlineDIVUONED, inlineDIVUONED)
532 #define FORTNT_DIVUONED FORTRAN_NAME( DIVUONED, divuoned)
533 
534 inline void FORTRAN_NAME(inlineDIVUONED, inlineDIVUONED)(
535  CHFp_FRA1(divu)
536  ,CHFp_CONST_FRA1(velnorm)
537  ,CHFp_CONST_INT(facedir)
538  ,CHFp_BOX(centerbox) )
539 {
540  CH_TIMELEAF("FORT_DIVUONED");
541  FORTRAN_NAME( DIVUONED ,divuoned )(
542  CHFt_FRA1(divu)
543  ,CHFt_CONST_FRA1(velnorm)
544  ,CHFt_CONST_INT(facedir)
545  ,CHFt_BOX(centerbox) );
546 }
547 #endif // GUARDDIVUONED
548 
549 #ifndef GUARDDIVUTRAN
550 #define GUARDDIVUTRAN
551 // Prototype for Fortran procedure divutran ...
552 //
553 void FORTRAN_NAME( DIVUTRAN ,divutran )(
554  CHFp_FRA1(divu)
555  ,CHFp_CONST_FRA1(slopevel)
556  ,CHFp_CONST_INT(facedir)
557  ,CHFp_BOX(centerbox) );
558 
559 #define FORT_DIVUTRAN FORTRAN_NAME( inlineDIVUTRAN, inlineDIVUTRAN)
560 #define FORTNT_DIVUTRAN FORTRAN_NAME( DIVUTRAN, divutran)
561 
562 inline void FORTRAN_NAME(inlineDIVUTRAN, inlineDIVUTRAN)(
563  CHFp_FRA1(divu)
564  ,CHFp_CONST_FRA1(slopevel)
565  ,CHFp_CONST_INT(facedir)
566  ,CHFp_BOX(centerbox) )
567 {
568  CH_TIMELEAF("FORT_DIVUTRAN");
569  FORTRAN_NAME( DIVUTRAN ,divutran )(
570  CHFt_FRA1(divu)
571  ,CHFt_CONST_FRA1(slopevel)
572  ,CHFt_CONST_INT(facedir)
573  ,CHFt_BOX(centerbox) );
574 }
575 #endif // GUARDDIVUTRAN
576 
577 #ifndef GUARDARTVISC
578 #define GUARDARTVISC
579 // Prototype for Fortran procedure artvisc ...
580 //
581 void FORTRAN_NAME( ARTVISC ,artvisc )(
582  CHFp_FRA(f)
583  ,CHFp_CONST_FRA(u)
584  ,CHFp_CONST_FRA1(divu)
585  ,CHFp_CONST_REAL(coeff)
586  ,CHFp_CONST_INT(idir)
587  ,CHFp_BOX(box)
588  ,CHFp_CONST_INT(numcons)
589  ,CHFp_CONST_REAL(dx) );
590 
591 #define FORT_ARTVISC FORTRAN_NAME( inlineARTVISC, inlineARTVISC)
592 #define FORTNT_ARTVISC FORTRAN_NAME( ARTVISC, artvisc)
593 
594 inline void FORTRAN_NAME(inlineARTVISC, inlineARTVISC)(
595  CHFp_FRA(f)
596  ,CHFp_CONST_FRA(u)
597  ,CHFp_CONST_FRA1(divu)
598  ,CHFp_CONST_REAL(coeff)
599  ,CHFp_CONST_INT(idir)
600  ,CHFp_BOX(box)
601  ,CHFp_CONST_INT(numcons)
603 {
604  CH_TIMELEAF("FORT_ARTVISC");
605  FORTRAN_NAME( ARTVISC ,artvisc )(
606  CHFt_FRA(f)
607  ,CHFt_CONST_FRA(u)
608  ,CHFt_CONST_FRA1(divu)
609  ,CHFt_CONST_REAL(coeff)
610  ,CHFt_CONST_INT(idir)
611  ,CHFt_BOX(box)
612  ,CHFt_CONST_INT(numcons)
613  ,CHFt_CONST_REAL(dx) );
614 }
615 #endif // GUARDARTVISC
616 
617 #ifndef GUARDUPDATE
618 #define GUARDUPDATE
619 // Prototype for Fortran procedure update ...
620 //
621 void FORTRAN_NAME( UPDATE ,update )(
622  CHFp_BOX(dcalc)
623  ,CHFp_FRA(state)
624  ,CHFp_CONST_FRA(flux)
625  ,CHFp_CONST_INT(facedir)
626  ,CHFp_CONST_INT(nconserved)
627  ,CHFp_CONST_REAL(dtbydx) );
628 
629 #define FORT_UPDATE FORTRAN_NAME( inlineUPDATE, inlineUPDATE)
630 #define FORTNT_UPDATE FORTRAN_NAME( UPDATE, update)
631 
632 inline void FORTRAN_NAME(inlineUPDATE, inlineUPDATE)(
633  CHFp_BOX(dcalc)
634  ,CHFp_FRA(state)
635  ,CHFp_CONST_FRA(flux)
636  ,CHFp_CONST_INT(facedir)
637  ,CHFp_CONST_INT(nconserved)
638  ,CHFp_CONST_REAL(dtbydx) )
639 {
640  CH_TIMELEAF("FORT_UPDATE");
641  FORTRAN_NAME( UPDATE ,update )(
642  CHFt_BOX(dcalc)
643  ,CHFt_FRA(state)
644  ,CHFt_CONST_FRA(flux)
645  ,CHFt_CONST_INT(facedir)
646  ,CHFt_CONST_INT(nconserved)
647  ,CHFt_CONST_REAL(dtbydx) );
648 }
649 #endif // GUARDUPDATE
650 
651 #ifndef GUARDDIVERGEF
652 #define GUARDDIVERGEF
653 // Prototype for Fortran procedure divergef ...
654 //
655 void FORTRAN_NAME( DIVERGEF ,divergef )(
656  CHFp_BOX(dcalc)
657  ,CHFp_FRA(divf)
658  ,CHFp_CONST_FRA(flux)
659  ,CHFp_CONST_INT(facedir)
660  ,CHFp_CONST_INT(nconserved)
661  ,CHFp_CONST_REAL(dx) );
662 
663 #define FORT_DIVERGEF FORTRAN_NAME( inlineDIVERGEF, inlineDIVERGEF)
664 #define FORTNT_DIVERGEF FORTRAN_NAME( DIVERGEF, divergef)
665 
666 inline void FORTRAN_NAME(inlineDIVERGEF, inlineDIVERGEF)(
667  CHFp_BOX(dcalc)
668  ,CHFp_FRA(divf)
669  ,CHFp_CONST_FRA(flux)
670  ,CHFp_CONST_INT(facedir)
671  ,CHFp_CONST_INT(nconserved)
672  ,CHFp_CONST_REAL(dx) )
673 {
674  CH_TIMELEAF("FORT_DIVERGEF");
675  FORTRAN_NAME( DIVERGEF ,divergef )(
676  CHFt_BOX(dcalc)
677  ,CHFt_FRA(divf)
678  ,CHFt_CONST_FRA(flux)
679  ,CHFt_CONST_INT(facedir)
680  ,CHFt_CONST_INT(nconserved)
681  ,CHFt_CONST_REAL(dx) );
682 }
683 #endif // GUARDDIVERGEF
684 
685 #ifndef GUARDREGUPDATE
686 #define GUARDREGUPDATE
687 // Prototype for Fortran procedure regupdate ...
688 //
689 void FORTRAN_NAME( REGUPDATE ,regupdate )(
690  CHFp_BOX(dcalc)
691  ,CHFp_FRA(consstate)
692  ,CHFp_CONST_FRA(divf)
693  ,CHFp_CONST_INT(nconserved)
694  ,CHFp_CONST_REAL(dt) );
695 
696 #define FORT_REGUPDATE FORTRAN_NAME( inlineREGUPDATE, inlineREGUPDATE)
697 #define FORTNT_REGUPDATE FORTRAN_NAME( REGUPDATE, regupdate)
698 
699 inline void FORTRAN_NAME(inlineREGUPDATE, inlineREGUPDATE)(
700  CHFp_BOX(dcalc)
701  ,CHFp_FRA(consstate)
702  ,CHFp_CONST_FRA(divf)
703  ,CHFp_CONST_INT(nconserved)
705 {
706  CH_TIMELEAF("FORT_REGUPDATE");
707  FORTRAN_NAME( REGUPDATE ,regupdate )(
708  CHFt_BOX(dcalc)
709  ,CHFt_FRA(consstate)
710  ,CHFt_CONST_FRA(divf)
711  ,CHFt_CONST_INT(nconserved)
712  ,CHFt_CONST_REAL(dt) );
713 }
714 #endif // GUARDREGUPDATE
715 
716 }
717 
718 #endif
#define CHFt_CONST_INT(i)
Definition: FORT_PROTO.H:989
#define CHFp_FRA1(a)
Definition: FORT_PROTO.H:913
#define CHFp_REAL(r)
Definition: FORT_PROTO.H:742
#define CHFt_FRA(a)
Definition: FORT_PROTO.H:1053
void CHFp_CONST_FRA(zetadir)
IndexTM< T, N > scale(const IndexTM< T, N > &a_p, T a_s)
Definition: IndexTMI.H:382
Definition: EBInterface.H:45
#define CHFt_CONST_FRA(a)
Definition: FORT_PROTO.H:1095
void FORTRAN_NAME(MINFLAT, minflat)(CHFp_FRA1(flattening)
void CHFp_BOX(box))
Definition: EBPatchGodunovF_F.H:28
#define CHFt_FRA1(a)
Definition: FORT_PROTO.H:1136
void CHFp_CONST_FRA1(delta1p)
#define CHFt_CONST_FRA1(a)
Definition: FORT_PROTO.H:1188
void CHFp_FRA(deltawl)
void CHFp_CONST_INT(idir)
#define CHFt_BOX(b)
Definition: FORT_PROTO.H:1026
#define CH_TIMELEAF(name)
Definition: CH_Timer.H:100
#define CHFt_CONST_REAL(r)
Definition: FORT_PROTO.H:991
void CHFp_CONST_REAL(scale)
#define CHFt_REAL(r)
Definition: FORT_PROTO.H:990