Chombo + EB + MF  3.2
ViscousTensorOpF_F.H
Go to the documentation of this file.
1 #ifndef _VISCOUSTENSOROPF_F_H_
2 #define _VISCOUSTENSOROPF_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 GUARDEXTRAPTOGHOSTVEL
12 #define GUARDEXTRAPTOGHOSTVEL
13 // Prototype for Fortran procedure extraptoghostvel ...
14 //
15 void FORTRAN_NAME( EXTRAPTOGHOSTVEL ,extraptoghostvel )(
16  CHFp_FRA(vel)
17  ,CHFp_BOX(lobox)
18  ,CHFp_CONST_INT(haslo)
19  ,CHFp_BOX(hibox)
20  ,CHFp_CONST_INT(hashi)
21  ,CHFp_CONST_INT(facedir)
22  ,CHFp_CONST_INT(ncomp) );
23 
24 #define FORT_EXTRAPTOGHOSTVEL FORTRAN_NAME( inlineEXTRAPTOGHOSTVEL, inlineEXTRAPTOGHOSTVEL)
25 #define FORTNT_EXTRAPTOGHOSTVEL FORTRAN_NAME( EXTRAPTOGHOSTVEL, extraptoghostvel)
26 
27 inline void FORTRAN_NAME(inlineEXTRAPTOGHOSTVEL, inlineEXTRAPTOGHOSTVEL)(
28  CHFp_FRA(vel)
29  ,CHFp_BOX(lobox)
30  ,CHFp_CONST_INT(haslo)
31  ,CHFp_BOX(hibox)
32  ,CHFp_CONST_INT(hashi)
33  ,CHFp_CONST_INT(facedir)
34  ,CHFp_CONST_INT(ncomp) )
35 {
36  CH_TIMELEAF("FORT_EXTRAPTOGHOSTVEL");
37  FORTRAN_NAME( EXTRAPTOGHOSTVEL ,extraptoghostvel )(
38  CHFt_FRA(vel)
39  ,CHFt_BOX(lobox)
40  ,CHFt_CONST_INT(haslo)
41  ,CHFt_BOX(hibox)
42  ,CHFt_CONST_INT(hashi)
43  ,CHFt_CONST_INT(facedir)
44  ,CHFt_CONST_INT(ncomp) );
45 }
46 #endif // GUARDEXTRAPTOGHOSTVEL
47 
48 #ifndef GUARDAPPLYOPVTOPNOBCS
49 #define GUARDAPPLYOPVTOPNOBCS
50 // Prototype for Fortran procedure applyopvtopnobcs ...
51 //
52 void FORTRAN_NAME( APPLYOPVTOPNOBCS ,applyopvtopnobcs )(
53  CHFp_FRA(lphfab)
54  ,CHFp_CONST_FRA(phifab)
55  ,CHFp_CONST_FRA1(acofab)
56  ,CHFp_CONST_FRA1(eta0fab)
57  ,CHFp_CONST_FRA1(eta1fab)
58  ,CHFp_CONST_FRA1(eta2fab)
59  ,CHFp_CONST_FRA1(lam0fab)
60  ,CHFp_CONST_FRA1(lam1fab)
61  ,CHFp_CONST_FRA1(lam2fab)
62  ,CHFp_CONST_REAL(dx)
63  ,CHFp_CONST_REAL(alpha)
64  ,CHFp_CONST_REAL(beta)
65  ,CHFp_BOX(region) );
66 
67 #define FORT_APPLYOPVTOPNOBCS FORTRAN_NAME( inlineAPPLYOPVTOPNOBCS, inlineAPPLYOPVTOPNOBCS)
68 #define FORTNT_APPLYOPVTOPNOBCS FORTRAN_NAME( APPLYOPVTOPNOBCS, applyopvtopnobcs)
69 
70 inline void FORTRAN_NAME(inlineAPPLYOPVTOPNOBCS, inlineAPPLYOPVTOPNOBCS)(
71  CHFp_FRA(lphfab)
72  ,CHFp_CONST_FRA(phifab)
73  ,CHFp_CONST_FRA1(acofab)
74  ,CHFp_CONST_FRA1(eta0fab)
75  ,CHFp_CONST_FRA1(eta1fab)
76  ,CHFp_CONST_FRA1(eta2fab)
77  ,CHFp_CONST_FRA1(lam0fab)
78  ,CHFp_CONST_FRA1(lam1fab)
79  ,CHFp_CONST_FRA1(lam2fab)
80  ,CHFp_CONST_REAL(dx)
81  ,CHFp_CONST_REAL(alpha)
82  ,CHFp_CONST_REAL(beta)
83  ,CHFp_BOX(region) )
84 {
85  CH_TIMELEAF("FORT_APPLYOPVTOPNOBCS");
86  FORTRAN_NAME( APPLYOPVTOPNOBCS ,applyopvtopnobcs )(
87  CHFt_FRA(lphfab)
88  ,CHFt_CONST_FRA(phifab)
89  ,CHFt_CONST_FRA1(acofab)
90  ,CHFt_CONST_FRA1(eta0fab)
91  ,CHFt_CONST_FRA1(eta1fab)
92  ,CHFt_CONST_FRA1(eta2fab)
93  ,CHFt_CONST_FRA1(lam0fab)
94  ,CHFt_CONST_FRA1(lam1fab)
95  ,CHFt_CONST_FRA1(lam2fab)
96  ,CHFt_CONST_REAL(dx)
97  ,CHFt_CONST_REAL(alpha)
98  ,CHFt_CONST_REAL(beta)
99  ,CHFt_BOX(region) );
100 }
101 #endif // GUARDAPPLYOPVTOPNOBCS
102 
103 #ifndef GUARDGETFLUXVTOPNOBCS
104 #define GUARDGETFLUXVTOPNOBCS
105 // Prototype for Fortran procedure getfluxvtopnobcs ...
106 //
107 void FORTRAN_NAME( GETFLUXVTOPNOBCS ,getfluxvtopnobcs )(
108  CHFp_FRA(flux)
109  ,CHFp_CONST_FRA(phifab)
110  ,CHFp_CONST_FRA1(etafab)
111  ,CHFp_CONST_FRA1(lamfab)
112  ,CHFp_CONST_REAL(dx)
113  ,CHFp_CONST_INT(facedir)
114  ,CHFp_CONST_REAL(beta)
115  ,CHFp_BOX(facebox) );
116 
117 #define FORT_GETFLUXVTOPNOBCS FORTRAN_NAME( inlineGETFLUXVTOPNOBCS, inlineGETFLUXVTOPNOBCS)
118 #define FORTNT_GETFLUXVTOPNOBCS FORTRAN_NAME( GETFLUXVTOPNOBCS, getfluxvtopnobcs)
119 
120 inline void FORTRAN_NAME(inlineGETFLUXVTOPNOBCS, inlineGETFLUXVTOPNOBCS)(
121  CHFp_FRA(flux)
122  ,CHFp_CONST_FRA(phifab)
123  ,CHFp_CONST_FRA1(etafab)
124  ,CHFp_CONST_FRA1(lamfab)
125  ,CHFp_CONST_REAL(dx)
126  ,CHFp_CONST_INT(facedir)
127  ,CHFp_CONST_REAL(beta)
128  ,CHFp_BOX(facebox) )
129 {
130  CH_TIMELEAF("FORT_GETFLUXVTOPNOBCS");
131  FORTRAN_NAME( GETFLUXVTOPNOBCS ,getfluxvtopnobcs )(
132  CHFt_FRA(flux)
133  ,CHFt_CONST_FRA(phifab)
134  ,CHFt_CONST_FRA1(etafab)
135  ,CHFt_CONST_FRA1(lamfab)
136  ,CHFt_CONST_REAL(dx)
137  ,CHFt_CONST_INT(facedir)
138  ,CHFt_CONST_REAL(beta)
139  ,CHFt_BOX(facebox) );
140 }
141 #endif // GUARDGETFLUXVTOPNOBCS
142 
143 #ifndef GUARDPROLONGVTOP
144 #define GUARDPROLONGVTOP
145 // Prototype for Fortran procedure prolongvtop ...
146 //
147 void FORTRAN_NAME( PROLONGVTOP ,prolongvtop )(
148  CHFp_FRA(phi)
149  ,CHFp_CONST_FRA(coarse)
150  ,CHFp_BOX(region)
151  ,CHFp_CONST_INT(m) );
152 
153 #define FORT_PROLONGVTOP FORTRAN_NAME( inlinePROLONGVTOP, inlinePROLONGVTOP)
154 #define FORTNT_PROLONGVTOP FORTRAN_NAME( PROLONGVTOP, prolongvtop)
155 
156 inline void FORTRAN_NAME(inlinePROLONGVTOP, inlinePROLONGVTOP)(
157  CHFp_FRA(phi)
158  ,CHFp_CONST_FRA(coarse)
159  ,CHFp_BOX(region)
161 {
162  CH_TIMELEAF("FORT_PROLONGVTOP");
163  FORTRAN_NAME( PROLONGVTOP ,prolongvtop )(
164  CHFt_FRA(phi)
165  ,CHFt_CONST_FRA(coarse)
166  ,CHFt_BOX(region)
167  ,CHFt_CONST_INT(m) );
168 }
169 #endif // GUARDPROLONGVTOP
170 
171 #ifndef GUARDRESTRICTRESVTOP
172 #define GUARDRESTRICTRESVTOP
173 // Prototype for Fortran procedure restrictresvtop ...
174 //
175 void FORTRAN_NAME( RESTRICTRESVTOP ,restrictresvtop )(
176  CHFp_FRA(res)
177  ,CHFp_CONST_FRA(resfine)
178  ,CHFp_BOX(region)
179  ,CHFp_CONST_INT(ncomp) );
180 
181 #define FORT_RESTRICTRESVTOP FORTRAN_NAME( inlineRESTRICTRESVTOP, inlineRESTRICTRESVTOP)
182 #define FORTNT_RESTRICTRESVTOP FORTRAN_NAME( RESTRICTRESVTOP, restrictresvtop)
183 
184 inline void FORTRAN_NAME(inlineRESTRICTRESVTOP, inlineRESTRICTRESVTOP)(
185  CHFp_FRA(res)
186  ,CHFp_CONST_FRA(resfine)
187  ,CHFp_BOX(region)
188  ,CHFp_CONST_INT(ncomp) )
189 {
190  CH_TIMELEAF("FORT_RESTRICTRESVTOP");
191  FORTRAN_NAME( RESTRICTRESVTOP ,restrictresvtop )(
192  CHFt_FRA(res)
193  ,CHFt_CONST_FRA(resfine)
194  ,CHFt_BOX(region)
195  ,CHFt_CONST_INT(ncomp) );
196 }
197 #endif // GUARDRESTRICTRESVTOP
198 
199 #ifndef GUARDCELLGRADVTOP
200 #define GUARDCELLGRADVTOP
201 // Prototype for Fortran procedure cellgradvtop ...
202 //
203 void FORTRAN_NAME( CELLGRADVTOP ,cellgradvtop )(
204  CHFp_FRA1(grad)
205  ,CHFp_CONST_FRA1(vel)
206  ,CHFp_BOX(grid)
207  ,CHFp_CONST_REAL(dx)
208  ,CHFp_CONST_INT(divdir) );
209 
210 #define FORT_CELLGRADVTOP FORTRAN_NAME( inlineCELLGRADVTOP, inlineCELLGRADVTOP)
211 #define FORTNT_CELLGRADVTOP FORTRAN_NAME( CELLGRADVTOP, cellgradvtop)
212 
213 inline void FORTRAN_NAME(inlineCELLGRADVTOP, inlineCELLGRADVTOP)(
214  CHFp_FRA1(grad)
215  ,CHFp_CONST_FRA1(vel)
216  ,CHFp_BOX(grid)
217  ,CHFp_CONST_REAL(dx)
218  ,CHFp_CONST_INT(divdir) )
219 {
220  CH_TIMELEAF("FORT_CELLGRADVTOP");
221  FORTRAN_NAME( CELLGRADVTOP ,cellgradvtop )(
222  CHFt_FRA1(grad)
223  ,CHFt_CONST_FRA1(vel)
224  ,CHFt_BOX(grid)
225  ,CHFt_CONST_REAL(dx)
226  ,CHFt_CONST_INT(divdir) );
227 }
228 #endif // GUARDCELLGRADVTOP
229 
230 #ifndef GUARDADDGRADTOFLUXVTOP
231 #define GUARDADDGRADTOFLUXVTOP
232 // Prototype for Fortran procedure addgradtofluxvtop ...
233 //
234 void FORTRAN_NAME( ADDGRADTOFLUXVTOP ,addgradtofluxvtop )(
235  CHFp_FRA(flux)
236  ,CHFp_CONST_FRA1(eta)
237  ,CHFp_CONST_INT(fluxcomp)
238  ,CHFp_CONST_FRA(grad)
239  ,CHFp_CONST_INT(gradcomp)
240  ,CHFp_CONST_INT(gradtran)
241  ,CHFp_BOX(regionface) );
242 
243 #define FORT_ADDGRADTOFLUXVTOP FORTRAN_NAME( inlineADDGRADTOFLUXVTOP, inlineADDGRADTOFLUXVTOP)
244 #define FORTNT_ADDGRADTOFLUXVTOP FORTRAN_NAME( ADDGRADTOFLUXVTOP, addgradtofluxvtop)
245 
246 inline void FORTRAN_NAME(inlineADDGRADTOFLUXVTOP, inlineADDGRADTOFLUXVTOP)(
247  CHFp_FRA(flux)
248  ,CHFp_CONST_FRA1(eta)
249  ,CHFp_CONST_INT(fluxcomp)
250  ,CHFp_CONST_FRA(grad)
251  ,CHFp_CONST_INT(gradcomp)
252  ,CHFp_CONST_INT(gradtran)
253  ,CHFp_BOX(regionface) )
254 {
255  CH_TIMELEAF("FORT_ADDGRADTOFLUXVTOP");
256  FORTRAN_NAME( ADDGRADTOFLUXVTOP ,addgradtofluxvtop )(
257  CHFt_FRA(flux)
258  ,CHFt_CONST_FRA1(eta)
259  ,CHFt_CONST_INT(fluxcomp)
260  ,CHFt_CONST_FRA(grad)
261  ,CHFt_CONST_INT(gradcomp)
262  ,CHFt_CONST_INT(gradtran)
263  ,CHFt_BOX(regionface) );
264 }
265 #endif // GUARDADDGRADTOFLUXVTOP
266 
267 #ifndef GUARDGETFACEGRADVTOP
268 #define GUARDGETFACEGRADVTOP
269 // Prototype for Fortran procedure getfacegradvtop ...
270 //
271 void FORTRAN_NAME( GETFACEGRADVTOP ,getfacegradvtop )(
272  CHFp_FRA1(gradvelface)
273  ,CHFp_CONST_FRA1(gradvelcell)
274  ,CHFp_CONST_FRA1(velcomp)
275  ,CHFp_BOX(region)
276  ,CHFp_BOX(centerbox)
277  ,CHFp_BOX(lobox)
278  ,CHFp_CONST_INT(haslo)
279  ,CHFp_BOX(hibox)
280  ,CHFp_CONST_INT(hashi)
281  ,CHFp_CONST_REAL(dx)
282  ,CHFp_CONST_INT(facedir)
283  ,CHFp_CONST_INT(divdir) );
284 
285 #define FORT_GETFACEGRADVTOP FORTRAN_NAME( inlineGETFACEGRADVTOP, inlineGETFACEGRADVTOP)
286 #define FORTNT_GETFACEGRADVTOP FORTRAN_NAME( GETFACEGRADVTOP, getfacegradvtop)
287 
288 inline void FORTRAN_NAME(inlineGETFACEGRADVTOP, inlineGETFACEGRADVTOP)(
289  CHFp_FRA1(gradvelface)
290  ,CHFp_CONST_FRA1(gradvelcell)
291  ,CHFp_CONST_FRA1(velcomp)
292  ,CHFp_BOX(region)
293  ,CHFp_BOX(centerbox)
294  ,CHFp_BOX(lobox)
295  ,CHFp_CONST_INT(haslo)
296  ,CHFp_BOX(hibox)
297  ,CHFp_CONST_INT(hashi)
298  ,CHFp_CONST_REAL(dx)
299  ,CHFp_CONST_INT(facedir)
300  ,CHFp_CONST_INT(divdir) )
301 {
302  CH_TIMELEAF("FORT_GETFACEGRADVTOP");
303  FORTRAN_NAME( GETFACEGRADVTOP ,getfacegradvtop )(
304  CHFt_FRA1(gradvelface)
305  ,CHFt_CONST_FRA1(gradvelcell)
306  ,CHFt_CONST_FRA1(velcomp)
307  ,CHFt_BOX(region)
308  ,CHFt_BOX(centerbox)
309  ,CHFt_BOX(lobox)
310  ,CHFt_CONST_INT(haslo)
311  ,CHFt_BOX(hibox)
312  ,CHFt_CONST_INT(hashi)
313  ,CHFt_CONST_REAL(dx)
314  ,CHFt_CONST_INT(facedir)
315  ,CHFt_CONST_INT(divdir) );
316 }
317 #endif // GUARDGETFACEGRADVTOP
318 
319 #ifndef GUARDCELLDIVINCRVTOP
320 #define GUARDCELLDIVINCRVTOP
321 // Prototype for Fortran procedure celldivincrvtop ...
322 //
323 void FORTRAN_NAME( CELLDIVINCRVTOP ,celldivincrvtop )(
324  CHFp_FRA1(divvel)
325  ,CHFp_CONST_FRA(vel)
326  ,CHFp_CONST_REAL(dx)
327  ,CHFp_CONST_INT(divdir)
328  ,CHFp_BOX(region) );
329 
330 #define FORT_CELLDIVINCRVTOP FORTRAN_NAME( inlineCELLDIVINCRVTOP, inlineCELLDIVINCRVTOP)
331 #define FORTNT_CELLDIVINCRVTOP FORTRAN_NAME( CELLDIVINCRVTOP, celldivincrvtop)
332 
333 inline void FORTRAN_NAME(inlineCELLDIVINCRVTOP, inlineCELLDIVINCRVTOP)(
334  CHFp_FRA1(divvel)
335  ,CHFp_CONST_FRA(vel)
336  ,CHFp_CONST_REAL(dx)
337  ,CHFp_CONST_INT(divdir)
338  ,CHFp_BOX(region) )
339 {
340  CH_TIMELEAF("FORT_CELLDIVINCRVTOP");
341  FORTRAN_NAME( CELLDIVINCRVTOP ,celldivincrvtop )(
342  CHFt_FRA1(divvel)
343  ,CHFt_CONST_FRA(vel)
344  ,CHFt_CONST_REAL(dx)
345  ,CHFt_CONST_INT(divdir)
346  ,CHFt_BOX(region) );
347 }
348 #endif // GUARDCELLDIVINCRVTOP
349 
350 #ifndef GUARDFACEDIVINCRVTOP
351 #define GUARDFACEDIVINCRVTOP
352 // Prototype for Fortran procedure facedivincrvtop ...
353 //
354 void FORTRAN_NAME( FACEDIVINCRVTOP ,facedivincrvtop )(
355  CHFp_FRA1(divvel)
356  ,CHFp_CONST_FRA(vel)
357  ,CHFp_CONST_FRA(gradvel)
358  ,CHFp_BOX(region)
359  ,CHFp_BOX(centerbox)
360  ,CHFp_BOX(lobox)
361  ,CHFp_CONST_INT(haslo)
362  ,CHFp_BOX(hibox)
363  ,CHFp_CONST_INT(hashi)
364  ,CHFp_CONST_REAL(dx)
365  ,CHFp_CONST_INT(facedir)
366  ,CHFp_CONST_INT(divdir)
367  ,CHFp_CONST_INT(gradcomp) );
368 
369 #define FORT_FACEDIVINCRVTOP FORTRAN_NAME( inlineFACEDIVINCRVTOP, inlineFACEDIVINCRVTOP)
370 #define FORTNT_FACEDIVINCRVTOP FORTRAN_NAME( FACEDIVINCRVTOP, facedivincrvtop)
371 
372 inline void FORTRAN_NAME(inlineFACEDIVINCRVTOP, inlineFACEDIVINCRVTOP)(
373  CHFp_FRA1(divvel)
374  ,CHFp_CONST_FRA(vel)
375  ,CHFp_CONST_FRA(gradvel)
376  ,CHFp_BOX(region)
377  ,CHFp_BOX(centerbox)
378  ,CHFp_BOX(lobox)
379  ,CHFp_CONST_INT(haslo)
380  ,CHFp_BOX(hibox)
381  ,CHFp_CONST_INT(hashi)
382  ,CHFp_CONST_REAL(dx)
383  ,CHFp_CONST_INT(facedir)
384  ,CHFp_CONST_INT(divdir)
385  ,CHFp_CONST_INT(gradcomp) )
386 {
387  CH_TIMELEAF("FORT_FACEDIVINCRVTOP");
388  FORTRAN_NAME( FACEDIVINCRVTOP ,facedivincrvtop )(
389  CHFt_FRA1(divvel)
390  ,CHFt_CONST_FRA(vel)
391  ,CHFt_CONST_FRA(gradvel)
392  ,CHFt_BOX(region)
393  ,CHFt_BOX(centerbox)
394  ,CHFt_BOX(lobox)
395  ,CHFt_CONST_INT(haslo)
396  ,CHFt_BOX(hibox)
397  ,CHFt_CONST_INT(hashi)
398  ,CHFt_CONST_REAL(dx)
399  ,CHFt_CONST_INT(facedir)
400  ,CHFt_CONST_INT(divdir)
401  ,CHFt_CONST_INT(gradcomp) );
402 }
403 #endif // GUARDFACEDIVINCRVTOP
404 
405 #ifndef GUARDDECRINVRELCOEFVTOP
406 #define GUARDDECRINVRELCOEFVTOP
407 // Prototype for Fortran procedure decrinvrelcoefvtop ...
408 //
409 void FORTRAN_NAME( DECRINVRELCOEFVTOP ,decrinvrelcoefvtop )(
410  CHFp_FRA(relcoef)
411  ,CHFp_FRA(eta)
412  ,CHFp_FRA(lambda)
413  ,CHFp_CONST_REAL(beta)
414  ,CHFp_BOX(box)
415  ,CHFp_REAL(dx)
416  ,CHFp_INT(idir)
417  ,CHFp_INT(ncomp) );
418 
419 #define FORT_DECRINVRELCOEFVTOP FORTRAN_NAME( inlineDECRINVRELCOEFVTOP, inlineDECRINVRELCOEFVTOP)
420 #define FORTNT_DECRINVRELCOEFVTOP FORTRAN_NAME( DECRINVRELCOEFVTOP, decrinvrelcoefvtop)
421 
422 inline void FORTRAN_NAME(inlineDECRINVRELCOEFVTOP, inlineDECRINVRELCOEFVTOP)(
423  CHFp_FRA(relcoef)
424  ,CHFp_FRA(eta)
425  ,CHFp_FRA(lambda)
426  ,CHFp_CONST_REAL(beta)
427  ,CHFp_BOX(box)
428  ,CHFp_REAL(dx)
429  ,CHFp_INT(idir)
430  ,CHFp_INT(ncomp) )
431 {
432  CH_TIMELEAF("FORT_DECRINVRELCOEFVTOP");
433  FORTRAN_NAME( DECRINVRELCOEFVTOP ,decrinvrelcoefvtop )(
434  CHFt_FRA(relcoef)
435  ,CHFt_FRA(eta)
436  ,CHFt_FRA(lambda)
437  ,CHFt_CONST_REAL(beta)
438  ,CHFt_BOX(box)
439  ,CHFt_REAL(dx)
440  ,CHFt_INT(idir)
441  ,CHFt_INT(ncomp) );
442 }
443 #endif // GUARDDECRINVRELCOEFVTOP
444 
445 #ifndef GUARDINITIALIZERELAXCOEF
446 #define GUARDINITIALIZERELAXCOEF
447 // Prototype for Fortran procedure initializerelaxcoef ...
448 //
449 void FORTRAN_NAME( INITIALIZERELAXCOEF ,initializerelaxcoef )(
450  CHFp_FRA(relcoef)
451  ,CHFp_FRA1(acoef)
452  ,CHFp_REAL(alpha)
453  ,CHFp_BOX(box)
454  ,CHFp_INT(ncomp) );
455 
456 #define FORT_INITIALIZERELAXCOEF FORTRAN_NAME( inlineINITIALIZERELAXCOEF, inlineINITIALIZERELAXCOEF)
457 #define FORTNT_INITIALIZERELAXCOEF FORTRAN_NAME( INITIALIZERELAXCOEF, initializerelaxcoef)
458 
459 inline void FORTRAN_NAME(inlineINITIALIZERELAXCOEF, inlineINITIALIZERELAXCOEF)(
460  CHFp_FRA(relcoef)
461  ,CHFp_FRA1(acoef)
462  ,CHFp_REAL(alpha)
463  ,CHFp_BOX(box)
464  ,CHFp_INT(ncomp) )
465 {
466  CH_TIMELEAF("FORT_INITIALIZERELAXCOEF");
467  FORTRAN_NAME( INITIALIZERELAXCOEF ,initializerelaxcoef )(
468  CHFt_FRA(relcoef)
469  ,CHFt_FRA1(acoef)
470  ,CHFt_REAL(alpha)
471  ,CHFt_BOX(box)
472  ,CHFt_INT(ncomp) );
473 }
474 #endif // GUARDINITIALIZERELAXCOEF
475 
476 #ifndef GUARDINVERTLAMBDAVTOP
477 #define GUARDINVERTLAMBDAVTOP
478 // Prototype for Fortran procedure invertlambdavtop ...
479 //
480 void FORTRAN_NAME( INVERTLAMBDAVTOP ,invertlambdavtop )(
481  CHFp_FRA(lambda)
482  ,CHFp_REAL(safety)
483  ,CHFp_BOX(box)
484  ,CHFp_INT(ncomp) );
485 
486 #define FORT_INVERTLAMBDAVTOP FORTRAN_NAME( inlineINVERTLAMBDAVTOP, inlineINVERTLAMBDAVTOP)
487 #define FORTNT_INVERTLAMBDAVTOP FORTRAN_NAME( INVERTLAMBDAVTOP, invertlambdavtop)
488 
489 inline void FORTRAN_NAME(inlineINVERTLAMBDAVTOP, inlineINVERTLAMBDAVTOP)(
490  CHFp_FRA(lambda)
491  ,CHFp_REAL(safety)
492  ,CHFp_BOX(box)
493  ,CHFp_INT(ncomp) )
494 {
495  CH_TIMELEAF("FORT_INVERTLAMBDAVTOP");
496  FORTRAN_NAME( INVERTLAMBDAVTOP ,invertlambdavtop )(
497  CHFt_FRA(lambda)
498  ,CHFt_REAL(safety)
499  ,CHFt_BOX(box)
500  ,CHFt_INT(ncomp) );
501 }
502 #endif // GUARDINVERTLAMBDAVTOP
503 
504 #ifndef GUARDGSRBVTOP
505 #define GUARDGSRBVTOP
506 // Prototype for Fortran procedure gsrbvtop ...
507 //
508 void FORTRAN_NAME( GSRBVTOP ,gsrbvtop )(
509  CHFp_FRA(phi)
510  ,CHFp_CONST_FRA(lphi)
511  ,CHFp_CONST_FRA(rhs)
512  ,CHFp_CONST_FRA(lambda)
513  ,CHFp_BOX(coloredbox)
514  ,CHFp_INT(ncomp) );
515 
516 #define FORT_GSRBVTOP FORTRAN_NAME( inlineGSRBVTOP, inlineGSRBVTOP)
517 #define FORTNT_GSRBVTOP FORTRAN_NAME( GSRBVTOP, gsrbvtop)
518 
519 inline void FORTRAN_NAME(inlineGSRBVTOP, inlineGSRBVTOP)(
520  CHFp_FRA(phi)
521  ,CHFp_CONST_FRA(lphi)
522  ,CHFp_CONST_FRA(rhs)
523  ,CHFp_CONST_FRA(lambda)
524  ,CHFp_BOX(coloredbox)
525  ,CHFp_INT(ncomp) )
526 {
527  CH_TIMELEAF("FORT_GSRBVTOP");
528  FORTRAN_NAME( GSRBVTOP ,gsrbvtop )(
529  CHFt_FRA(phi)
530  ,CHFt_CONST_FRA(lphi)
531  ,CHFt_CONST_FRA(rhs)
532  ,CHFt_CONST_FRA(lambda)
533  ,CHFt_BOX(coloredbox)
534  ,CHFt_INT(ncomp) );
535 }
536 #endif // GUARDGSRBVTOP
537 
538 #ifndef GUARDADDDIVFLUXDIRVTOP
539 #define GUARDADDDIVFLUXDIRVTOP
540 // Prototype for Fortran procedure adddivfluxdirvtop ...
541 //
542 void FORTRAN_NAME( ADDDIVFLUXDIRVTOP ,adddivfluxdirvtop )(
543  CHFp_FRA(lhs)
544  ,CHFp_CONST_FRA(flux)
545  ,CHFp_BOX(region)
546  ,CHFp_CONST_REAL(dx)
547  ,CHFp_CONST_INT(ncomp)
548  ,CHFp_CONST_INT(facedir) );
549 
550 #define FORT_ADDDIVFLUXDIRVTOP FORTRAN_NAME( inlineADDDIVFLUXDIRVTOP, inlineADDDIVFLUXDIRVTOP)
551 #define FORTNT_ADDDIVFLUXDIRVTOP FORTRAN_NAME( ADDDIVFLUXDIRVTOP, adddivfluxdirvtop)
552 
553 inline void FORTRAN_NAME(inlineADDDIVFLUXDIRVTOP, inlineADDDIVFLUXDIRVTOP)(
554  CHFp_FRA(lhs)
555  ,CHFp_CONST_FRA(flux)
556  ,CHFp_BOX(region)
557  ,CHFp_CONST_REAL(dx)
558  ,CHFp_CONST_INT(ncomp)
559  ,CHFp_CONST_INT(facedir) )
560 {
561  CH_TIMELEAF("FORT_ADDDIVFLUXDIRVTOP");
562  FORTRAN_NAME( ADDDIVFLUXDIRVTOP ,adddivfluxdirvtop )(
563  CHFt_FRA(lhs)
564  ,CHFt_CONST_FRA(flux)
565  ,CHFt_BOX(region)
566  ,CHFt_CONST_REAL(dx)
567  ,CHFt_CONST_INT(ncomp)
568  ,CHFt_CONST_INT(facedir) );
569 }
570 #endif // GUARDADDDIVFLUXDIRVTOP
571 
572 #ifndef GUARDLINEAREXTRAPVTOP
573 #define GUARDLINEAREXTRAPVTOP
574 // Prototype for Fortran procedure linearextrapvtop ...
575 //
576 void FORTRAN_NAME( LINEAREXTRAPVTOP ,linearextrapvtop )(
577  CHFp_FRA(phi)
578  ,CHFp_BOX(ghostBox)
579  ,CHFp_INT(dir)
580  ,CHFp_INT(hiLo) );
581 
582 #define FORT_LINEAREXTRAPVTOP FORTRAN_NAME( inlineLINEAREXTRAPVTOP, inlineLINEAREXTRAPVTOP)
583 #define FORTNT_LINEAREXTRAPVTOP FORTRAN_NAME( LINEAREXTRAPVTOP, linearextrapvtop)
584 
585 inline void FORTRAN_NAME(inlineLINEAREXTRAPVTOP, inlineLINEAREXTRAPVTOP)(
586  CHFp_FRA(phi)
587  ,CHFp_BOX(ghostBox)
588  ,CHFp_INT(dir)
589  ,CHFp_INT(hiLo) )
590 {
591  CH_TIMELEAF("FORT_LINEAREXTRAPVTOP");
592  FORTRAN_NAME( LINEAREXTRAPVTOP ,linearextrapvtop )(
593  CHFt_FRA(phi)
594  ,CHFt_BOX(ghostBox)
595  ,CHFt_INT(dir)
596  ,CHFt_INT(hiLo) );
597 }
598 #endif // GUARDLINEAREXTRAPVTOP
599 
600 #ifndef GUARDSLOPESVTOP
601 #define GUARDSLOPESVTOP
602 // Prototype for Fortran procedure SLOPESVTOP ...
603 //
604 void FORTRAN_NAME( SLOPESVTOP ,slopesvtop )(
605  CHFp_FRA(slopes)
606  ,CHFp_CONST_FRA(coarse)
607  ,CHFp_BOX(cBox)
608  ,CHFp_INT(dir) );
609 
610 #define FORT_SLOPESVTOP FORTRAN_NAME( inlineSLOPESVTOP, inlineSLOPESVTOP)
611 #define FORTNT_SLOPESVTOP FORTRAN_NAME( SLOPESVTOP, slopesvtop)
612 
613 inline void FORTRAN_NAME(inlineSLOPESVTOP, inlineSLOPESVTOP)(
614  CHFp_FRA(slopes)
615  ,CHFp_CONST_FRA(coarse)
616  ,CHFp_BOX(cBox)
617  ,CHFp_INT(dir) )
618 {
619  CH_TIMELEAF("FORT_SLOPESVTOP");
620  FORTRAN_NAME( SLOPESVTOP ,slopesvtop )(
621  CHFt_FRA(slopes)
622  ,CHFt_CONST_FRA(coarse)
623  ,CHFt_BOX(cBox)
624  ,CHFt_INT(dir) );
625 }
626 #endif // GUARDSLOPESVTOP
627 
628 }
629 
630 #endif
void CHFp_FRA(eta)
#define CHFt_CONST_INT(i)
Definition: FORT_PROTO.H:989
void FORTRAN_NAME(EXTRAPTOGHOSTVEL, extraptoghostvel)(CHFp_FRA(vel)
void CHFp_CONST_INT(haslo)
void CHFp_CONST_FRA(phifab)
void CHFp_REAL(dx)
#define CHFt_FRA(a)
Definition: FORT_PROTO.H:1053
#define CHFt_INT(i)
Definition: FORT_PROTO.H:988
Definition: EBInterface.H:45
#define CHFt_CONST_FRA(a)
Definition: FORT_PROTO.H:1095
#define CHFt_FRA1(a)
Definition: FORT_PROTO.H:1136
#define CHFt_CONST_FRA1(a)
Definition: FORT_PROTO.H:1188
void CHFp_FRA1(acoef)
#define CHFt_BOX(b)
Definition: FORT_PROTO.H:1026
void CHFp_CONST_FRA1(acofab)
#define CH_TIMELEAF(name)
Definition: CH_Timer.H:100
void CHFp_CONST_REAL(dx)
#define CHFt_CONST_REAL(r)
Definition: FORT_PROTO.H:991
void CHFp_INT(idir)
#define CHFt_REAL(r)
Definition: FORT_PROTO.H:990
void CHFp_BOX(lobox)