Chombo + EB + MF  3.2
GodunovUtilitiesF_F.H
Go to the documentation of this file.
1 #ifndef _GODUNOVUTILITIESF_F_H_
2 #define _GODUNOVUTILITIESF_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 GUARDMINFLATF
12 #define GUARDMINFLATF
13 // Prototype for Fortran procedure MINFLATF ...
14 //
15 void FORTRAN_NAME( MINFLATF ,minflatf )(
16  CHFp_FRA1(flattening)
17  ,CHFp_CONST_FRA(zetaDir)
18  ,CHFp_CONST_FRA(du)
19  ,CHFp_BOX(box) );
20 
21 #define FORT_MINFLATF FORTRAN_NAME( inlineMINFLATF, inlineMINFLATF)
22 #define FORTNT_MINFLATF FORTRAN_NAME( MINFLATF, minflatf)
23 
24 inline void FORTRAN_NAME(inlineMINFLATF, inlineMINFLATF)(
25  CHFp_FRA1(flattening)
26  ,CHFp_CONST_FRA(zetaDir)
27  ,CHFp_CONST_FRA(du)
29 {
30  CH_TIMELEAF("FORT_MINFLATF");
31  FORTRAN_NAME( MINFLATF ,minflatf )(
32  CHFt_FRA1(flattening)
33  ,CHFt_CONST_FRA(zetaDir)
34  ,CHFt_CONST_FRA(du)
35  ,CHFt_BOX(box) );
36 }
37 #endif // GUARDMINFLATF
38 
39 #ifndef GUARDGETDPTWOF
40 #define GUARDGETDPTWOF
41 // Prototype for Fortran procedure GETDPTWOF ...
42 //
43 void FORTRAN_NAME( GETDPTWOF ,getdptwof )(
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_GETDPTWOF FORTRAN_NAME( inlineGETDPTWOF, inlineGETDPTWOF)
54 #define FORTNT_GETDPTWOF FORTRAN_NAME( GETDPTWOF, getdptwof)
55 
56 inline void FORTRAN_NAME(inlineGETDPTWOF, inlineGETDPTWOF)(
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_GETDPTWOF");
67  FORTRAN_NAME( GETDPTWOF ,getdptwof )(
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 // GUARDGETDPTWOF
78 
79 #ifndef GUARDGETFLATF
80 #define GUARDGETFLATF
81 // Prototype for Fortran procedure GETFLATF ...
82 //
83 void FORTRAN_NAME( GETFLATF ,getflatf )(
84  CHFp_FRA1(zetaTwiddle)
85  ,CHFp_CONST_FRA1(delta1p)
86  ,CHFp_CONST_FRA1(delta2p)
87  ,CHFp_CONST_REAL(smallp)
88  ,CHFp_CONST_FRA1(bulkMin)
89  ,CHFp_BOX(box) );
90 
91 #define FORT_GETFLATF FORTRAN_NAME( inlineGETFLATF, inlineGETFLATF)
92 #define FORTNT_GETFLATF FORTRAN_NAME( GETFLATF, getflatf)
93 
94 inline void FORTRAN_NAME(inlineGETFLATF, inlineGETFLATF)(
95  CHFp_FRA1(zetaTwiddle)
96  ,CHFp_CONST_FRA1(delta1p)
97  ,CHFp_CONST_FRA1(delta2p)
98  ,CHFp_CONST_REAL(smallp)
99  ,CHFp_CONST_FRA1(bulkMin)
100  ,CHFp_BOX(box) )
101 {
102  CH_TIMELEAF("FORT_GETFLATF");
103  FORTRAN_NAME( GETFLATF ,getflatf )(
104  CHFt_FRA1(zetaTwiddle)
105  ,CHFt_CONST_FRA1(delta1p)
106  ,CHFt_CONST_FRA1(delta2p)
107  ,CHFt_CONST_REAL(smallp)
108  ,CHFt_CONST_FRA1(bulkMin)
109  ,CHFt_BOX(box) );
110 }
111 #endif // GUARDGETFLATF
112 
113 #ifndef GUARDGETGRADF
114 #define GUARDGETGRADF
115 // Prototype for Fortran procedure GETGRADF ...
116 //
117 void FORTRAN_NAME( GETGRADF ,getgradf )(
118  CHFp_FRA1(du)
119  ,CHFp_CONST_FRA1(u)
120  ,CHFp_CONST_INT(idir)
121  ,CHFp_BOX(loBox)
122  ,CHFp_CONST_INT(hasLo)
123  ,CHFp_BOX(hiBox)
124  ,CHFp_CONST_INT(hasHi)
125  ,CHFp_BOX(centerBox) );
126 
127 #define FORT_GETGRADF FORTRAN_NAME( inlineGETGRADF, inlineGETGRADF)
128 #define FORTNT_GETGRADF FORTRAN_NAME( GETGRADF, getgradf)
129 
130 inline void FORTRAN_NAME(inlineGETGRADF, inlineGETGRADF)(
131  CHFp_FRA1(du)
132  ,CHFp_CONST_FRA1(u)
133  ,CHFp_CONST_INT(idir)
134  ,CHFp_BOX(loBox)
135  ,CHFp_CONST_INT(hasLo)
136  ,CHFp_BOX(hiBox)
137  ,CHFp_CONST_INT(hasHi)
138  ,CHFp_BOX(centerBox) )
139 {
140  CH_TIMELEAF("FORT_GETGRADF");
141  FORTRAN_NAME( GETGRADF ,getgradf )(
142  CHFt_FRA1(du)
143  ,CHFt_CONST_FRA1(u)
144  ,CHFt_CONST_INT(idir)
145  ,CHFt_BOX(loBox)
146  ,CHFt_CONST_INT(hasLo)
147  ,CHFt_BOX(hiBox)
148  ,CHFt_CONST_INT(hasHi)
149  ,CHFt_BOX(centerBox) );
150 }
151 #endif // GUARDGETGRADF
152 
153 #ifndef GUARDMIN3PTSF
154 #define GUARDMIN3PTSF
155 // Prototype for Fortran procedure MIN3PTSF ...
156 //
157 void FORTRAN_NAME( MIN3PTSF ,min3ptsf )(
158  CHFp_FRA1(mindata)
159  ,CHFp_CONST_FRA1(data)
160  ,CHFp_CONST_INT(idir)
161  ,CHFp_BOX(loBox)
162  ,CHFp_CONST_INT(hasLo)
163  ,CHFp_BOX(hiBox)
164  ,CHFp_CONST_INT(hasHi)
165  ,CHFp_BOX(centerBox) );
166 
167 #define FORT_MIN3PTSF FORTRAN_NAME( inlineMIN3PTSF, inlineMIN3PTSF)
168 #define FORTNT_MIN3PTSF FORTRAN_NAME( MIN3PTSF, min3ptsf)
169 
170 inline void FORTRAN_NAME(inlineMIN3PTSF, inlineMIN3PTSF)(
171  CHFp_FRA1(mindata)
172  ,CHFp_CONST_FRA1(data)
173  ,CHFp_CONST_INT(idir)
174  ,CHFp_BOX(loBox)
175  ,CHFp_CONST_INT(hasLo)
176  ,CHFp_BOX(hiBox)
177  ,CHFp_CONST_INT(hasHi)
178  ,CHFp_BOX(centerBox) )
179 {
180  CH_TIMELEAF("FORT_MIN3PTSF");
181  FORTRAN_NAME( MIN3PTSF ,min3ptsf )(
182  CHFt_FRA1(mindata)
183  ,CHFt_CONST_FRA1(data)
184  ,CHFt_CONST_INT(idir)
185  ,CHFt_BOX(loBox)
186  ,CHFt_CONST_INT(hasLo)
187  ,CHFt_BOX(hiBox)
188  ,CHFt_CONST_INT(hasHi)
189  ,CHFt_BOX(centerBox) );
190 }
191 #endif // GUARDMIN3PTSF
192 
193 #ifndef GUARDSECONDSLOPEDIFFSF
194 #define GUARDSECONDSLOPEDIFFSF
195 // Prototype for Fortran procedure SECONDSLOPEDIFFSF ...
196 //
197 void FORTRAN_NAME( SECONDSLOPEDIFFSF ,secondslopediffsf )(
198  CHFp_FRA(deltaWC)
199  ,CHFp_FRA(deltaWL)
200  ,CHFp_FRA(deltaWR)
201  ,CHFp_CONST_FRA(W)
202  ,CHFp_CONST_INT(numSlopes)
203  ,CHFp_CONST_INT(idir)
204  ,CHFp_BOX(loBox)
205  ,CHFp_CONST_INT(hasLo)
206  ,CHFp_BOX(hiBox)
207  ,CHFp_CONST_INT(hasHi)
208  ,CHFp_BOX(centerBox) );
209 
210 #define FORT_SECONDSLOPEDIFFSF FORTRAN_NAME( inlineSECONDSLOPEDIFFSF, inlineSECONDSLOPEDIFFSF)
211 #define FORTNT_SECONDSLOPEDIFFSF FORTRAN_NAME( SECONDSLOPEDIFFSF, secondslopediffsf)
212 
213 inline void FORTRAN_NAME(inlineSECONDSLOPEDIFFSF, inlineSECONDSLOPEDIFFSF)(
214  CHFp_FRA(deltaWC)
215  ,CHFp_FRA(deltaWL)
216  ,CHFp_FRA(deltaWR)
217  ,CHFp_CONST_FRA(W)
218  ,CHFp_CONST_INT(numSlopes)
219  ,CHFp_CONST_INT(idir)
220  ,CHFp_BOX(loBox)
221  ,CHFp_CONST_INT(hasLo)
222  ,CHFp_BOX(hiBox)
223  ,CHFp_CONST_INT(hasHi)
224  ,CHFp_BOX(centerBox) )
225 {
226  CH_TIMELEAF("FORT_SECONDSLOPEDIFFSF");
227  FORTRAN_NAME( SECONDSLOPEDIFFSF ,secondslopediffsf )(
228  CHFt_FRA(deltaWC)
229  ,CHFt_FRA(deltaWL)
230  ,CHFt_FRA(deltaWR)
231  ,CHFt_CONST_FRA(W)
232  ,CHFt_CONST_INT(numSlopes)
233  ,CHFt_CONST_INT(idir)
234  ,CHFt_BOX(loBox)
235  ,CHFt_CONST_INT(hasLo)
236  ,CHFt_BOX(hiBox)
237  ,CHFt_CONST_INT(hasHi)
238  ,CHFt_BOX(centerBox) );
239 }
240 #endif // GUARDSECONDSLOPEDIFFSF
241 
242 #ifndef GUARDFOURTHSLOPEDIFFSF
243 #define GUARDFOURTHSLOPEDIFFSF
244 // Prototype for Fortran procedure FOURTHSLOPEDIFFSF ...
245 //
246 void FORTRAN_NAME( FOURTHSLOPEDIFFSF ,fourthslopediffsf )(
247  CHFp_FRA(delta4WC)
248  ,CHFp_CONST_FRA(W)
249  ,CHFp_CONST_FRA(delta2W)
250  ,CHFp_CONST_INT(numSlopes)
251  ,CHFp_CONST_INT(idir)
252  ,CHFp_BOX(loBox)
253  ,CHFp_CONST_INT(hasLo)
254  ,CHFp_BOX(hiBox)
255  ,CHFp_CONST_INT(hasHi)
256  ,CHFp_BOX(centerBox) );
257 
258 #define FORT_FOURTHSLOPEDIFFSF FORTRAN_NAME( inlineFOURTHSLOPEDIFFSF, inlineFOURTHSLOPEDIFFSF)
259 #define FORTNT_FOURTHSLOPEDIFFSF FORTRAN_NAME( FOURTHSLOPEDIFFSF, fourthslopediffsf)
260 
261 inline void FORTRAN_NAME(inlineFOURTHSLOPEDIFFSF, inlineFOURTHSLOPEDIFFSF)(
262  CHFp_FRA(delta4WC)
263  ,CHFp_CONST_FRA(W)
264  ,CHFp_CONST_FRA(delta2W)
265  ,CHFp_CONST_INT(numSlopes)
266  ,CHFp_CONST_INT(idir)
267  ,CHFp_BOX(loBox)
268  ,CHFp_CONST_INT(hasLo)
269  ,CHFp_BOX(hiBox)
270  ,CHFp_CONST_INT(hasHi)
271  ,CHFp_BOX(centerBox) )
272 {
273  CH_TIMELEAF("FORT_FOURTHSLOPEDIFFSF");
274  FORTRAN_NAME( FOURTHSLOPEDIFFSF ,fourthslopediffsf )(
275  CHFt_FRA(delta4WC)
276  ,CHFt_CONST_FRA(W)
277  ,CHFt_CONST_FRA(delta2W)
278  ,CHFt_CONST_INT(numSlopes)
279  ,CHFt_CONST_INT(idir)
280  ,CHFt_BOX(loBox)
281  ,CHFt_CONST_INT(hasLo)
282  ,CHFt_BOX(hiBox)
283  ,CHFt_CONST_INT(hasHi)
284  ,CHFt_BOX(centerBox) );
285 }
286 #endif // GUARDFOURTHSLOPEDIFFSF
287 
288 #ifndef GUARDAPPLYFLATF
289 #define GUARDAPPLYFLATF
290 // Prototype for Fortran procedure APPLYFLATF ...
291 //
292 void FORTRAN_NAME( APPLYFLATF ,applyflatf )(
293  CHFp_FRA(dW)
294  ,CHFp_CONST_FRA1(flattening)
295  ,CHFp_CONST_INT(numSlopes)
296  ,CHFp_BOX(box) );
297 
298 #define FORT_APPLYFLATF FORTRAN_NAME( inlineAPPLYFLATF, inlineAPPLYFLATF)
299 #define FORTNT_APPLYFLATF FORTRAN_NAME( APPLYFLATF, applyflatf)
300 
301 inline void FORTRAN_NAME(inlineAPPLYFLATF, inlineAPPLYFLATF)(
302  CHFp_FRA(dW)
303  ,CHFp_CONST_FRA1(flattening)
304  ,CHFp_CONST_INT(numSlopes)
305  ,CHFp_BOX(box) )
306 {
307  CH_TIMELEAF("FORT_APPLYFLATF");
308  FORTRAN_NAME( APPLYFLATF ,applyflatf )(
309  CHFt_FRA(dW)
310  ,CHFt_CONST_FRA1(flattening)
311  ,CHFt_CONST_INT(numSlopes)
312  ,CHFt_BOX(box) );
313 }
314 #endif // GUARDAPPLYFLATF
315 
316 #ifndef GUARDVANLEERLIMITERF
317 #define GUARDVANLEERLIMITERF
318 // Prototype for Fortran procedure VANLEERLIMITERF ...
319 //
320 void FORTRAN_NAME( VANLEERLIMITERF ,vanleerlimiterf )(
321  CHFp_FRA(dW)
322  ,CHFp_CONST_FRA(dWleft)
323  ,CHFp_CONST_FRA(dWright)
324  ,CHFp_CONST_INT(numslopes)
325  ,CHFp_BOX(box) );
326 
327 #define FORT_VANLEERLIMITERF FORTRAN_NAME( inlineVANLEERLIMITERF, inlineVANLEERLIMITERF)
328 #define FORTNT_VANLEERLIMITERF FORTRAN_NAME( VANLEERLIMITERF, vanleerlimiterf)
329 
330 inline void FORTRAN_NAME(inlineVANLEERLIMITERF, inlineVANLEERLIMITERF)(
331  CHFp_FRA(dW)
332  ,CHFp_CONST_FRA(dWleft)
333  ,CHFp_CONST_FRA(dWright)
334  ,CHFp_CONST_INT(numslopes)
335  ,CHFp_BOX(box) )
336 {
337  CH_TIMELEAF("FORT_VANLEERLIMITERF");
338  FORTRAN_NAME( VANLEERLIMITERF ,vanleerlimiterf )(
339  CHFt_FRA(dW)
340  ,CHFt_CONST_FRA(dWleft)
341  ,CHFt_CONST_FRA(dWright)
342  ,CHFt_CONST_INT(numslopes)
343  ,CHFt_BOX(box) );
344 }
345 #endif // GUARDVANLEERLIMITERF
346 
347 #ifndef GUARDEXTPRESERVINGVANLEERLIMITERF
348 #define GUARDEXTPRESERVINGVANLEERLIMITERF
349 // Prototype for Fortran procedure EXTPRESERVINGVANLEERLIMITERF ...
350 //
351 void FORTRAN_NAME( EXTPRESERVINGVANLEERLIMITERF ,extpreservingvanleerlimiterf )(
352  CHFp_FRA(dW)
353  ,CHFp_CONST_FRA(dWleft)
354  ,CHFp_CONST_FRA(dWright)
355  ,CHFp_CONST_INT(numSlopes)
356  ,CHFp_CONST_INT(idir)
357  ,CHFp_BOX(centerBox) );
358 
359 #define FORT_EXTPRESERVINGVANLEERLIMITERF FORTRAN_NAME( inlineEXTPRESERVINGVANLEERLIMITERF, inlineEXTPRESERVINGVANLEERLIMITERF)
360 #define FORTNT_EXTPRESERVINGVANLEERLIMITERF FORTRAN_NAME( EXTPRESERVINGVANLEERLIMITERF, extpreservingvanleerlimiterf)
361 
362 inline void FORTRAN_NAME(inlineEXTPRESERVINGVANLEERLIMITERF, inlineEXTPRESERVINGVANLEERLIMITERF)(
363  CHFp_FRA(dW)
364  ,CHFp_CONST_FRA(dWleft)
365  ,CHFp_CONST_FRA(dWright)
366  ,CHFp_CONST_INT(numSlopes)
367  ,CHFp_CONST_INT(idir)
368  ,CHFp_BOX(centerBox) )
369 {
370  CH_TIMELEAF("FORT_EXTPRESERVINGVANLEERLIMITERF");
371  FORTRAN_NAME( EXTPRESERVINGVANLEERLIMITERF ,extpreservingvanleerlimiterf )(
372  CHFt_FRA(dW)
373  ,CHFt_CONST_FRA(dWleft)
374  ,CHFt_CONST_FRA(dWright)
375  ,CHFt_CONST_INT(numSlopes)
376  ,CHFt_CONST_INT(idir)
377  ,CHFt_BOX(centerBox) );
378 }
379 #endif // GUARDEXTPRESERVINGVANLEERLIMITERF
380 
381 #ifndef GUARDPLMNORMALPREDF
382 #define GUARDPLMNORMALPREDF
383 // Prototype for Fortran procedure PLMNORMALPREDF ...
384 //
385 void FORTRAN_NAME( PLMNORMALPREDF ,plmnormalpredf )(
386  CHFp_FRA(dWMinus)
387  ,CHFp_FRA(dWPlus)
388  ,CHFp_CONST_FRA(dW)
389  ,CHFp_CONST_FRA(lambda)
390  ,CHFp_CONST_REAL(dtbydx)
391  ,CHFp_CONST_INT(nSlope)
392  ,CHFp_BOX(box) );
393 
394 #define FORT_PLMNORMALPREDF FORTRAN_NAME( inlinePLMNORMALPREDF, inlinePLMNORMALPREDF)
395 #define FORTNT_PLMNORMALPREDF FORTRAN_NAME( PLMNORMALPREDF, plmnormalpredf)
396 
397 inline void FORTRAN_NAME(inlinePLMNORMALPREDF, inlinePLMNORMALPREDF)(
398  CHFp_FRA(dWMinus)
399  ,CHFp_FRA(dWPlus)
400  ,CHFp_CONST_FRA(dW)
401  ,CHFp_CONST_FRA(lambda)
402  ,CHFp_CONST_REAL(dtbydx)
403  ,CHFp_CONST_INT(nSlope)
404  ,CHFp_BOX(box) )
405 {
406  CH_TIMELEAF("FORT_PLMNORMALPREDF");
407  FORTRAN_NAME( PLMNORMALPREDF ,plmnormalpredf )(
408  CHFt_FRA(dWMinus)
409  ,CHFt_FRA(dWPlus)
410  ,CHFt_CONST_FRA(dW)
411  ,CHFt_CONST_FRA(lambda)
412  ,CHFt_CONST_REAL(dtbydx)
413  ,CHFt_CONST_INT(nSlope)
414  ,CHFt_BOX(box) );
415 }
416 #endif // GUARDPLMNORMALPREDF
417 
418 #ifndef GUARDDIVUEDGEF
419 #define GUARDDIVUEDGEF
420 // Prototype for Fortran procedure DIVUEDGEF ...
421 //
422 void FORTRAN_NAME( DIVUEDGEF ,divuedgef )(
423  CHFp_FRA1(divu)
424  ,CHFp_CONST_FRA1(uNorm)
425  ,CHFp_CONST_FRA(duTan)
426  ,CHFp_CONST_INT(idir)
427  ,CHFp_BOX(loBox)
428  ,CHFp_CONST_INT(hasLo)
429  ,CHFp_BOX(hiBox)
430  ,CHFp_CONST_INT(hasHi)
431  ,CHFp_BOX(centerBox) );
432 
433 #define FORT_DIVUEDGEF FORTRAN_NAME( inlineDIVUEDGEF, inlineDIVUEDGEF)
434 #define FORTNT_DIVUEDGEF FORTRAN_NAME( DIVUEDGEF, divuedgef)
435 
436 inline void FORTRAN_NAME(inlineDIVUEDGEF, inlineDIVUEDGEF)(
437  CHFp_FRA1(divu)
438  ,CHFp_CONST_FRA1(uNorm)
439  ,CHFp_CONST_FRA(duTan)
440  ,CHFp_CONST_INT(idir)
441  ,CHFp_BOX(loBox)
442  ,CHFp_CONST_INT(hasLo)
443  ,CHFp_BOX(hiBox)
444  ,CHFp_CONST_INT(hasHi)
445  ,CHFp_BOX(centerBox) )
446 {
447  CH_TIMELEAF("FORT_DIVUEDGEF");
448  FORTRAN_NAME( DIVUEDGEF ,divuedgef )(
449  CHFt_FRA1(divu)
450  ,CHFt_CONST_FRA1(uNorm)
451  ,CHFt_CONST_FRA(duTan)
452  ,CHFt_CONST_INT(idir)
453  ,CHFt_BOX(loBox)
454  ,CHFt_CONST_INT(hasLo)
455  ,CHFt_BOX(hiBox)
456  ,CHFt_CONST_INT(hasHi)
457  ,CHFt_BOX(centerBox) );
458 }
459 #endif // GUARDDIVUEDGEF
460 
461 #ifndef GUARDARTVISCF
462 #define GUARDARTVISCF
463 // Prototype for Fortran procedure ARTVISCF ...
464 //
465 void FORTRAN_NAME( ARTVISCF ,artviscf )(
466  CHFp_FRA(F)
467  ,CHFp_CONST_FRA(U)
468  ,CHFp_CONST_FRA1(divu)
469  ,CHFp_CONST_REAL(coeff)
470  ,CHFp_CONST_INT(idir)
471  ,CHFp_BOX(fbox) );
472 
473 #define FORT_ARTVISCF FORTRAN_NAME( inlineARTVISCF, inlineARTVISCF)
474 #define FORTNT_ARTVISCF FORTRAN_NAME( ARTVISCF, artviscf)
475 
476 inline void FORTRAN_NAME(inlineARTVISCF, inlineARTVISCF)(
477  CHFp_FRA(F)
478  ,CHFp_CONST_FRA(U)
479  ,CHFp_CONST_FRA1(divu)
480  ,CHFp_CONST_REAL(coeff)
481  ,CHFp_CONST_INT(idir)
482  ,CHFp_BOX(fbox) )
483 {
484  CH_TIMELEAF("FORT_ARTVISCF");
485  FORTRAN_NAME( ARTVISCF ,artviscf )(
486  CHFt_FRA(F)
487  ,CHFt_CONST_FRA(U)
488  ,CHFt_CONST_FRA1(divu)
489  ,CHFt_CONST_REAL(coeff)
490  ,CHFt_CONST_INT(idir)
491  ,CHFt_BOX(fbox) );
492 }
493 #endif // GUARDARTVISCF
494 
495 #ifndef GUARDPPMLIMITERF
496 #define GUARDPPMLIMITERF
497 // Prototype for Fortran procedure PPMLIMITERF ...
498 //
499 void FORTRAN_NAME( PPMLIMITERF ,ppmlimiterf )(
500  CHFp_FRA(dWMinus)
501  ,CHFp_FRA(dWPlus)
502  ,CHFp_CONST_INT(numSlopes)
503  ,CHFp_BOX(box) );
504 
505 #define FORT_PPMLIMITERF FORTRAN_NAME( inlinePPMLIMITERF, inlinePPMLIMITERF)
506 #define FORTNT_PPMLIMITERF FORTRAN_NAME( PPMLIMITERF, ppmlimiterf)
507 
508 inline void FORTRAN_NAME(inlinePPMLIMITERF, inlinePPMLIMITERF)(
509  CHFp_FRA(dWMinus)
510  ,CHFp_FRA(dWPlus)
511  ,CHFp_CONST_INT(numSlopes)
512  ,CHFp_BOX(box) )
513 {
514  CH_TIMELEAF("FORT_PPMLIMITERF");
515  FORTRAN_NAME( PPMLIMITERF ,ppmlimiterf )(
516  CHFt_FRA(dWMinus)
517  ,CHFt_FRA(dWPlus)
518  ,CHFt_CONST_INT(numSlopes)
519  ,CHFt_BOX(box) );
520 }
521 #endif // GUARDPPMLIMITERF
522 
523 #ifndef GUARDCOLELLASEKORALIMITERF
524 #define GUARDCOLELLASEKORALIMITERF
525 // Prototype for Fortran procedure COLELLASEKORALIMITERF ...
526 //
527 void FORTRAN_NAME( COLELLASEKORALIMITERF ,colellasekoralimiterf )(
528  CHFp_FRA(dWMinus)
529  ,CHFp_FRA(dWPlus)
530  ,CHFp_CONST_FRA(W)
531  ,CHFp_CONST_FRA(diffW)
532  ,CHFp_CONST_FRA(d2W)
533  ,CHFp_CONST_FRA(dW2fcf)
534  ,CHFp_CONST_INT(numSlopes)
535  ,CHFp_CONST_INT(idir)
536  ,CHFp_BOX(loBox)
537  ,CHFp_CONST_INT(hasLo)
538  ,CHFp_BOX(hiBox)
539  ,CHFp_CONST_INT(hasHi)
540  ,CHFp_BOX(centerBox)
541  ,CHFp_CONST_REAL(limitC)
542  ,CHFp_CONST_REAL(eps) );
543 
544 #define FORT_COLELLASEKORALIMITERF FORTRAN_NAME( inlineCOLELLASEKORALIMITERF, inlineCOLELLASEKORALIMITERF)
545 #define FORTNT_COLELLASEKORALIMITERF FORTRAN_NAME( COLELLASEKORALIMITERF, colellasekoralimiterf)
546 
547 inline void FORTRAN_NAME(inlineCOLELLASEKORALIMITERF, inlineCOLELLASEKORALIMITERF)(
548  CHFp_FRA(dWMinus)
549  ,CHFp_FRA(dWPlus)
550  ,CHFp_CONST_FRA(W)
551  ,CHFp_CONST_FRA(diffW)
552  ,CHFp_CONST_FRA(d2W)
553  ,CHFp_CONST_FRA(dW2fcf)
554  ,CHFp_CONST_INT(numSlopes)
555  ,CHFp_CONST_INT(idir)
556  ,CHFp_BOX(loBox)
557  ,CHFp_CONST_INT(hasLo)
558  ,CHFp_BOX(hiBox)
559  ,CHFp_CONST_INT(hasHi)
560  ,CHFp_BOX(centerBox)
561  ,CHFp_CONST_REAL(limitC)
563 {
564  CH_TIMELEAF("FORT_COLELLASEKORALIMITERF");
565  FORTRAN_NAME( COLELLASEKORALIMITERF ,colellasekoralimiterf )(
566  CHFt_FRA(dWMinus)
567  ,CHFt_FRA(dWPlus)
568  ,CHFt_CONST_FRA(W)
569  ,CHFt_CONST_FRA(diffW)
570  ,CHFt_CONST_FRA(d2W)
571  ,CHFt_CONST_FRA(dW2fcf)
572  ,CHFt_CONST_INT(numSlopes)
573  ,CHFt_CONST_INT(idir)
574  ,CHFt_BOX(loBox)
575  ,CHFt_CONST_INT(hasLo)
576  ,CHFt_BOX(hiBox)
577  ,CHFt_CONST_INT(hasHi)
578  ,CHFt_BOX(centerBox)
579  ,CHFt_CONST_REAL(limitC)
580  ,CHFt_CONST_REAL(eps) );
581 }
582 #endif // GUARDCOLELLASEKORALIMITERF
583 
584 #ifndef GUARDPPMFACEVALUESF
585 #define GUARDPPMFACEVALUESF
586 // Prototype for Fortran procedure PPMFACEVALUESF ...
587 //
588 void FORTRAN_NAME( PPMFACEVALUESF ,ppmfacevaluesf )(
589  CHFp_FRA(WFace)
590  ,CHFp_CONST_FRA(W)
591  ,CHFp_CONST_FRA(dW)
592  ,CHFp_CONST_INT(numSlopes)
593  ,CHFp_CONST_INT(idir)
594  ,CHFp_BOX(loBox)
595  ,CHFp_CONST_INT(hasLo)
596  ,CHFp_BOX(hiBox)
597  ,CHFp_CONST_INT(hasHi)
598  ,CHFp_BOX(centerBox) );
599 
600 #define FORT_PPMFACEVALUESF FORTRAN_NAME( inlinePPMFACEVALUESF, inlinePPMFACEVALUESF)
601 #define FORTNT_PPMFACEVALUESF FORTRAN_NAME( PPMFACEVALUESF, ppmfacevaluesf)
602 
603 inline void FORTRAN_NAME(inlinePPMFACEVALUESF, inlinePPMFACEVALUESF)(
604  CHFp_FRA(WFace)
605  ,CHFp_CONST_FRA(W)
606  ,CHFp_CONST_FRA(dW)
607  ,CHFp_CONST_INT(numSlopes)
608  ,CHFp_CONST_INT(idir)
609  ,CHFp_BOX(loBox)
610  ,CHFp_CONST_INT(hasLo)
611  ,CHFp_BOX(hiBox)
612  ,CHFp_CONST_INT(hasHi)
613  ,CHFp_BOX(centerBox) )
614 {
615  CH_TIMELEAF("FORT_PPMFACEVALUESF");
616  FORTRAN_NAME( PPMFACEVALUESF ,ppmfacevaluesf )(
617  CHFt_FRA(WFace)
618  ,CHFt_CONST_FRA(W)
619  ,CHFt_CONST_FRA(dW)
620  ,CHFt_CONST_INT(numSlopes)
621  ,CHFt_CONST_INT(idir)
622  ,CHFt_BOX(loBox)
623  ,CHFt_CONST_INT(hasLo)
624  ,CHFt_BOX(hiBox)
625  ,CHFt_CONST_INT(hasHi)
626  ,CHFt_BOX(centerBox) );
627 }
628 #endif // GUARDPPMFACEVALUESF
629 
630 #ifndef GUARDPPMNORMALPREDF
631 #define GUARDPPMNORMALPREDF
632 // Prototype for Fortran procedure PPMNORMALPREDF ...
633 //
634 void FORTRAN_NAME( PPMNORMALPREDF ,ppmnormalpredf )(
635  CHFp_FRA(dWMinus)
636  ,CHFp_FRA(dWPlus)
637  ,CHFp_CONST_FRA(lambda)
638  ,CHFp_CONST_REAL(dtbydx)
639  ,CHFp_CONST_INT(nSlope)
640  ,CHFp_BOX(box) );
641 
642 #define FORT_PPMNORMALPREDF FORTRAN_NAME( inlinePPMNORMALPREDF, inlinePPMNORMALPREDF)
643 #define FORTNT_PPMNORMALPREDF FORTRAN_NAME( PPMNORMALPREDF, ppmnormalpredf)
644 
645 inline void FORTRAN_NAME(inlinePPMNORMALPREDF, inlinePPMNORMALPREDF)(
646  CHFp_FRA(dWMinus)
647  ,CHFp_FRA(dWPlus)
648  ,CHFp_CONST_FRA(lambda)
649  ,CHFp_CONST_REAL(dtbydx)
650  ,CHFp_CONST_INT(nSlope)
651  ,CHFp_BOX(box) )
652 {
653  CH_TIMELEAF("FORT_PPMNORMALPREDF");
654  FORTRAN_NAME( PPMNORMALPREDF ,ppmnormalpredf )(
655  CHFt_FRA(dWMinus)
656  ,CHFt_FRA(dWPlus)
657  ,CHFt_CONST_FRA(lambda)
658  ,CHFt_CONST_REAL(dtbydx)
659  ,CHFt_CONST_INT(nSlope)
660  ,CHFt_BOX(box) );
661 }
662 #endif // GUARDPPMNORMALPREDF
663 
664 #ifndef GUARDGETSECONDDIFF
665 #define GUARDGETSECONDDIFF
666 // Prototype for Fortran procedure GETSECONDDIFF ...
667 //
668 void FORTRAN_NAME( GETSECONDDIFF ,getseconddiff )(
669  CHFp_FRA(d2W)
670  ,CHFp_CONST_FRA(W)
671  ,CHFp_CONST_INT(numSlopes)
672  ,CHFp_CONST_INT(idir)
673  ,CHFp_BOX(loBox)
674  ,CHFp_CONST_INT(hasLo)
675  ,CHFp_BOX(hiBox)
676  ,CHFp_CONST_INT(hasHi)
677  ,CHFp_BOX(centerBox) );
678 
679 #define FORT_GETSECONDDIFF FORTRAN_NAME( inlineGETSECONDDIFF, inlineGETSECONDDIFF)
680 #define FORTNT_GETSECONDDIFF FORTRAN_NAME( GETSECONDDIFF, getseconddiff)
681 
682 inline void FORTRAN_NAME(inlineGETSECONDDIFF, inlineGETSECONDDIFF)(
683  CHFp_FRA(d2W)
684  ,CHFp_CONST_FRA(W)
685  ,CHFp_CONST_INT(numSlopes)
686  ,CHFp_CONST_INT(idir)
687  ,CHFp_BOX(loBox)
688  ,CHFp_CONST_INT(hasLo)
689  ,CHFp_BOX(hiBox)
690  ,CHFp_CONST_INT(hasHi)
691  ,CHFp_BOX(centerBox) )
692 {
693  CH_TIMELEAF("FORT_GETSECONDDIFF");
694  FORTRAN_NAME( GETSECONDDIFF ,getseconddiff )(
695  CHFt_FRA(d2W)
696  ,CHFt_CONST_FRA(W)
697  ,CHFt_CONST_INT(numSlopes)
698  ,CHFt_CONST_INT(idir)
699  ,CHFt_BOX(loBox)
700  ,CHFt_CONST_INT(hasLo)
701  ,CHFt_BOX(hiBox)
702  ,CHFt_CONST_INT(hasHi)
703  ,CHFt_BOX(centerBox) );
704 }
705 #endif // GUARDGETSECONDDIFF
706 
707 #ifndef GUARDGETD2CELL
708 #define GUARDGETD2CELL
709 // Prototype for Fortran procedure GETD2CELL ...
710 //
711 void FORTRAN_NAME( GETD2CELL ,getd2cell )(
712  CHFp_FRA(d2W)
713  ,CHFp_CONST_FRA(W)
714  ,CHFp_CONST_INT(numSlopes)
715  ,CHFp_CONST_INT(idir)
716  ,CHFp_BOX(loBox)
717  ,CHFp_CONST_INT(hasLo)
718  ,CHFp_BOX(hiBox)
719  ,CHFp_CONST_INT(hasHi)
720  ,CHFp_BOX(centerBox) );
721 
722 #define FORT_GETD2CELL FORTRAN_NAME( inlineGETD2CELL, inlineGETD2CELL)
723 #define FORTNT_GETD2CELL FORTRAN_NAME( GETD2CELL, getd2cell)
724 
725 inline void FORTRAN_NAME(inlineGETD2CELL, inlineGETD2CELL)(
726  CHFp_FRA(d2W)
727  ,CHFp_CONST_FRA(W)
728  ,CHFp_CONST_INT(numSlopes)
729  ,CHFp_CONST_INT(idir)
730  ,CHFp_BOX(loBox)
731  ,CHFp_CONST_INT(hasLo)
732  ,CHFp_BOX(hiBox)
733  ,CHFp_CONST_INT(hasHi)
734  ,CHFp_BOX(centerBox) )
735 {
736  CH_TIMELEAF("FORT_GETD2CELL");
737  FORTRAN_NAME( GETD2CELL ,getd2cell )(
738  CHFt_FRA(d2W)
739  ,CHFt_CONST_FRA(W)
740  ,CHFt_CONST_INT(numSlopes)
741  ,CHFt_CONST_INT(idir)
742  ,CHFt_BOX(loBox)
743  ,CHFt_CONST_INT(hasLo)
744  ,CHFt_BOX(hiBox)
745  ,CHFt_CONST_INT(hasHi)
746  ,CHFt_BOX(centerBox) );
747 }
748 #endif // GUARDGETD2CELL
749 
750 #ifndef GUARDGETD2LIMFACE
751 #define GUARDGETD2LIMFACE
752 // Prototype for Fortran procedure GETD2LIMFACE ...
753 //
754 void FORTRAN_NAME( GETD2LIMFACE ,getd2limface )(
755  CHFp_FRA(d2Wlim)
756  ,CHFp_CONST_FRA(d2Wc)
757  ,CHFp_CONST_FRA(d2Wcfc)
758  ,CHFp_CONST_INT(numSlopes)
759  ,CHFp_CONST_INT(idir)
760  ,CHFp_BOX(centerBox)
761  ,CHFp_CONST_REAL(limitC) );
762 
763 #define FORT_GETD2LIMFACE FORTRAN_NAME( inlineGETD2LIMFACE, inlineGETD2LIMFACE)
764 #define FORTNT_GETD2LIMFACE FORTRAN_NAME( GETD2LIMFACE, getd2limface)
765 
766 inline void FORTRAN_NAME(inlineGETD2LIMFACE, inlineGETD2LIMFACE)(
767  CHFp_FRA(d2Wlim)
768  ,CHFp_CONST_FRA(d2Wc)
769  ,CHFp_CONST_FRA(d2Wcfc)
770  ,CHFp_CONST_INT(numSlopes)
771  ,CHFp_CONST_INT(idir)
772  ,CHFp_BOX(centerBox)
773  ,CHFp_CONST_REAL(limitC) )
774 {
775  CH_TIMELEAF("FORT_GETD2LIMFACE");
776  FORTRAN_NAME( GETD2LIMFACE ,getd2limface )(
777  CHFt_FRA(d2Wlim)
778  ,CHFt_CONST_FRA(d2Wc)
779  ,CHFt_CONST_FRA(d2Wcfc)
780  ,CHFt_CONST_INT(numSlopes)
781  ,CHFt_CONST_INT(idir)
782  ,CHFt_BOX(centerBox)
783  ,CHFt_CONST_REAL(limitC) );
784 }
785 #endif // GUARDGETD2LIMFACE
786 
787 #ifndef GUARDCOLELLASEKORAFACELIMITER
788 #define GUARDCOLELLASEKORAFACELIMITER
789 // Prototype for Fortran procedure COLELLASEKORAFACELIMITER ...
790 //
791 void FORTRAN_NAME( COLELLASEKORAFACELIMITER ,colellasekorafacelimiter )(
792  CHFp_FRA(Wface)
793  ,CHFp_CONST_FRA(W)
794  ,CHFp_CONST_FRA(d2Wc)
795  ,CHFp_CONST_INT(numSlopes)
796  ,CHFp_CONST_INT(idir)
797  ,CHFp_BOX(centerBox)
798  ,CHFp_CONST_REAL(limitC) );
799 
800 #define FORT_COLELLASEKORAFACELIMITER FORTRAN_NAME( inlineCOLELLASEKORAFACELIMITER, inlineCOLELLASEKORAFACELIMITER)
801 #define FORTNT_COLELLASEKORAFACELIMITER FORTRAN_NAME( COLELLASEKORAFACELIMITER, colellasekorafacelimiter)
802 
803 inline void FORTRAN_NAME(inlineCOLELLASEKORAFACELIMITER, inlineCOLELLASEKORAFACELIMITER)(
804  CHFp_FRA(Wface)
805  ,CHFp_CONST_FRA(W)
806  ,CHFp_CONST_FRA(d2Wc)
807  ,CHFp_CONST_INT(numSlopes)
808  ,CHFp_CONST_INT(idir)
809  ,CHFp_BOX(centerBox)
810  ,CHFp_CONST_REAL(limitC) )
811 {
812  CH_TIMELEAF("FORT_COLELLASEKORAFACELIMITER");
813  FORTRAN_NAME( COLELLASEKORAFACELIMITER ,colellasekorafacelimiter )(
814  CHFt_FRA(Wface)
815  ,CHFt_CONST_FRA(W)
816  ,CHFt_CONST_FRA(d2Wc)
817  ,CHFt_CONST_INT(numSlopes)
818  ,CHFt_CONST_INT(idir)
819  ,CHFt_BOX(centerBox)
820  ,CHFt_CONST_REAL(limitC) );
821 }
822 #endif // GUARDCOLELLASEKORAFACELIMITER
823 
824 #ifndef GUARDFOURTHINTERPFACES
825 #define GUARDFOURTHINTERPFACES
826 // Prototype for Fortran procedure FOURTHINTERPFACES ...
827 //
828 void FORTRAN_NAME( FOURTHINTERPFACES ,fourthinterpfaces )(
829  CHFp_FRA(Wface)
830  ,CHFp_CONST_FRA(W)
831  ,CHFp_CONST_INT(numSlopes)
832  ,CHFp_CONST_INT(idir)
833  ,CHFp_BOX(loBox)
834  ,CHFp_BOX(nextLoBox)
835  ,CHFp_CONST_INT(hasLo)
836  ,CHFp_BOX(hiBox)
837  ,CHFp_BOX(nextHiBox)
838  ,CHFp_CONST_INT(hasHi)
839  ,CHFp_BOX(centerBox) );
840 
841 #define FORT_FOURTHINTERPFACES FORTRAN_NAME( inlineFOURTHINTERPFACES, inlineFOURTHINTERPFACES)
842 #define FORTNT_FOURTHINTERPFACES FORTRAN_NAME( FOURTHINTERPFACES, fourthinterpfaces)
843 
844 inline void FORTRAN_NAME(inlineFOURTHINTERPFACES, inlineFOURTHINTERPFACES)(
845  CHFp_FRA(Wface)
846  ,CHFp_CONST_FRA(W)
847  ,CHFp_CONST_INT(numSlopes)
848  ,CHFp_CONST_INT(idir)
849  ,CHFp_BOX(loBox)
850  ,CHFp_BOX(nextLoBox)
851  ,CHFp_CONST_INT(hasLo)
852  ,CHFp_BOX(hiBox)
853  ,CHFp_BOX(nextHiBox)
854  ,CHFp_CONST_INT(hasHi)
855  ,CHFp_BOX(centerBox) )
856 {
857  CH_TIMELEAF("FORT_FOURTHINTERPFACES");
858  FORTRAN_NAME( FOURTHINTERPFACES ,fourthinterpfaces )(
859  CHFt_FRA(Wface)
860  ,CHFt_CONST_FRA(W)
861  ,CHFt_CONST_INT(numSlopes)
862  ,CHFt_CONST_INT(idir)
863  ,CHFt_BOX(loBox)
864  ,CHFt_BOX(nextLoBox)
865  ,CHFt_CONST_INT(hasLo)
866  ,CHFt_BOX(hiBox)
867  ,CHFt_BOX(nextHiBox)
868  ,CHFt_CONST_INT(hasHi)
869  ,CHFt_BOX(centerBox) );
870 }
871 #endif // GUARDFOURTHINTERPFACES
872 
873 #ifndef GUARDSECONDINTERPFACES
874 #define GUARDSECONDINTERPFACES
875 // Prototype for Fortran procedure SECONDINTERPFACES ...
876 //
877 void FORTRAN_NAME( SECONDINTERPFACES ,secondinterpfaces )(
878  CHFp_FRA(Wface)
879  ,CHFp_CONST_FRA(W)
880  ,CHFp_CONST_INT(numSlopes)
881  ,CHFp_CONST_INT(idir)
882  ,CHFp_BOX(loBox)
883  ,CHFp_CONST_INT(hasLo)
884  ,CHFp_BOX(hiBox)
885  ,CHFp_CONST_INT(hasHi)
886  ,CHFp_BOX(centerBox) );
887 
888 #define FORT_SECONDINTERPFACES FORTRAN_NAME( inlineSECONDINTERPFACES, inlineSECONDINTERPFACES)
889 #define FORTNT_SECONDINTERPFACES FORTRAN_NAME( SECONDINTERPFACES, secondinterpfaces)
890 
891 inline void FORTRAN_NAME(inlineSECONDINTERPFACES, inlineSECONDINTERPFACES)(
892  CHFp_FRA(Wface)
893  ,CHFp_CONST_FRA(W)
894  ,CHFp_CONST_INT(numSlopes)
895  ,CHFp_CONST_INT(idir)
896  ,CHFp_BOX(loBox)
897  ,CHFp_CONST_INT(hasLo)
898  ,CHFp_BOX(hiBox)
899  ,CHFp_CONST_INT(hasHi)
900  ,CHFp_BOX(centerBox) )
901 {
902  CH_TIMELEAF("FORT_SECONDINTERPFACES");
903  FORTRAN_NAME( SECONDINTERPFACES ,secondinterpfaces )(
904  CHFt_FRA(Wface)
905  ,CHFt_CONST_FRA(W)
906  ,CHFt_CONST_INT(numSlopes)
907  ,CHFt_CONST_INT(idir)
908  ,CHFt_BOX(loBox)
909  ,CHFt_CONST_INT(hasLo)
910  ,CHFt_BOX(hiBox)
911  ,CHFt_CONST_INT(hasHi)
912  ,CHFt_BOX(centerBox) );
913 }
914 #endif // GUARDSECONDINTERPFACES
915 
916 #ifndef GUARDPPMFOURTHFACE
917 #define GUARDPPMFOURTHFACE
918 // Prototype for Fortran procedure PPMFOURTHFACE ...
919 //
920 void FORTRAN_NAME( PPMFOURTHFACE ,ppmfourthface )(
921  CHFp_FRA(Wface)
922  ,CHFp_CONST_FRA(W)
923  ,CHFp_CONST_FRA(d2W)
924  ,CHFp_CONST_INT(numSlopes)
925  ,CHFp_CONST_INT(idir)
926  ,CHFp_BOX(loBox)
927  ,CHFp_CONST_INT(hasLo)
928  ,CHFp_BOX(hiBox)
929  ,CHFp_CONST_INT(hasHi)
930  ,CHFp_BOX(centerBox) );
931 
932 #define FORT_PPMFOURTHFACE FORTRAN_NAME( inlinePPMFOURTHFACE, inlinePPMFOURTHFACE)
933 #define FORTNT_PPMFOURTHFACE FORTRAN_NAME( PPMFOURTHFACE, ppmfourthface)
934 
935 inline void FORTRAN_NAME(inlinePPMFOURTHFACE, inlinePPMFOURTHFACE)(
936  CHFp_FRA(Wface)
937  ,CHFp_CONST_FRA(W)
938  ,CHFp_CONST_FRA(d2W)
939  ,CHFp_CONST_INT(numSlopes)
940  ,CHFp_CONST_INT(idir)
941  ,CHFp_BOX(loBox)
942  ,CHFp_CONST_INT(hasLo)
943  ,CHFp_BOX(hiBox)
944  ,CHFp_CONST_INT(hasHi)
945  ,CHFp_BOX(centerBox) )
946 {
947  CH_TIMELEAF("FORT_PPMFOURTHFACE");
948  FORTRAN_NAME( PPMFOURTHFACE ,ppmfourthface )(
949  CHFt_FRA(Wface)
950  ,CHFt_CONST_FRA(W)
951  ,CHFt_CONST_FRA(d2W)
952  ,CHFt_CONST_INT(numSlopes)
953  ,CHFt_CONST_INT(idir)
954  ,CHFt_BOX(loBox)
955  ,CHFt_CONST_INT(hasLo)
956  ,CHFt_BOX(hiBox)
957  ,CHFt_CONST_INT(hasHi)
958  ,CHFt_BOX(centerBox) );
959 }
960 #endif // GUARDPPMFOURTHFACE
961 
962 #ifndef GUARDHODIVCOEF
963 #define GUARDHODIVCOEF
964 // Prototype for Fortran procedure HODIVCOEF ...
965 //
966 void FORTRAN_NAME( HODIVCOEF ,hodivcoef )(
967  CHFp_FRA1(divVel)
968  ,CHFp_CONST_FRA1(csq)
969  ,CHFp_CONST_INT(dir)
970  ,CHFp_CONST_REAL(M0sq)
971  ,CHFp_BOX(loBox)
972  ,CHFp_CONST_INT(hasLo)
973  ,CHFp_BOX(hiBox)
974  ,CHFp_CONST_INT(hasHi)
975  ,CHFp_BOX(centerBox) );
976 
977 #define FORT_HODIVCOEF FORTRAN_NAME( inlineHODIVCOEF, inlineHODIVCOEF)
978 #define FORTNT_HODIVCOEF FORTRAN_NAME( HODIVCOEF, hodivcoef)
979 
980 inline void FORTRAN_NAME(inlineHODIVCOEF, inlineHODIVCOEF)(
981  CHFp_FRA1(divVel)
982  ,CHFp_CONST_FRA1(csq)
983  ,CHFp_CONST_INT(dir)
984  ,CHFp_CONST_REAL(M0sq)
985  ,CHFp_BOX(loBox)
986  ,CHFp_CONST_INT(hasLo)
987  ,CHFp_BOX(hiBox)
988  ,CHFp_CONST_INT(hasHi)
989  ,CHFp_BOX(centerBox) )
990 {
991  CH_TIMELEAF("FORT_HODIVCOEF");
992  FORTRAN_NAME( HODIVCOEF ,hodivcoef )(
993  CHFt_FRA1(divVel)
994  ,CHFt_CONST_FRA1(csq)
995  ,CHFt_CONST_INT(dir)
996  ,CHFt_CONST_REAL(M0sq)
997  ,CHFt_BOX(loBox)
998  ,CHFt_CONST_INT(hasLo)
999  ,CHFt_BOX(hiBox)
1000  ,CHFt_CONST_INT(hasHi)
1001  ,CHFt_BOX(centerBox) );
1002 }
1003 #endif // GUARDHODIVCOEF
1004 
1005 #ifndef GUARDHIGHORDERDIVCO
1006 #define GUARDHIGHORDERDIVCO
1007 // Prototype for Fortran procedure HIGHORDERDIVCO ...
1008 //
1009 void FORTRAN_NAME( HIGHORDERDIVCO ,highorderdivco )(
1010  CHFp_FRA1(divVel)
1011  ,CHFp_CONST_FRA1(csq)
1012  ,CHFp_CONST_INT(idir)
1013  ,CHFp_CONST_REAL(M0sq)
1014  ,CHFp_BOX(loBox)
1015  ,CHFp_CONST_INT(hasLo)
1016  ,CHFp_BOX(hiBox)
1017  ,CHFp_CONST_INT(hasHi)
1018  ,CHFp_BOX(centerBox) );
1019 
1020 #define FORT_HIGHORDERDIVCO FORTRAN_NAME( inlineHIGHORDERDIVCO, inlineHIGHORDERDIVCO)
1021 #define FORTNT_HIGHORDERDIVCO FORTRAN_NAME( HIGHORDERDIVCO, highorderdivco)
1022 
1023 inline void FORTRAN_NAME(inlineHIGHORDERDIVCO, inlineHIGHORDERDIVCO)(
1024  CHFp_FRA1(divVel)
1025  ,CHFp_CONST_FRA1(csq)
1026  ,CHFp_CONST_INT(idir)
1027  ,CHFp_CONST_REAL(M0sq)
1028  ,CHFp_BOX(loBox)
1029  ,CHFp_CONST_INT(hasLo)
1030  ,CHFp_BOX(hiBox)
1031  ,CHFp_CONST_INT(hasHi)
1032  ,CHFp_BOX(centerBox) )
1033 {
1034  CH_TIMELEAF("FORT_HIGHORDERDIVCO");
1035  FORTRAN_NAME( HIGHORDERDIVCO ,highorderdivco )(
1036  CHFt_FRA1(divVel)
1037  ,CHFt_CONST_FRA1(csq)
1038  ,CHFt_CONST_INT(idir)
1039  ,CHFt_CONST_REAL(M0sq)
1040  ,CHFt_BOX(loBox)
1041  ,CHFt_CONST_INT(hasLo)
1042  ,CHFt_BOX(hiBox)
1043  ,CHFt_CONST_INT(hasHi)
1044  ,CHFt_BOX(centerBox) );
1045 }
1046 #endif // GUARDHIGHORDERDIVCO
1047 
1048 #ifndef GUARDCHECKCUBICLIMITERF
1049 #define GUARDCHECKCUBICLIMITERF
1050 // Prototype for Fortran procedure CHECKCUBICLIMITERF ...
1051 //
1052 void FORTRAN_NAME( CHECKCUBICLIMITERF ,checkcubiclimiterf )(
1053  CHFp_FRA(dWMinus)
1054  ,CHFp_FRA(dWPlus)
1055  ,CHFp_CONST_FRA(W)
1056  ,CHFp_CONST_FRA(d2W)
1057  ,CHFp_CONST_FRA(dW2fcf)
1058  ,CHFp_CONST_INT(numSlopes)
1059  ,CHFp_CONST_INT(idir)
1060  ,CHFp_BOX(loBox)
1061  ,CHFp_BOX(nextLoBox)
1062  ,CHFp_CONST_INT(hasLo)
1063  ,CHFp_BOX(hiBox)
1064  ,CHFp_BOX(nextHiBox)
1065  ,CHFp_CONST_INT(hasHi)
1066  ,CHFp_BOX(innerCenterBox)
1067  ,CHFp_CONST_REAL(limitC)
1068  ,CHFp_CONST_REAL(C3)
1069  ,CHFp_CONST_REAL(eps) );
1070 
1071 #define FORT_CHECKCUBICLIMITERF FORTRAN_NAME( inlineCHECKCUBICLIMITERF, inlineCHECKCUBICLIMITERF)
1072 #define FORTNT_CHECKCUBICLIMITERF FORTRAN_NAME( CHECKCUBICLIMITERF, checkcubiclimiterf)
1073 
1074 inline void FORTRAN_NAME(inlineCHECKCUBICLIMITERF, inlineCHECKCUBICLIMITERF)(
1075  CHFp_FRA(dWMinus)
1076  ,CHFp_FRA(dWPlus)
1077  ,CHFp_CONST_FRA(W)
1078  ,CHFp_CONST_FRA(d2W)
1079  ,CHFp_CONST_FRA(dW2fcf)
1080  ,CHFp_CONST_INT(numSlopes)
1081  ,CHFp_CONST_INT(idir)
1082  ,CHFp_BOX(loBox)
1083  ,CHFp_BOX(nextLoBox)
1084  ,CHFp_CONST_INT(hasLo)
1085  ,CHFp_BOX(hiBox)
1086  ,CHFp_BOX(nextHiBox)
1087  ,CHFp_CONST_INT(hasHi)
1088  ,CHFp_BOX(innerCenterBox)
1089  ,CHFp_CONST_REAL(limitC)
1090  ,CHFp_CONST_REAL(C3)
1091  ,CHFp_CONST_REAL(eps) )
1092 {
1093  CH_TIMELEAF("FORT_CHECKCUBICLIMITERF");
1094  FORTRAN_NAME( CHECKCUBICLIMITERF ,checkcubiclimiterf )(
1095  CHFt_FRA(dWMinus)
1096  ,CHFt_FRA(dWPlus)
1097  ,CHFt_CONST_FRA(W)
1098  ,CHFt_CONST_FRA(d2W)
1099  ,CHFt_CONST_FRA(dW2fcf)
1100  ,CHFt_CONST_INT(numSlopes)
1101  ,CHFt_CONST_INT(idir)
1102  ,CHFt_BOX(loBox)
1103  ,CHFt_BOX(nextLoBox)
1104  ,CHFt_CONST_INT(hasLo)
1105  ,CHFt_BOX(hiBox)
1106  ,CHFt_BOX(nextHiBox)
1107  ,CHFt_CONST_INT(hasHi)
1108  ,CHFt_BOX(innerCenterBox)
1109  ,CHFt_CONST_REAL(limitC)
1110  ,CHFt_CONST_REAL(C3)
1111  ,CHFt_CONST_REAL(eps) );
1112 }
1113 #endif // GUARDCHECKCUBICLIMITERF
1114 
1115 }
1116 
1117 #endif
#define CHFt_CONST_INT(i)
Definition: FORT_PROTO.H:989
#define CHFp_FRA1(a)
Definition: FORT_PROTO.H:913
void FORTRAN_NAME(MINFLATF, minflatf)(CHFp_FRA1(flattening)
#define CHFt_FRA(a)
Definition: FORT_PROTO.H:1053
void CHFp_CONST_INT(idir)
Definition: EBInterface.H:45
#define CHFt_CONST_FRA(a)
Definition: FORT_PROTO.H:1095
#define CHFt_FRA1(a)
Definition: FORT_PROTO.H:1136
void CHFp_CONST_REAL(smallp)
#define CHFt_CONST_FRA1(a)
Definition: FORT_PROTO.H:1188
#define CHFt_BOX(b)
Definition: FORT_PROTO.H:1026
void CHFp_CONST_FRA1(delta1p)
#define CH_TIMELEAF(name)
Definition: CH_Timer.H:100
void CHFp_FRA(deltaWL)
void CHFp_CONST_FRA(zetaDir)
#define CHFt_CONST_REAL(r)
Definition: FORT_PROTO.H:991
void CHFp_BOX(box))
Definition: GodunovUtilitiesF_F.H:28