Chombo + EB + MF  3.2
EBConductivityOpF_F.H
Go to the documentation of this file.
1 #ifndef _EBCONDUCTIVITYOPF_F_H_
2 #define _EBCONDUCTIVITYOPF_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 GUARDCONDUCTIVITYGSRB
12 #define GUARDCONDUCTIVITYGSRB
13 // Prototype for Fortran procedure conductivitygsrb ...
14 //
15 void FORTRAN_NAME( CONDUCTIVITYGSRB ,conductivitygsrb )(
16  CHFp_FRA1(phi)
17  ,CHFp_CONST_FRA1(rhs)
18  ,CHFp_CONST_FRA1(relcoef)
19  ,CHFp_CONST_FRA1(acoef)
20  ,CHFp_CONST_FRA1(b0)
21  ,CHFp_CONST_FRA1(b1)
22  ,CHFp_CONST_FRA1(b2)
23  ,CHFp_CONST_REAL(alpha)
24  ,CHFp_CONST_REAL(beta)
25  ,CHFp_CONST_REAL(dx)
26  ,CHFp_BOX(region)
27  ,CHFp_CONST_INT(redBlack) );
28 
29 #define FORT_CONDUCTIVITYGSRB FORTRAN_NAME( inlineCONDUCTIVITYGSRB, inlineCONDUCTIVITYGSRB)
30 #define FORTNT_CONDUCTIVITYGSRB FORTRAN_NAME( CONDUCTIVITYGSRB, conductivitygsrb)
31 
32 inline void FORTRAN_NAME(inlineCONDUCTIVITYGSRB, inlineCONDUCTIVITYGSRB)(
33  CHFp_FRA1(phi)
34  ,CHFp_CONST_FRA1(rhs)
35  ,CHFp_CONST_FRA1(relcoef)
36  ,CHFp_CONST_FRA1(acoef)
37  ,CHFp_CONST_FRA1(b0)
38  ,CHFp_CONST_FRA1(b1)
39  ,CHFp_CONST_FRA1(b2)
40  ,CHFp_CONST_REAL(alpha)
41  ,CHFp_CONST_REAL(beta)
42  ,CHFp_CONST_REAL(dx)
43  ,CHFp_BOX(region)
44  ,CHFp_CONST_INT(redBlack) )
45 {
46  CH_TIMELEAF("FORT_CONDUCTIVITYGSRB");
47  FORTRAN_NAME( CONDUCTIVITYGSRB ,conductivitygsrb )(
48  CHFt_FRA1(phi)
49  ,CHFt_CONST_FRA1(rhs)
50  ,CHFt_CONST_FRA1(relcoef)
51  ,CHFt_CONST_FRA1(acoef)
52  ,CHFt_CONST_FRA1(b0)
53  ,CHFt_CONST_FRA1(b1)
54  ,CHFt_CONST_FRA1(b2)
55  ,CHFt_CONST_REAL(alpha)
56  ,CHFt_CONST_REAL(beta)
57  ,CHFt_CONST_REAL(dx)
58  ,CHFt_BOX(region)
59  ,CHFt_CONST_INT(redBlack) );
60 }
61 #endif // GUARDCONDUCTIVITYGSRB
62 
63 #ifndef GUARDEBCOREGAPPLYDOMAINFLUX
64 #define GUARDEBCOREGAPPLYDOMAINFLUX
65 // Prototype for Fortran procedure ebcoregapplydomainflux ...
66 //
67 void FORTRAN_NAME( EBCOREGAPPLYDOMAINFLUX ,ebcoregapplydomainflux )(
68  CHFp_FRA1(phi)
69  ,CHFp_CONST_FRA1(faceflux)
70  ,CHFp_CONST_FRA1(bc)
71  ,CHFp_CONST_REAL(dx)
72  ,CHFp_CONST_INT(side)
73  ,CHFp_CONST_INT(idir)
74  ,CHFp_BOX(box) );
75 
76 #define FORT_EBCOREGAPPLYDOMAINFLUX FORTRAN_NAME( inlineEBCOREGAPPLYDOMAINFLUX, inlineEBCOREGAPPLYDOMAINFLUX)
77 #define FORTNT_EBCOREGAPPLYDOMAINFLUX FORTRAN_NAME( EBCOREGAPPLYDOMAINFLUX, ebcoregapplydomainflux)
78 
79 inline void FORTRAN_NAME(inlineEBCOREGAPPLYDOMAINFLUX, inlineEBCOREGAPPLYDOMAINFLUX)(
80  CHFp_FRA1(phi)
81  ,CHFp_CONST_FRA1(faceflux)
82  ,CHFp_CONST_FRA1(bc)
83  ,CHFp_CONST_REAL(dx)
84  ,CHFp_CONST_INT(side)
85  ,CHFp_CONST_INT(idir)
87 {
88  CH_TIMELEAF("FORT_EBCOREGAPPLYDOMAINFLUX");
89  FORTRAN_NAME( EBCOREGAPPLYDOMAINFLUX ,ebcoregapplydomainflux )(
90  CHFt_FRA1(phi)
91  ,CHFt_CONST_FRA1(faceflux)
92  ,CHFt_CONST_FRA1(bc)
93  ,CHFt_CONST_REAL(dx)
94  ,CHFt_CONST_INT(side)
95  ,CHFt_CONST_INT(idir)
96  ,CHFt_BOX(box) );
97 }
98 #endif // GUARDEBCOREGAPPLYDOMAINFLUX
99 
100 #ifndef GUARDAPPLYOPEBCONDNOBCS
101 #define GUARDAPPLYOPEBCONDNOBCS
102 // Prototype for Fortran procedure applyopebcondnobcs ...
103 //
104 void FORTRAN_NAME( APPLYOPEBCONDNOBCS ,applyopebcondnobcs )(
105  CHFp_FRA1(opphidir)
106  ,CHFp_CONST_FRA1(phi)
107  ,CHFp_CONST_FRA1(aco)
108  ,CHFp_CONST_FRA1(b0)
109  ,CHFp_CONST_FRA1(b1)
110  ,CHFp_CONST_FRA1(b2)
111  ,CHFp_CONST_REAL(dx)
112  ,CHFp_CONST_REAL(alpha)
113  ,CHFp_CONST_REAL(beta)
114  ,CHFp_BOX(box) );
115 
116 #define FORT_APPLYOPEBCONDNOBCS FORTRAN_NAME( inlineAPPLYOPEBCONDNOBCS, inlineAPPLYOPEBCONDNOBCS)
117 #define FORTNT_APPLYOPEBCONDNOBCS FORTRAN_NAME( APPLYOPEBCONDNOBCS, applyopebcondnobcs)
118 
119 inline void FORTRAN_NAME(inlineAPPLYOPEBCONDNOBCS, inlineAPPLYOPEBCONDNOBCS)(
120  CHFp_FRA1(opphidir)
121  ,CHFp_CONST_FRA1(phi)
122  ,CHFp_CONST_FRA1(aco)
123  ,CHFp_CONST_FRA1(b0)
124  ,CHFp_CONST_FRA1(b1)
125  ,CHFp_CONST_FRA1(b2)
126  ,CHFp_CONST_REAL(dx)
127  ,CHFp_CONST_REAL(alpha)
128  ,CHFp_CONST_REAL(beta)
129  ,CHFp_BOX(box) )
130 {
131  CH_TIMELEAF("FORT_APPLYOPEBCONDNOBCS");
132  FORTRAN_NAME( APPLYOPEBCONDNOBCS ,applyopebcondnobcs )(
133  CHFt_FRA1(opphidir)
134  ,CHFt_CONST_FRA1(phi)
135  ,CHFt_CONST_FRA1(aco)
136  ,CHFt_CONST_FRA1(b0)
137  ,CHFt_CONST_FRA1(b1)
138  ,CHFt_CONST_FRA1(b2)
139  ,CHFt_CONST_REAL(dx)
140  ,CHFt_CONST_REAL(alpha)
141  ,CHFt_CONST_REAL(beta)
142  ,CHFt_BOX(box) );
143 }
144 #endif // GUARDAPPLYOPEBCONDNOBCS
145 
146 #ifndef GUARDGSCOLOREBCONDOP
147 #define GUARDGSCOLOREBCONDOP
148 // Prototype for Fortran procedure gscolorebcondop ...
149 //
150 void FORTRAN_NAME( GSCOLOREBCONDOP ,gscolorebcondop )(
151  CHFp_FRA1(phi)
152  ,CHFp_CONST_FRA1(rhs)
153  ,CHFp_CONST_FRA1(relco)
154  ,CHFp_CONST_FRA1(aco)
155  ,CHFp_CONST_FRA1(b0)
156  ,CHFp_CONST_FRA1(b1)
157  ,CHFp_CONST_FRA1(b2)
158  ,CHFp_CONST_REAL(dx)
159  ,CHFp_CONST_REAL(alpha)
160  ,CHFp_CONST_REAL(beta)
161  ,CHFp_BOX(box) );
162 
163 #define FORT_GSCOLOREBCONDOP FORTRAN_NAME( inlineGSCOLOREBCONDOP, inlineGSCOLOREBCONDOP)
164 #define FORTNT_GSCOLOREBCONDOP FORTRAN_NAME( GSCOLOREBCONDOP, gscolorebcondop)
165 
166 inline void FORTRAN_NAME(inlineGSCOLOREBCONDOP, inlineGSCOLOREBCONDOP)(
167  CHFp_FRA1(phi)
168  ,CHFp_CONST_FRA1(rhs)
169  ,CHFp_CONST_FRA1(relco)
170  ,CHFp_CONST_FRA1(aco)
171  ,CHFp_CONST_FRA1(b0)
172  ,CHFp_CONST_FRA1(b1)
173  ,CHFp_CONST_FRA1(b2)
174  ,CHFp_CONST_REAL(dx)
175  ,CHFp_CONST_REAL(alpha)
176  ,CHFp_CONST_REAL(beta)
177  ,CHFp_BOX(box) )
178 {
179  CH_TIMELEAF("FORT_GSCOLOREBCONDOP");
180  FORTRAN_NAME( GSCOLOREBCONDOP ,gscolorebcondop )(
181  CHFt_FRA1(phi)
182  ,CHFt_CONST_FRA1(rhs)
183  ,CHFt_CONST_FRA1(relco)
184  ,CHFt_CONST_FRA1(aco)
185  ,CHFt_CONST_FRA1(b0)
186  ,CHFt_CONST_FRA1(b1)
187  ,CHFt_CONST_FRA1(b2)
188  ,CHFt_CONST_REAL(dx)
189  ,CHFt_CONST_REAL(alpha)
190  ,CHFt_CONST_REAL(beta)
191  ,CHFt_BOX(box) );
192 }
193 #endif // GUARDGSCOLOREBCONDOP
194 
195 #ifndef GUARDCONDUCTIVITYINPLACE
196 #define GUARDCONDUCTIVITYINPLACE
197 // Prototype for Fortran procedure conductivityinplace ...
198 //
199 void FORTRAN_NAME( CONDUCTIVITYINPLACE ,conductivityinplace )(
200  CHFp_FRA1(opphidir)
201  ,CHFp_CONST_FRA1(phi)
202  ,CHFp_CONST_FRA1(b0)
203  ,CHFp_CONST_FRA1(b1)
204  ,CHFp_CONST_FRA1(b2)
205  ,CHFp_CONST_REAL(beta)
206  ,CHFp_CONST_REAL(dx)
207  ,CHFp_BOX(box) );
208 
209 #define FORT_CONDUCTIVITYINPLACE FORTRAN_NAME( inlineCONDUCTIVITYINPLACE, inlineCONDUCTIVITYINPLACE)
210 #define FORTNT_CONDUCTIVITYINPLACE FORTRAN_NAME( CONDUCTIVITYINPLACE, conductivityinplace)
211 
212 inline void FORTRAN_NAME(inlineCONDUCTIVITYINPLACE, inlineCONDUCTIVITYINPLACE)(
213  CHFp_FRA1(opphidir)
214  ,CHFp_CONST_FRA1(phi)
215  ,CHFp_CONST_FRA1(b0)
216  ,CHFp_CONST_FRA1(b1)
217  ,CHFp_CONST_FRA1(b2)
218  ,CHFp_CONST_REAL(beta)
219  ,CHFp_CONST_REAL(dx)
220  ,CHFp_BOX(box) )
221 {
222  CH_TIMELEAF("FORT_CONDUCTIVITYINPLACE");
223  FORTRAN_NAME( CONDUCTIVITYINPLACE ,conductivityinplace )(
224  CHFt_FRA1(opphidir)
225  ,CHFt_CONST_FRA1(phi)
226  ,CHFt_CONST_FRA1(b0)
227  ,CHFt_CONST_FRA1(b1)
228  ,CHFt_CONST_FRA1(b2)
229  ,CHFt_CONST_REAL(beta)
230  ,CHFt_CONST_REAL(dx)
231  ,CHFt_BOX(box) );
232 }
233 #endif // GUARDCONDUCTIVITYINPLACE
234 
235 #ifndef GUARDINCRAPPLYEBCO
236 #define GUARDINCRAPPLYEBCO
237 // Prototype for Fortran procedure incrapplyebco ...
238 //
239 void FORTRAN_NAME( INCRAPPLYEBCO ,incrapplyebco )(
240  CHFp_FRA1(lhs)
241  ,CHFp_CONST_FRA1(interiorflux)
242  ,CHFp_CONST_FRA1(domainfluxlo)
243  ,CHFp_CONST_FRA1(domainfluxhi)
244  ,CHFp_CONST_REAL(beta)
245  ,CHFp_CONST_REAL(dx)
246  ,CHFp_BOX(lobox)
247  ,CHFp_BOX(hibox)
248  ,CHFp_BOX(centerbox)
249  ,CHFp_CONST_INT(haslo)
250  ,CHFp_CONST_INT(hashi)
251  ,CHFp_CONST_INT(facedir) );
252 
253 #define FORT_INCRAPPLYEBCO FORTRAN_NAME( inlineINCRAPPLYEBCO, inlineINCRAPPLYEBCO)
254 #define FORTNT_INCRAPPLYEBCO FORTRAN_NAME( INCRAPPLYEBCO, incrapplyebco)
255 
256 inline void FORTRAN_NAME(inlineINCRAPPLYEBCO, inlineINCRAPPLYEBCO)(
257  CHFp_FRA1(lhs)
258  ,CHFp_CONST_FRA1(interiorflux)
259  ,CHFp_CONST_FRA1(domainfluxlo)
260  ,CHFp_CONST_FRA1(domainfluxhi)
261  ,CHFp_CONST_REAL(beta)
262  ,CHFp_CONST_REAL(dx)
263  ,CHFp_BOX(lobox)
264  ,CHFp_BOX(hibox)
265  ,CHFp_BOX(centerbox)
266  ,CHFp_CONST_INT(haslo)
267  ,CHFp_CONST_INT(hashi)
268  ,CHFp_CONST_INT(facedir) )
269 {
270  CH_TIMELEAF("FORT_INCRAPPLYEBCO");
271  FORTRAN_NAME( INCRAPPLYEBCO ,incrapplyebco )(
272  CHFt_FRA1(lhs)
273  ,CHFt_CONST_FRA1(interiorflux)
274  ,CHFt_CONST_FRA1(domainfluxlo)
275  ,CHFt_CONST_FRA1(domainfluxhi)
276  ,CHFt_CONST_REAL(beta)
277  ,CHFt_CONST_REAL(dx)
278  ,CHFt_BOX(lobox)
279  ,CHFt_BOX(hibox)
280  ,CHFt_BOX(centerbox)
281  ,CHFt_CONST_INT(haslo)
282  ,CHFt_CONST_INT(hashi)
283  ,CHFt_CONST_INT(facedir) );
284 }
285 #endif // GUARDINCRAPPLYEBCO
286 
287 #ifndef GUARDDECRINVRELCOEFEBCO
288 #define GUARDDECRINVRELCOEFEBCO
289 // Prototype for Fortran procedure decrinvrelcoefebco ...
290 //
291 void FORTRAN_NAME( DECRINVRELCOEFEBCO ,decrinvrelcoefebco )(
292  CHFp_FRA1(relcoef)
293  ,CHFp_FRA1(bcoef)
294  ,CHFp_CONST_REAL(beta)
295  ,CHFp_BOX(box)
296  ,CHFp_REAL(dx)
297  ,CHFp_INT(idir) );
298 
299 #define FORT_DECRINVRELCOEFEBCO FORTRAN_NAME( inlineDECRINVRELCOEFEBCO, inlineDECRINVRELCOEFEBCO)
300 #define FORTNT_DECRINVRELCOEFEBCO FORTRAN_NAME( DECRINVRELCOEFEBCO, decrinvrelcoefebco)
301 
302 inline void FORTRAN_NAME(inlineDECRINVRELCOEFEBCO, inlineDECRINVRELCOEFEBCO)(
303  CHFp_FRA1(relcoef)
304  ,CHFp_FRA1(bcoef)
305  ,CHFp_CONST_REAL(beta)
306  ,CHFp_BOX(box)
307  ,CHFp_REAL(dx)
308  ,CHFp_INT(idir) )
309 {
310  CH_TIMELEAF("FORT_DECRINVRELCOEFEBCO");
311  FORTRAN_NAME( DECRINVRELCOEFEBCO ,decrinvrelcoefebco )(
312  CHFt_FRA1(relcoef)
313  ,CHFt_FRA1(bcoef)
314  ,CHFt_CONST_REAL(beta)
315  ,CHFt_BOX(box)
316  ,CHFt_REAL(dx)
317  ,CHFt_INT(idir) );
318 }
319 #endif // GUARDDECRINVRELCOEFEBCO
320 
321 #ifndef GUARDINVERTLAMBDAEBCO
322 #define GUARDINVERTLAMBDAEBCO
323 // Prototype for Fortran procedure invertlambdaebco ...
324 //
325 void FORTRAN_NAME( INVERTLAMBDAEBCO ,invertlambdaebco )(
326  CHFp_FRA1(lambda)
327  ,CHFp_REAL(safety)
328  ,CHFp_BOX(box) );
329 
330 #define FORT_INVERTLAMBDAEBCO FORTRAN_NAME( inlineINVERTLAMBDAEBCO, inlineINVERTLAMBDAEBCO)
331 #define FORTNT_INVERTLAMBDAEBCO FORTRAN_NAME( INVERTLAMBDAEBCO, invertlambdaebco)
332 
333 inline void FORTRAN_NAME(inlineINVERTLAMBDAEBCO, inlineINVERTLAMBDAEBCO)(
334  CHFp_FRA1(lambda)
335  ,CHFp_REAL(safety)
336  ,CHFp_BOX(box) )
337 {
338  CH_TIMELEAF("FORT_INVERTLAMBDAEBCO");
339  FORTRAN_NAME( INVERTLAMBDAEBCO ,invertlambdaebco )(
340  CHFt_FRA1(lambda)
341  ,CHFt_REAL(safety)
342  ,CHFt_BOX(box) );
343 }
344 #endif // GUARDINVERTLAMBDAEBCO
345 
346 #ifndef GUARDGETFLUXEBCO
347 #define GUARDGETFLUXEBCO
348 // Prototype for Fortran procedure getfluxebco ...
349 //
350 void FORTRAN_NAME( GETFLUXEBCO ,getfluxebco )(
351  CHFp_FRA1(flux)
352  ,CHFp_CONST_FRA1(bcoef)
353  ,CHFp_CONST_FRA1(phi)
354  ,CHFp_BOX(opphibox)
355  ,CHFp_CONST_REAL(dx)
356  ,CHFp_CONST_INT(idir) );
357 
358 #define FORT_GETFLUXEBCO FORTRAN_NAME( inlineGETFLUXEBCO, inlineGETFLUXEBCO)
359 #define FORTNT_GETFLUXEBCO FORTRAN_NAME( GETFLUXEBCO, getfluxebco)
360 
361 inline void FORTRAN_NAME(inlineGETFLUXEBCO, inlineGETFLUXEBCO)(
362  CHFp_FRA1(flux)
363  ,CHFp_CONST_FRA1(bcoef)
364  ,CHFp_CONST_FRA1(phi)
365  ,CHFp_BOX(opphibox)
366  ,CHFp_CONST_REAL(dx)
367  ,CHFp_CONST_INT(idir) )
368 {
369  CH_TIMELEAF("FORT_GETFLUXEBCO");
370  FORTRAN_NAME( GETFLUXEBCO ,getfluxebco )(
371  CHFt_FRA1(flux)
372  ,CHFt_CONST_FRA1(bcoef)
373  ,CHFt_CONST_FRA1(phi)
374  ,CHFt_BOX(opphibox)
375  ,CHFt_CONST_REAL(dx)
376  ,CHFt_CONST_INT(idir) );
377 }
378 #endif // GUARDGETFLUXEBCO
379 
380 #ifndef GUARDGSRBEBCO
381 #define GUARDGSRBEBCO
382 // Prototype for Fortran procedure gsrbebco ...
383 //
384 void FORTRAN_NAME( GSRBEBCO ,gsrbebco )(
385  CHFp_FRA1(phi)
386  ,CHFp_CONST_FRA1(lph)
387  ,CHFp_CONST_FRA1(rhs)
388  ,CHFp_CONST_FRA1(lam)
389  ,CHFp_BOX(coloredbox) );
390 
391 #define FORT_GSRBEBCO FORTRAN_NAME( inlineGSRBEBCO, inlineGSRBEBCO)
392 #define FORTNT_GSRBEBCO FORTRAN_NAME( GSRBEBCO, gsrbebco)
393 
394 inline void FORTRAN_NAME(inlineGSRBEBCO, inlineGSRBEBCO)(
395  CHFp_FRA1(phi)
396  ,CHFp_CONST_FRA1(lph)
397  ,CHFp_CONST_FRA1(rhs)
398  ,CHFp_CONST_FRA1(lam)
399  ,CHFp_BOX(coloredbox) )
400 {
401  CH_TIMELEAF("FORT_GSRBEBCO");
402  FORTRAN_NAME( GSRBEBCO ,gsrbebco )(
403  CHFt_FRA1(phi)
404  ,CHFt_CONST_FRA1(lph)
405  ,CHFt_CONST_FRA1(rhs)
406  ,CHFt_CONST_FRA1(lam)
407  ,CHFt_BOX(coloredbox) );
408 }
409 #endif // GUARDGSRBEBCO
410 
411 }
412 
413 #endif
#define CHFt_CONST_INT(i)
Definition: FORT_PROTO.H:989
void CHFp_CONST_INT(redBlack))
Definition: EBConductivityOpF_F.H:44
void CHFp_CONST_REAL(alpha)
#define CHFt_INT(i)
Definition: FORT_PROTO.H:988
Definition: EBInterface.H:45
#define CHFt_FRA1(a)
Definition: FORT_PROTO.H:1136
void CHFp_INT(idir))
Definition: EBConductivityOpF_F.H:308
#define CHFt_CONST_FRA1(a)
Definition: FORT_PROTO.H:1188
void FORTRAN_NAME(CONDUCTIVITYGSRB, conductivitygsrb)(CHFp_FRA1(phi)
#define CHFt_BOX(b)
Definition: FORT_PROTO.H:1026
void CHFp_REAL(dx)
#define CH_TIMELEAF(name)
Definition: CH_Timer.H:100
void CHFp_BOX(region)
void CHFp_FRA1(bcoef)
#define CHFt_CONST_REAL(r)
Definition: FORT_PROTO.H:991
void CHFp_CONST_FRA1(rhs)
#define CHFt_REAL(r)
Definition: FORT_PROTO.H:990