Chombo + EB + MF  3.2
EBViscousTensorOpF_F.H
Go to the documentation of this file.
1 #ifndef _EBVISCOUSTENSOROPF_F_H_
2 #define _EBVISCOUSTENSOROPF_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 GUARDNWOEBVTOPOINTLPH
12 #define GUARDNWOEBVTOPOINTLPH
13 // Prototype for Fortran procedure nwoebvtopointlph ...
14 //
15 void FORTRAN_NAME( NWOEBVTOPOINTLPH ,nwoebvtopointlph )(
16  CHFp_REALVECT(lphi)
18  ,CHFp_CONST_FRA(phi)
19  ,CHFp_CONST_FRA1(acofab)
20  ,CHFp_CONST_FRA1(eta0fab)
21  ,CHFp_CONST_FRA1(eta1fab)
22  ,CHFp_CONST_FRA1(eta2fab)
23  ,CHFp_CONST_FRA1(lam0fab)
24  ,CHFp_CONST_FRA1(lam1fab)
25  ,CHFp_CONST_FRA1(lam2fab)
26  ,CHFp_CONST_REAL(dx)
27  ,CHFp_CONST_REAL(alpha)
28  ,CHFp_CONST_REAL(beta) );
29 
30 #define FORT_NWOEBVTOPOINTLPH FORTRAN_NAME( inlineNWOEBVTOPOINTLPH, inlineNWOEBVTOPOINTLPH)
31 #define FORTNT_NWOEBVTOPOINTLPH FORTRAN_NAME( NWOEBVTOPOINTLPH, nwoebvtopointlph)
32 
33 inline void FORTRAN_NAME(inlineNWOEBVTOPOINTLPH, inlineNWOEBVTOPOINTLPH)(
34  CHFp_REALVECT(lphi)
36  ,CHFp_CONST_FRA(phi)
37  ,CHFp_CONST_FRA1(acofab)
38  ,CHFp_CONST_FRA1(eta0fab)
39  ,CHFp_CONST_FRA1(eta1fab)
40  ,CHFp_CONST_FRA1(eta2fab)
41  ,CHFp_CONST_FRA1(lam0fab)
42  ,CHFp_CONST_FRA1(lam1fab)
43  ,CHFp_CONST_FRA1(lam2fab)
44  ,CHFp_CONST_REAL(dx)
45  ,CHFp_CONST_REAL(alpha)
46  ,CHFp_CONST_REAL(beta) )
47 {
48  CH_TIMELEAF("FORT_NWOEBVTOPOINTLPH");
49  FORTRAN_NAME( NWOEBVTOPOINTLPH ,nwoebvtopointlph )(
50  CHFt_REALVECT(lphi)
52  ,CHFt_CONST_FRA(phi)
53  ,CHFt_CONST_FRA1(acofab)
54  ,CHFt_CONST_FRA1(eta0fab)
55  ,CHFt_CONST_FRA1(eta1fab)
56  ,CHFt_CONST_FRA1(eta2fab)
57  ,CHFt_CONST_FRA1(lam0fab)
58  ,CHFt_CONST_FRA1(lam1fab)
59  ,CHFt_CONST_FRA1(lam2fab)
60  ,CHFt_CONST_REAL(dx)
61  ,CHFt_CONST_REAL(alpha)
62  ,CHFt_CONST_REAL(beta) );
63 }
64 #endif // GUARDNWOEBVTOPOINTLPH
65 
66 #ifndef GUARDGSRBNWOEBVTOP
67 #define GUARDGSRBNWOEBVTOP
68 // Prototype for Fortran procedure gsrbnwoebvtop ...
69 //
70 void FORTRAN_NAME( GSRBNWOEBVTOP ,gsrbnwoebvtop )(
71  CHFp_FRA(phi)
72  ,CHFp_CONST_FRA(rhs)
73  ,CHFp_CONST_FRA(lambda)
74  ,CHFp_CONST_FRA1(acofab)
75  ,CHFp_CONST_FRA1(eta0fab)
76  ,CHFp_CONST_FRA1(eta1fab)
77  ,CHFp_CONST_FRA1(eta2fab)
78  ,CHFp_CONST_FRA1(lam0fab)
79  ,CHFp_CONST_FRA1(lam1fab)
80  ,CHFp_CONST_FRA1(lam2fab)
81  ,CHFp_CONST_REAL(dx)
82  ,CHFp_CONST_REAL(alpha)
83  ,CHFp_CONST_REAL(beta)
84  ,CHFp_BOX(coloredbox) );
85 
86 #define FORT_GSRBNWOEBVTOP FORTRAN_NAME( inlineGSRBNWOEBVTOP, inlineGSRBNWOEBVTOP)
87 #define FORTNT_GSRBNWOEBVTOP FORTRAN_NAME( GSRBNWOEBVTOP, gsrbnwoebvtop)
88 
89 inline void FORTRAN_NAME(inlineGSRBNWOEBVTOP, inlineGSRBNWOEBVTOP)(
90  CHFp_FRA(phi)
91  ,CHFp_CONST_FRA(rhs)
92  ,CHFp_CONST_FRA(lambda)
93  ,CHFp_CONST_FRA1(acofab)
94  ,CHFp_CONST_FRA1(eta0fab)
95  ,CHFp_CONST_FRA1(eta1fab)
96  ,CHFp_CONST_FRA1(eta2fab)
97  ,CHFp_CONST_FRA1(lam0fab)
98  ,CHFp_CONST_FRA1(lam1fab)
99  ,CHFp_CONST_FRA1(lam2fab)
100  ,CHFp_CONST_REAL(dx)
101  ,CHFp_CONST_REAL(alpha)
102  ,CHFp_CONST_REAL(beta)
103  ,CHFp_BOX(coloredbox) )
104 {
105  CH_TIMELEAF("FORT_GSRBNWOEBVTOP");
106  FORTRAN_NAME( GSRBNWOEBVTOP ,gsrbnwoebvtop )(
107  CHFt_FRA(phi)
108  ,CHFt_CONST_FRA(rhs)
109  ,CHFt_CONST_FRA(lambda)
110  ,CHFt_CONST_FRA1(acofab)
111  ,CHFt_CONST_FRA1(eta0fab)
112  ,CHFt_CONST_FRA1(eta1fab)
113  ,CHFt_CONST_FRA1(eta2fab)
114  ,CHFt_CONST_FRA1(lam0fab)
115  ,CHFt_CONST_FRA1(lam1fab)
116  ,CHFt_CONST_FRA1(lam2fab)
117  ,CHFt_CONST_REAL(dx)
118  ,CHFt_CONST_REAL(alpha)
119  ,CHFt_CONST_REAL(beta)
120  ,CHFt_BOX(coloredbox) );
121 }
122 #endif // GUARDGSRBNWOEBVTOP
123 
124 #ifndef GUARDCELLGRADEBVTOP
125 #define GUARDCELLGRADEBVTOP
126 // Prototype for Fortran procedure cellgradebvtop ...
127 //
128 void FORTRAN_NAME( CELLGRADEBVTOP ,cellgradebvtop )(
129  CHFp_FRA1(grad)
130  ,CHFp_CONST_FRA1(vel)
131  ,CHFp_CONST_REAL(dx)
132  ,CHFp_BOX(lobox)
133  ,CHFp_BOX(hibox)
134  ,CHFp_BOX(centerbox)
135  ,CHFp_CONST_INT(haslo)
136  ,CHFp_CONST_INT(hashi)
137  ,CHFp_CONST_INT(divdir) );
138 
139 #define FORT_CELLGRADEBVTOP FORTRAN_NAME( inlineCELLGRADEBVTOP, inlineCELLGRADEBVTOP)
140 #define FORTNT_CELLGRADEBVTOP FORTRAN_NAME( CELLGRADEBVTOP, cellgradebvtop)
141 
142 inline void FORTRAN_NAME(inlineCELLGRADEBVTOP, inlineCELLGRADEBVTOP)(
143  CHFp_FRA1(grad)
144  ,CHFp_CONST_FRA1(vel)
145  ,CHFp_CONST_REAL(dx)
146  ,CHFp_BOX(lobox)
147  ,CHFp_BOX(hibox)
148  ,CHFp_BOX(centerbox)
149  ,CHFp_CONST_INT(haslo)
150  ,CHFp_CONST_INT(hashi)
151  ,CHFp_CONST_INT(divdir) )
152 {
153  CH_TIMELEAF("FORT_CELLGRADEBVTOP");
154  FORTRAN_NAME( CELLGRADEBVTOP ,cellgradebvtop )(
155  CHFt_FRA1(grad)
156  ,CHFt_CONST_FRA1(vel)
157  ,CHFt_CONST_REAL(dx)
158  ,CHFt_BOX(lobox)
159  ,CHFt_BOX(hibox)
160  ,CHFt_BOX(centerbox)
161  ,CHFt_CONST_INT(haslo)
162  ,CHFt_CONST_INT(hashi)
163  ,CHFt_CONST_INT(divdir) );
164 }
165 #endif // GUARDCELLGRADEBVTOP
166 
167 #ifndef GUARDINCRAPPLYEBVTOP
168 #define GUARDINCRAPPLYEBVTOP
169 // Prototype for Fortran procedure incrapplyebvtop ...
170 //
171 void FORTRAN_NAME( INCRAPPLYEBVTOP ,incrapplyebvtop )(
172  CHFp_FRA1(lhs)
173  ,CHFp_CONST_FRA1(interiorflux)
174  ,CHFp_CONST_FRA1(domainfluxlo)
175  ,CHFp_CONST_FRA1(domainfluxhi)
176  ,CHFp_CONST_REAL(beta)
177  ,CHFp_CONST_REAL(dx)
178  ,CHFp_BOX(lobox)
179  ,CHFp_BOX(hibox)
180  ,CHFp_BOX(centerbox)
181  ,CHFp_CONST_INT(haslo)
182  ,CHFp_CONST_INT(hashi)
183  ,CHFp_CONST_INT(facedir) );
184 
185 #define FORT_INCRAPPLYEBVTOP FORTRAN_NAME( inlineINCRAPPLYEBVTOP, inlineINCRAPPLYEBVTOP)
186 #define FORTNT_INCRAPPLYEBVTOP FORTRAN_NAME( INCRAPPLYEBVTOP, incrapplyebvtop)
187 
188 inline void FORTRAN_NAME(inlineINCRAPPLYEBVTOP, inlineINCRAPPLYEBVTOP)(
189  CHFp_FRA1(lhs)
190  ,CHFp_CONST_FRA1(interiorflux)
191  ,CHFp_CONST_FRA1(domainfluxlo)
192  ,CHFp_CONST_FRA1(domainfluxhi)
193  ,CHFp_CONST_REAL(beta)
194  ,CHFp_CONST_REAL(dx)
195  ,CHFp_BOX(lobox)
196  ,CHFp_BOX(hibox)
197  ,CHFp_BOX(centerbox)
198  ,CHFp_CONST_INT(haslo)
199  ,CHFp_CONST_INT(hashi)
200  ,CHFp_CONST_INT(facedir) )
201 {
202  CH_TIMELEAF("FORT_INCRAPPLYEBVTOP");
203  FORTRAN_NAME( INCRAPPLYEBVTOP ,incrapplyebvtop )(
204  CHFt_FRA1(lhs)
205  ,CHFt_CONST_FRA1(interiorflux)
206  ,CHFt_CONST_FRA1(domainfluxlo)
207  ,CHFt_CONST_FRA1(domainfluxhi)
208  ,CHFt_CONST_REAL(beta)
209  ,CHFt_CONST_REAL(dx)
210  ,CHFt_BOX(lobox)
211  ,CHFt_BOX(hibox)
212  ,CHFt_BOX(centerbox)
213  ,CHFt_CONST_INT(haslo)
214  ,CHFt_CONST_INT(hashi)
215  ,CHFt_CONST_INT(facedir) );
216 }
217 #endif // GUARDINCRAPPLYEBVTOP
218 
219 #ifndef GUARDNORMALGRADVISCDIRCH
220 #define GUARDNORMALGRADVISCDIRCH
221 // Prototype for Fortran procedure normalgradviscdirch ...
222 //
223 void FORTRAN_NAME( NORMALGRADVISCDIRCH ,normalgradviscdirch )(
224  CHFp_FRA1(gradvelface)
225  ,CHFp_CONST_FRA1(velcomp)
226  ,CHFp_CONST_FRA1(velvalu)
227  ,CHFp_BOX(facebox)
228  ,CHFp_CONST_REAL(dx)
229  ,CHFp_CONST_INT(iside)
230  ,CHFp_CONST_INT(divdir) );
231 
232 #define FORT_NORMALGRADVISCDIRCH FORTRAN_NAME( inlineNORMALGRADVISCDIRCH, inlineNORMALGRADVISCDIRCH)
233 #define FORTNT_NORMALGRADVISCDIRCH FORTRAN_NAME( NORMALGRADVISCDIRCH, normalgradviscdirch)
234 
235 inline void FORTRAN_NAME(inlineNORMALGRADVISCDIRCH, inlineNORMALGRADVISCDIRCH)(
236  CHFp_FRA1(gradvelface)
237  ,CHFp_CONST_FRA1(velcomp)
238  ,CHFp_CONST_FRA1(velvalu)
239  ,CHFp_BOX(facebox)
240  ,CHFp_CONST_REAL(dx)
241  ,CHFp_CONST_INT(iside)
242  ,CHFp_CONST_INT(divdir) )
243 {
244  CH_TIMELEAF("FORT_NORMALGRADVISCDIRCH");
245  FORTRAN_NAME( NORMALGRADVISCDIRCH ,normalgradviscdirch )(
246  CHFt_FRA1(gradvelface)
247  ,CHFt_CONST_FRA1(velcomp)
248  ,CHFt_CONST_FRA1(velvalu)
249  ,CHFt_BOX(facebox)
250  ,CHFt_CONST_REAL(dx)
251  ,CHFt_CONST_INT(iside)
252  ,CHFt_CONST_INT(divdir) );
253 }
254 #endif // GUARDNORMALGRADVISCDIRCH
255 
256 #ifndef GUARDSLIPWALLGRAD
257 #define GUARDSLIPWALLGRAD
258 // Prototype for Fortran procedure slipwallgrad ...
259 //
260 void FORTRAN_NAME( SLIPWALLGRAD ,slipwallgrad )(
261  CHFp_FRA1(gradvelface)
262  ,CHFp_CONST_FRA1(velcomp)
263  ,CHFp_BOX(facebox)
264  ,CHFp_CONST_REAL(dx)
265  ,CHFp_CONST_INT(veldir)
266  ,CHFp_CONST_INT(divdir)
267  ,CHFp_CONST_INT(iside)
268  ,CHFp_BOX(lobox)
269  ,CHFp_BOX(hibox)
270  ,CHFp_BOX(centerbox)
271  ,CHFp_CONST_INT(haslo)
272  ,CHFp_CONST_INT(hashi)
273  ,CHFp_CONST_INT(facedir) );
274 
275 #define FORT_SLIPWALLGRAD FORTRAN_NAME( inlineSLIPWALLGRAD, inlineSLIPWALLGRAD)
276 #define FORTNT_SLIPWALLGRAD FORTRAN_NAME( SLIPWALLGRAD, slipwallgrad)
277 
278 inline void FORTRAN_NAME(inlineSLIPWALLGRAD, inlineSLIPWALLGRAD)(
279  CHFp_FRA1(gradvelface)
280  ,CHFp_CONST_FRA1(velcomp)
281  ,CHFp_BOX(facebox)
282  ,CHFp_CONST_REAL(dx)
283  ,CHFp_CONST_INT(veldir)
284  ,CHFp_CONST_INT(divdir)
285  ,CHFp_CONST_INT(iside)
286  ,CHFp_BOX(lobox)
287  ,CHFp_BOX(hibox)
288  ,CHFp_BOX(centerbox)
289  ,CHFp_CONST_INT(haslo)
290  ,CHFp_CONST_INT(hashi)
291  ,CHFp_CONST_INT(facedir) )
292 {
293  CH_TIMELEAF("FORT_SLIPWALLGRAD");
294  FORTRAN_NAME( SLIPWALLGRAD ,slipwallgrad )(
295  CHFt_FRA1(gradvelface)
296  ,CHFt_CONST_FRA1(velcomp)
297  ,CHFt_BOX(facebox)
298  ,CHFt_CONST_REAL(dx)
299  ,CHFt_CONST_INT(veldir)
300  ,CHFt_CONST_INT(divdir)
301  ,CHFt_CONST_INT(iside)
302  ,CHFt_BOX(lobox)
303  ,CHFt_BOX(hibox)
304  ,CHFt_BOX(centerbox)
305  ,CHFt_CONST_INT(haslo)
306  ,CHFt_CONST_INT(hashi)
307  ,CHFt_CONST_INT(facedir) );
308 }
309 #endif // GUARDSLIPWALLGRAD
310 
311 #ifndef GUARDVELDOTSIGMA
312 #define GUARDVELDOTSIGMA
313 // Prototype for Fortran procedure veldotsigma ...
314 //
315 void FORTRAN_NAME( VELDOTSIGMA ,veldotsigma )(
316  CHFp_FRA(veldotsig)
317  ,CHFp_CONST_FRA(vel)
318  ,CHFp_CONST_FRA(sig)
319  ,CHFp_BOX(facebox) );
320 
321 #define FORT_VELDOTSIGMA FORTRAN_NAME( inlineVELDOTSIGMA, inlineVELDOTSIGMA)
322 #define FORTNT_VELDOTSIGMA FORTRAN_NAME( VELDOTSIGMA, veldotsigma)
323 
324 inline void FORTRAN_NAME(inlineVELDOTSIGMA, inlineVELDOTSIGMA)(
325  CHFp_FRA(veldotsig)
326  ,CHFp_CONST_FRA(vel)
327  ,CHFp_CONST_FRA(sig)
328  ,CHFp_BOX(facebox) )
329 {
330  CH_TIMELEAF("FORT_VELDOTSIGMA");
331  FORTRAN_NAME( VELDOTSIGMA ,veldotsigma )(
332  CHFt_FRA(veldotsig)
333  ,CHFt_CONST_FRA(vel)
334  ,CHFt_CONST_FRA(sig)
335  ,CHFt_BOX(facebox) );
336 }
337 #endif // GUARDVELDOTSIGMA
338 
339 #ifndef GUARDINCRPOINTDOTPROD
340 #define GUARDINCRPOINTDOTPROD
341 // Prototype for Fortran procedure incrpointdotprod ...
342 //
343 void FORTRAN_NAME( INCRPOINTDOTPROD ,incrpointdotprod )(
344  CHFp_FRA1(sigmadotgradu)
345  ,CHFp_CONST_FRA1(gradu)
346  ,CHFp_CONST_FRA1(sigma)
347  ,CHFp_BOX(box) );
348 
349 #define FORT_INCRPOINTDOTPROD FORTRAN_NAME( inlineINCRPOINTDOTPROD, inlineINCRPOINTDOTPROD)
350 #define FORTNT_INCRPOINTDOTPROD FORTRAN_NAME( INCRPOINTDOTPROD, incrpointdotprod)
351 
352 inline void FORTRAN_NAME(inlineINCRPOINTDOTPROD, inlineINCRPOINTDOTPROD)(
353  CHFp_FRA1(sigmadotgradu)
354  ,CHFp_CONST_FRA1(gradu)
355  ,CHFp_CONST_FRA1(sigma)
357 {
358  CH_TIMELEAF("FORT_INCRPOINTDOTPROD");
359  FORTRAN_NAME( INCRPOINTDOTPROD ,incrpointdotprod )(
360  CHFt_FRA1(sigmadotgradu)
361  ,CHFt_CONST_FRA1(gradu)
362  ,CHFt_CONST_FRA1(sigma)
363  ,CHFt_BOX(box) );
364 }
365 #endif // GUARDINCRPOINTDOTPROD
366 
367 #ifndef GUARDINCRCCSIGMALAMBDA
368 #define GUARDINCRCCSIGMALAMBDA
369 // Prototype for Fortran procedure incrccsigmalambda ...
370 //
371 void FORTRAN_NAME( INCRCCSIGMALAMBDA ,incrccsigmalambda )(
372  CHFp_FRA1(sigma)
373  ,CHFp_CONST_FRA(gradu)
374  ,CHFp_CONST_FRA1(lambda)
375  ,CHFp_BOX(grid)
376  ,CHFp_CONST_INT(diagcomp) );
377 
378 #define FORT_INCRCCSIGMALAMBDA FORTRAN_NAME( inlineINCRCCSIGMALAMBDA, inlineINCRCCSIGMALAMBDA)
379 #define FORTNT_INCRCCSIGMALAMBDA FORTRAN_NAME( INCRCCSIGMALAMBDA, incrccsigmalambda)
380 
381 inline void FORTRAN_NAME(inlineINCRCCSIGMALAMBDA, inlineINCRCCSIGMALAMBDA)(
382  CHFp_FRA1(sigma)
383  ,CHFp_CONST_FRA(gradu)
384  ,CHFp_CONST_FRA1(lambda)
385  ,CHFp_BOX(grid)
386  ,CHFp_CONST_INT(diagcomp) )
387 {
388  CH_TIMELEAF("FORT_INCRCCSIGMALAMBDA");
389  FORTRAN_NAME( INCRCCSIGMALAMBDA ,incrccsigmalambda )(
390  CHFt_FRA1(sigma)
391  ,CHFt_CONST_FRA(gradu)
392  ,CHFt_CONST_FRA1(lambda)
393  ,CHFt_BOX(grid)
394  ,CHFt_CONST_INT(diagcomp) );
395 }
396 #endif // GUARDINCRCCSIGMALAMBDA
397 
398 #ifndef GUARDINCRCCSIGMAETA
399 #define GUARDINCRCCSIGMAETA
400 // Prototype for Fortran procedure incrccsigmaeta ...
401 //
402 void FORTRAN_NAME( INCRCCSIGMAETA ,incrccsigmaeta )(
403  CHFp_FRA1(sigma)
404  ,CHFp_CONST_FRA(gradu)
405  ,CHFp_CONST_FRA1(eta)
406  ,CHFp_BOX(grid)
407  ,CHFp_CONST_INT(gradcomp)
408  ,CHFp_CONST_INT(trancomp) );
409 
410 #define FORT_INCRCCSIGMAETA FORTRAN_NAME( inlineINCRCCSIGMAETA, inlineINCRCCSIGMAETA)
411 #define FORTNT_INCRCCSIGMAETA FORTRAN_NAME( INCRCCSIGMAETA, incrccsigmaeta)
412 
413 inline void FORTRAN_NAME(inlineINCRCCSIGMAETA, inlineINCRCCSIGMAETA)(
414  CHFp_FRA1(sigma)
415  ,CHFp_CONST_FRA(gradu)
416  ,CHFp_CONST_FRA1(eta)
417  ,CHFp_BOX(grid)
418  ,CHFp_CONST_INT(gradcomp)
419  ,CHFp_CONST_INT(trancomp) )
420 {
421  CH_TIMELEAF("FORT_INCRCCSIGMAETA");
422  FORTRAN_NAME( INCRCCSIGMAETA ,incrccsigmaeta )(
423  CHFt_FRA1(sigma)
424  ,CHFt_CONST_FRA(gradu)
425  ,CHFt_CONST_FRA1(eta)
426  ,CHFt_BOX(grid)
427  ,CHFt_CONST_INT(gradcomp)
428  ,CHFt_CONST_INT(trancomp) );
429 }
430 #endif // GUARDINCRCCSIGMAETA
431 
432 #ifndef GUARDINCRFACETOCELLAVERAGE
433 #define GUARDINCRFACETOCELLAVERAGE
434 // Prototype for Fortran procedure incrfacetocellaverage ...
435 //
436 void FORTRAN_NAME( INCRFACETOCELLAVERAGE ,incrfacetocellaverage )(
437  CHFp_FRA1(cellcoef)
438  ,CHFp_CONST_FRA1(facecoef)
439  ,CHFp_CONST_INT(facedir)
440  ,CHFp_BOX(grid)
441  ,CHFp_REAL(nfacesper) );
442 
443 #define FORT_INCRFACETOCELLAVERAGE FORTRAN_NAME( inlineINCRFACETOCELLAVERAGE, inlineINCRFACETOCELLAVERAGE)
444 #define FORTNT_INCRFACETOCELLAVERAGE FORTRAN_NAME( INCRFACETOCELLAVERAGE, incrfacetocellaverage)
445 
446 inline void FORTRAN_NAME(inlineINCRFACETOCELLAVERAGE, inlineINCRFACETOCELLAVERAGE)(
447  CHFp_FRA1(cellcoef)
448  ,CHFp_CONST_FRA1(facecoef)
449  ,CHFp_CONST_INT(facedir)
450  ,CHFp_BOX(grid)
451  ,CHFp_REAL(nfacesper) )
452 {
453  CH_TIMELEAF("FORT_INCRFACETOCELLAVERAGE");
454  FORTRAN_NAME( INCRFACETOCELLAVERAGE ,incrfacetocellaverage )(
455  CHFt_FRA1(cellcoef)
456  ,CHFt_CONST_FRA1(facecoef)
457  ,CHFt_CONST_INT(facedir)
458  ,CHFt_BOX(grid)
459  ,CHFt_REAL(nfacesper) );
460 }
461 #endif // GUARDINCRFACETOCELLAVERAGE
462 
463 }
464 
465 #endif
#define CHFp_FRA(a)
Definition: FORT_PROTO.H:803
#define CHFt_CONST_INT(i)
Definition: FORT_PROTO.H:989
#define CHFp_FRA1(a)
Definition: FORT_PROTO.H:913
void FORTRAN_NAME(NWOEBVTOPOINTLPH, nwoebvtopointlph)(CHFp_REALVECT(lphi)
#define CHFt_FRA(a)
Definition: FORT_PROTO.H:1053
void CHFp_REAL(nfacesper))
Definition: EBViscousTensorOpF_F.H:451
Definition: EBInterface.H:45
void CHFp_CONST_INT(haslo)
#define CHFt_CONST_FRA(a)
Definition: FORT_PROTO.H:1095
void CHFp_BOX(coloredbox))
Definition: EBViscousTensorOpF_F.H:103
#define CHFt_FRA1(a)
Definition: FORT_PROTO.H:1136
void CHFp_CONST_REAL(dx)
void CHFp_CONST_FRA(phi)
#define CHFt_CONST_FRA1(a)
Definition: FORT_PROTO.H:1188
void CHFp_CONST_INTVECT(iv)
#define CHFt_BOX(b)
Definition: FORT_PROTO.H:1026
#define CH_TIMELEAF(name)
Definition: CH_Timer.H:100
void CHFp_REALVECT(veloc)
#define CHFt_CONST_REAL(r)
Definition: FORT_PROTO.H:991
#define CHFt_REALVECT(r)
Definition: FORT_PROTO.H:1015
#define CHFt_CONST_INTVECT(r)
Definition: FORT_PROTO.H:1014
#define CHFt_REAL(r)
Definition: FORT_PROTO.H:990
void CHFp_CONST_FRA1(acofab)