Chombo + EB + MF  3.2
EBAMRPoissonOpF_F.H
Go to the documentation of this file.
1 #ifndef _EBAMRPOISSONOPF_F_H_
2 #define _EBAMRPOISSONOPF_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 GUARDEBAMRPDOTPROD
12 #define GUARDEBAMRPDOTPROD
13 // Prototype for Fortran procedure ebamrpdotprod ...
14 //
15 void FORTRAN_NAME( EBAMRPDOTPROD ,ebamrpdotprod )(
16  CHFp_REAL(sum)
17  ,CHFp_CONST_FRA1(aone)
18  ,CHFp_CONST_FRA1(atwo)
19  ,CHFp_BOX(box) );
20 
21 #define FORT_EBAMRPDOTPROD FORTRAN_NAME( inlineEBAMRPDOTPROD, inlineEBAMRPDOTPROD)
22 #define FORTNT_EBAMRPDOTPROD FORTRAN_NAME( EBAMRPDOTPROD, ebamrpdotprod)
23 
24 inline void FORTRAN_NAME(inlineEBAMRPDOTPROD, inlineEBAMRPDOTPROD)(
25  CHFp_REAL(sum)
26  ,CHFp_CONST_FRA1(aone)
27  ,CHFp_CONST_FRA1(atwo)
29 {
30  CH_TIMELEAF("FORT_EBAMRPDOTPROD");
31  FORTRAN_NAME( EBAMRPDOTPROD ,ebamrpdotprod )(
32  CHFt_REAL(sum)
33  ,CHFt_CONST_FRA1(aone)
34  ,CHFt_CONST_FRA1(atwo)
35  ,CHFt_BOX(box) );
36 }
37 #endif // GUARDEBAMRPDOTPROD
38 
39 #ifndef GUARDGETINVDIAGRHS
40 #define GUARDGETINVDIAGRHS
41 // Prototype for Fortran procedure getinvdiagrhs ...
42 //
43 void FORTRAN_NAME( GETINVDIAGRHS ,getinvdiagrhs )(
44  CHFp_FRA(lhs)
45  ,CHFp_CONST_FRA(rhs)
47  ,CHFp_CONST_INT(ncomp)
48  ,CHFp_BOX(box) );
49 
50 #define FORT_GETINVDIAGRHS FORTRAN_NAME( inlineGETINVDIAGRHS, inlineGETINVDIAGRHS)
51 #define FORTNT_GETINVDIAGRHS FORTRAN_NAME( GETINVDIAGRHS, getinvdiagrhs)
52 
53 inline void FORTRAN_NAME(inlineGETINVDIAGRHS, inlineGETINVDIAGRHS)(
54  CHFp_FRA(lhs)
55  ,CHFp_CONST_FRA(rhs)
57  ,CHFp_CONST_INT(ncomp)
58  ,CHFp_BOX(box) )
59 {
60  CH_TIMELEAF("FORT_GETINVDIAGRHS");
61  FORTRAN_NAME( GETINVDIAGRHS ,getinvdiagrhs )(
62  CHFt_FRA(lhs)
63  ,CHFt_CONST_FRA(rhs)
65  ,CHFt_CONST_INT(ncomp)
66  ,CHFt_BOX(box) );
67 }
68 #endif // GUARDGETINVDIAGRHS
69 
70 #ifndef GUARDMAXNORM
71 #define GUARDMAXNORM
72 // Prototype for Fortran procedure maxnorm ...
73 //
74 void FORTRAN_NAME( MAXNORM ,maxnorm )(
75  CHFp_REAL(m)
76  ,CHFp_CONST_FRA1(vel)
77  ,CHFp_BOX(box) );
78 
79 #define FORT_MAXNORM FORTRAN_NAME( inlineMAXNORM, inlineMAXNORM)
80 #define FORTNT_MAXNORM FORTRAN_NAME( MAXNORM, maxnorm)
81 
82 inline void FORTRAN_NAME(inlineMAXNORM, inlineMAXNORM)(
83  CHFp_REAL(m)
84  ,CHFp_CONST_FRA1(vel)
85  ,CHFp_BOX(box) )
86 {
87  CH_TIMELEAF("FORT_MAXNORM");
88  FORTRAN_NAME( MAXNORM ,maxnorm )(
89  CHFt_REAL(m)
90  ,CHFt_CONST_FRA1(vel)
91  ,CHFt_BOX(box) );
92 }
93 #endif // GUARDMAXNORM
94 
95 #ifndef GUARDMAXNORMMASK
96 #define GUARDMAXNORMMASK
97 // Prototype for Fortran procedure maxnormmask ...
98 //
99 void FORTRAN_NAME( MAXNORMMASK ,maxnormmask )(
100  CHFp_REAL(m)
101  ,CHFp_CONST_FRA1(vel)
102  ,CHFp_BOX(box)
103  ,CHFp_CONST_FBA1(mask) );
104 
105 #define FORT_MAXNORMMASK FORTRAN_NAME( inlineMAXNORMMASK, inlineMAXNORMMASK)
106 #define FORTNT_MAXNORMMASK FORTRAN_NAME( MAXNORMMASK, maxnormmask)
107 
108 inline void FORTRAN_NAME(inlineMAXNORMMASK, inlineMAXNORMMASK)(
109  CHFp_REAL(m)
110  ,CHFp_CONST_FRA1(vel)
111  ,CHFp_BOX(box)
113 {
114  CH_TIMELEAF("FORT_MAXNORMMASK");
115  FORTRAN_NAME( MAXNORMMASK ,maxnormmask )(
116  CHFt_REAL(m)
117  ,CHFt_CONST_FRA1(vel)
118  ,CHFt_BOX(box)
119  ,CHFt_CONST_FBA1(mask) );
120 }
121 #endif // GUARDMAXNORMMASK
122 
123 #ifndef GUARDAMRPZEROSUB
124 #define GUARDAMRPZEROSUB
125 // Prototype for Fortran procedure amrpzerosub ...
126 //
127 void FORTRAN_NAME( AMRPZEROSUB ,amrpzerosub )(
128  CHFp_FRA(phi)
129  ,CHFp_BOX(overlaybox)
130  ,CHFp_INT(ncomp) );
131 
132 #define FORT_AMRPZEROSUB FORTRAN_NAME( inlineAMRPZEROSUB, inlineAMRPZEROSUB)
133 #define FORTNT_AMRPZEROSUB FORTRAN_NAME( AMRPZEROSUB, amrpzerosub)
134 
135 inline void FORTRAN_NAME(inlineAMRPZEROSUB, inlineAMRPZEROSUB)(
136  CHFp_FRA(phi)
137  ,CHFp_BOX(overlaybox)
138  ,CHFp_INT(ncomp) )
139 {
140  CH_TIMELEAF("FORT_AMRPZEROSUB");
141  FORTRAN_NAME( AMRPZEROSUB ,amrpzerosub )(
142  CHFt_FRA(phi)
143  ,CHFt_BOX(overlaybox)
144  ,CHFt_INT(ncomp) );
145 }
146 #endif // GUARDAMRPZEROSUB
147 
148 #ifndef GUARDDOALLREGULARMULTICOLOR
149 #define GUARDDOALLREGULARMULTICOLOR
150 // Prototype for Fortran procedure doallregularmulticolor ...
151 //
152 void FORTRAN_NAME( DOALLREGULARMULTICOLOR ,doallregularmulticolor )(
153  CHFp_FRA1(phi)
154  ,CHFp_CONST_FRA1(rhs)
155  ,CHFp_CONST_REAL(weight)
156  ,CHFp_CONST_REAL(alpha)
157  ,CHFp_CONST_REAL(beta)
159  ,CHFp_BOX(coloredbox) );
160 
161 #define FORT_DOALLREGULARMULTICOLOR FORTRAN_NAME( inlineDOALLREGULARMULTICOLOR, inlineDOALLREGULARMULTICOLOR)
162 #define FORTNT_DOALLREGULARMULTICOLOR FORTRAN_NAME( DOALLREGULARMULTICOLOR, doallregularmulticolor)
163 
164 inline void FORTRAN_NAME(inlineDOALLREGULARMULTICOLOR, inlineDOALLREGULARMULTICOLOR)(
165  CHFp_FRA1(phi)
166  ,CHFp_CONST_FRA1(rhs)
167  ,CHFp_CONST_REAL(weight)
168  ,CHFp_CONST_REAL(alpha)
169  ,CHFp_CONST_REAL(beta)
171  ,CHFp_BOX(coloredbox) )
172 {
173  CH_TIMELEAF("FORT_DOALLREGULARMULTICOLOR");
174  FORTRAN_NAME( DOALLREGULARMULTICOLOR ,doallregularmulticolor )(
175  CHFt_FRA1(phi)
176  ,CHFt_CONST_FRA1(rhs)
177  ,CHFt_CONST_REAL(weight)
178  ,CHFt_CONST_REAL(alpha)
179  ,CHFt_CONST_REAL(beta)
181  ,CHFt_BOX(coloredbox) );
182 }
183 #endif // GUARDDOALLREGULARMULTICOLOR
184 
185 #ifndef GUARDDOALLREGULARUPDATE
186 #define GUARDDOALLREGULARUPDATE
187 // Prototype for Fortran procedure doallregularupdate ...
188 //
189 void FORTRAN_NAME( DOALLREGULARUPDATE ,doallregularupdate )(
190  CHFp_FRA1(phinew)
191  ,CHFp_CONST_FRA1(phi)
192  ,CHFp_CONST_FRA1(rhs)
193  ,CHFp_CONST_REAL(weight)
194  ,CHFp_CONST_REAL(alpha)
195  ,CHFp_CONST_REAL(beta)
197  ,CHFp_BOX(coloredbox) );
198 
199 #define FORT_DOALLREGULARUPDATE FORTRAN_NAME( inlineDOALLREGULARUPDATE, inlineDOALLREGULARUPDATE)
200 #define FORTNT_DOALLREGULARUPDATE FORTRAN_NAME( DOALLREGULARUPDATE, doallregularupdate)
201 
202 inline void FORTRAN_NAME(inlineDOALLREGULARUPDATE, inlineDOALLREGULARUPDATE)(
203  CHFp_FRA1(phinew)
204  ,CHFp_CONST_FRA1(phi)
205  ,CHFp_CONST_FRA1(rhs)
206  ,CHFp_CONST_REAL(weight)
207  ,CHFp_CONST_REAL(alpha)
208  ,CHFp_CONST_REAL(beta)
210  ,CHFp_BOX(coloredbox) )
211 {
212  CH_TIMELEAF("FORT_DOALLREGULARUPDATE");
213  FORTRAN_NAME( DOALLREGULARUPDATE ,doallregularupdate )(
214  CHFt_FRA1(phinew)
215  ,CHFt_CONST_FRA1(phi)
216  ,CHFt_CONST_FRA1(rhs)
217  ,CHFt_CONST_REAL(weight)
218  ,CHFt_CONST_REAL(alpha)
219  ,CHFt_CONST_REAL(beta)
221  ,CHFt_BOX(coloredbox) );
222 }
223 #endif // GUARDDOALLREGULARUPDATE
224 
225 #ifndef GUARDDOALLREGULARGSRB
226 #define GUARDDOALLREGULARGSRB
227 // Prototype for Fortran procedure doallregulargsrb ...
228 //
229 void FORTRAN_NAME( DOALLREGULARGSRB ,doallregulargsrb )(
230  CHFp_FRA1(phi)
231  ,CHFp_CONST_FRA1(rhs)
232  ,CHFp_CONST_REAL(weight)
233  ,CHFp_CONST_REAL(alpha)
234  ,CHFp_CONST_REAL(beta)
236  ,CHFp_BOX(region)
237  ,CHFp_CONST_INT(redBlack) );
238 
239 #define FORT_DOALLREGULARGSRB FORTRAN_NAME( inlineDOALLREGULARGSRB, inlineDOALLREGULARGSRB)
240 #define FORTNT_DOALLREGULARGSRB FORTRAN_NAME( DOALLREGULARGSRB, doallregulargsrb)
241 
242 inline void FORTRAN_NAME(inlineDOALLREGULARGSRB, inlineDOALLREGULARGSRB)(
243  CHFp_FRA1(phi)
244  ,CHFp_CONST_FRA1(rhs)
245  ,CHFp_CONST_REAL(weight)
246  ,CHFp_CONST_REAL(alpha)
247  ,CHFp_CONST_REAL(beta)
249  ,CHFp_BOX(region)
250  ,CHFp_CONST_INT(redBlack) )
251 {
252  CH_TIMELEAF("FORT_DOALLREGULARGSRB");
253  FORTRAN_NAME( DOALLREGULARGSRB ,doallregulargsrb )(
254  CHFt_FRA1(phi)
255  ,CHFt_CONST_FRA1(rhs)
256  ,CHFt_CONST_REAL(weight)
257  ,CHFt_CONST_REAL(alpha)
258  ,CHFt_CONST_REAL(beta)
260  ,CHFt_BOX(region)
261  ,CHFt_CONST_INT(redBlack) );
262 }
263 #endif // GUARDDOALLREGULARGSRB
264 
265 #ifndef GUARDSLOWGSRBEBAMRPO
266 #define GUARDSLOWGSRBEBAMRPO
267 // Prototype for Fortran procedure slowgsrbebamrpo ...
268 //
269 void FORTRAN_NAME( SLOWGSRBEBAMRPO ,slowgsrbebamrpo )(
270  CHFp_FRA1(phi)
271  ,CHFp_CONST_FRA1(lph)
272  ,CHFp_CONST_FRA1(rhs)
273  ,CHFp_CONST_FRA1(lam)
274  ,CHFp_BOX(coloredbox) );
275 
276 #define FORT_SLOWGSRBEBAMRPO FORTRAN_NAME( inlineSLOWGSRBEBAMRPO, inlineSLOWGSRBEBAMRPO)
277 #define FORTNT_SLOWGSRBEBAMRPO FORTRAN_NAME( SLOWGSRBEBAMRPO, slowgsrbebamrpo)
278 
279 inline void FORTRAN_NAME(inlineSLOWGSRBEBAMRPO, inlineSLOWGSRBEBAMRPO)(
280  CHFp_FRA1(phi)
281  ,CHFp_CONST_FRA1(lph)
282  ,CHFp_CONST_FRA1(rhs)
283  ,CHFp_CONST_FRA1(lam)
284  ,CHFp_BOX(coloredbox) )
285 {
286  CH_TIMELEAF("FORT_SLOWGSRBEBAMRPO");
287  FORTRAN_NAME( SLOWGSRBEBAMRPO ,slowgsrbebamrpo )(
288  CHFt_FRA1(phi)
289  ,CHFt_CONST_FRA1(lph)
290  ,CHFt_CONST_FRA1(rhs)
291  ,CHFt_CONST_FRA1(lam)
292  ,CHFt_BOX(coloredbox) );
293 }
294 #endif // GUARDSLOWGSRBEBAMRPO
295 
296 #ifndef GUARDDOALLREGULARJACOBI
297 #define GUARDDOALLREGULARJACOBI
298 // Prototype for Fortran procedure doallregularjacobi ...
299 //
300 void FORTRAN_NAME( DOALLREGULARJACOBI ,doallregularjacobi )(
301  CHFp_FRA1(phi)
302  ,CHFp_CONST_FRA1(rhs)
303  ,CHFp_CONST_REAL(weight)
304  ,CHFp_CONST_REAL(alpha)
305  ,CHFp_CONST_REAL(beta)
307  ,CHFp_BOX(box) );
308 
309 #define FORT_DOALLREGULARJACOBI FORTRAN_NAME( inlineDOALLREGULARJACOBI, inlineDOALLREGULARJACOBI)
310 #define FORTNT_DOALLREGULARJACOBI FORTRAN_NAME( DOALLREGULARJACOBI, doallregularjacobi)
311 
312 inline void FORTRAN_NAME(inlineDOALLREGULARJACOBI, inlineDOALLREGULARJACOBI)(
313  CHFp_FRA1(phi)
314  ,CHFp_CONST_FRA1(rhs)
315  ,CHFp_CONST_REAL(weight)
316  ,CHFp_CONST_REAL(alpha)
317  ,CHFp_CONST_REAL(beta)
319  ,CHFp_BOX(box) )
320 {
321  CH_TIMELEAF("FORT_DOALLREGULARJACOBI");
322  FORTRAN_NAME( DOALLREGULARJACOBI ,doallregularjacobi )(
323  CHFt_FRA1(phi)
324  ,CHFt_CONST_FRA1(rhs)
325  ,CHFt_CONST_REAL(weight)
326  ,CHFt_CONST_REAL(alpha)
327  ,CHFt_CONST_REAL(beta)
329  ,CHFt_BOX(box) );
330 }
331 #endif // GUARDDOALLREGULARJACOBI
332 
333 #ifndef GUARDUNDOREGULARGS
334 #define GUARDUNDOREGULARGS
335 // Prototype for Fortran procedure undoregulargs ...
336 //
337 void FORTRAN_NAME( UNDOREGULARGS ,undoregulargs )(
338  CHFp_FRA1(phi)
339  ,CHFp_CONST_FRA1(rhs)
340  ,CHFp_CONST_REAL(weight)
341  ,CHFp_CONST_REAL(alpha)
342  ,CHFp_CONST_REAL(beta)
344  ,CHFp_CONST_INTVECT(iv) );
345 
346 #define FORT_UNDOREGULARGS FORTRAN_NAME( inlineUNDOREGULARGS, inlineUNDOREGULARGS)
347 #define FORTNT_UNDOREGULARGS FORTRAN_NAME( UNDOREGULARGS, undoregulargs)
348 
349 inline void FORTRAN_NAME(inlineUNDOREGULARGS, inlineUNDOREGULARGS)(
350  CHFp_FRA1(phi)
351  ,CHFp_CONST_FRA1(rhs)
352  ,CHFp_CONST_REAL(weight)
353  ,CHFp_CONST_REAL(alpha)
354  ,CHFp_CONST_REAL(beta)
357 {
358  CH_TIMELEAF("FORT_UNDOREGULARGS");
359  FORTRAN_NAME( UNDOREGULARGS ,undoregulargs )(
360  CHFt_FRA1(phi)
361  ,CHFt_CONST_FRA1(rhs)
362  ,CHFt_CONST_REAL(weight)
363  ,CHFt_CONST_REAL(alpha)
364  ,CHFt_CONST_REAL(beta)
366  ,CHFt_CONST_INTVECT(iv) );
367 }
368 #endif // GUARDUNDOREGULARGS
369 
370 #ifndef GUARDREGAPPLYDOMAINFLUX_INPLACE
371 #define GUARDREGAPPLYDOMAINFLUX_INPLACE
372 // Prototype for Fortran procedure regapplydomainflux_inplace ...
373 //
374 void FORTRAN_NAME( REGAPPLYDOMAINFLUX_INPLACE ,regapplydomainflux_inplace )(
375  CHFp_FRA1(phi)
376  ,CHFp_CONST_FRA1(faceflux)
377  ,CHFp_CONST_REAL(dx)
378  ,CHFp_CONST_INT(side)
379  ,CHFp_CONST_INT(idir)
380  ,CHFp_BOX(box) );
381 
382 #define FORT_REGAPPLYDOMAINFLUX_INPLACE FORTRAN_NAME( inlineREGAPPLYDOMAINFLUX_INPLACE, inlineREGAPPLYDOMAINFLUX_INPLACE)
383 #define FORTNT_REGAPPLYDOMAINFLUX_INPLACE FORTRAN_NAME( REGAPPLYDOMAINFLUX_INPLACE, regapplydomainflux_inplace)
384 
385 inline void FORTRAN_NAME(inlineREGAPPLYDOMAINFLUX_INPLACE, inlineREGAPPLYDOMAINFLUX_INPLACE)(
386  CHFp_FRA1(phi)
387  ,CHFp_CONST_FRA1(faceflux)
388  ,CHFp_CONST_REAL(dx)
389  ,CHFp_CONST_INT(side)
390  ,CHFp_CONST_INT(idir)
391  ,CHFp_BOX(box) )
392 {
393  CH_TIMELEAF("FORT_REGAPPLYDOMAINFLUX_INPLACE");
394  FORTRAN_NAME( REGAPPLYDOMAINFLUX_INPLACE ,regapplydomainflux_inplace )(
395  CHFt_FRA1(phi)
396  ,CHFt_CONST_FRA1(faceflux)
397  ,CHFt_CONST_REAL(dx)
398  ,CHFt_CONST_INT(side)
399  ,CHFt_CONST_INT(idir)
400  ,CHFt_BOX(box) );
401 }
402 #endif // GUARDREGAPPLYDOMAINFLUX_INPLACE
403 
404 #ifndef GUARDMVOPERATORLAP
405 #define GUARDMVOPERATORLAP
406 // Prototype for Fortran procedure mvoperatorlap ...
407 //
408 void FORTRAN_NAME( MVOPERATORLAP ,mvoperatorlap )(
409  CHFp_FRA(lph)
410  ,CHFp_CONST_FRA(phi)
411  ,CHFp_CONST_REAL(beta)
412  ,CHFp_CONST_INT(ncomps)
414  ,CHFp_BOX(box) );
415 
416 #define FORT_MVOPERATORLAP FORTRAN_NAME( inlineMVOPERATORLAP, inlineMVOPERATORLAP)
417 #define FORTNT_MVOPERATORLAP FORTRAN_NAME( MVOPERATORLAP, mvoperatorlap)
418 
419 inline void FORTRAN_NAME(inlineMVOPERATORLAP, inlineMVOPERATORLAP)(
420  CHFp_FRA(lph)
421  ,CHFp_CONST_FRA(phi)
422  ,CHFp_CONST_REAL(beta)
423  ,CHFp_CONST_INT(ncomps)
425  ,CHFp_BOX(box) )
426 {
427  CH_TIMELEAF("FORT_MVOPERATORLAP");
428  FORTRAN_NAME( MVOPERATORLAP ,mvoperatorlap )(
429  CHFt_FRA(lph)
430  ,CHFt_CONST_FRA(phi)
431  ,CHFt_CONST_REAL(beta)
432  ,CHFt_CONST_INT(ncomps)
434  ,CHFt_BOX(box) );
435 }
436 #endif // GUARDMVOPERATORLAP
437 
438 #ifndef GUARDREGINCRLAPLACIAN_INPLACE
439 #define GUARDREGINCRLAPLACIAN_INPLACE
440 // Prototype for Fortran procedure regincrlaplacian_inplace ...
441 //
442 void FORTRAN_NAME( REGINCRLAPLACIAN_INPLACE ,regincrlaplacian_inplace )(
443  CHFp_FRA1(opphidir)
444  ,CHFp_CONST_FRA1(phi)
445  ,CHFp_CONST_REAL(beta)
447  ,CHFp_BOX(box) );
448 
449 #define FORT_REGINCRLAPLACIAN_INPLACE FORTRAN_NAME( inlineREGINCRLAPLACIAN_INPLACE, inlineREGINCRLAPLACIAN_INPLACE)
450 #define FORTNT_REGINCRLAPLACIAN_INPLACE FORTRAN_NAME( REGINCRLAPLACIAN_INPLACE, regincrlaplacian_inplace)
451 
452 inline void FORTRAN_NAME(inlineREGINCRLAPLACIAN_INPLACE, inlineREGINCRLAPLACIAN_INPLACE)(
453  CHFp_FRA1(opphidir)
454  ,CHFp_CONST_FRA1(phi)
455  ,CHFp_CONST_REAL(beta)
457  ,CHFp_BOX(box) )
458 {
459  CH_TIMELEAF("FORT_REGINCRLAPLACIAN_INPLACE");
460  FORTRAN_NAME( REGINCRLAPLACIAN_INPLACE ,regincrlaplacian_inplace )(
461  CHFt_FRA1(opphidir)
462  ,CHFt_CONST_FRA1(phi)
463  ,CHFt_CONST_REAL(beta)
465  ,CHFt_BOX(box) );
466 }
467 #endif // GUARDREGINCRLAPLACIAN_INPLACE
468 
469 #ifndef GUARDREGGET1DLAPLACIAN
470 #define GUARDREGGET1DLAPLACIAN
471 // Prototype for Fortran procedure regget1dlaplacian ...
472 //
473 void FORTRAN_NAME( REGGET1DLAPLACIAN ,regget1dlaplacian )(
474  CHFp_FRA1(opphidir)
475  ,CHFp_CONST_FRA1(phi)
476  ,CHFp_CONST_REAL(dx)
477  ,CHFp_CONST_REAL(beta)
478  ,CHFp_CONST_INT(idir)
479  ,CHFp_BOX(lobox)
480  ,CHFp_CONST_INT(haslo)
481  ,CHFp_BOX(hibox)
482  ,CHFp_CONST_INT(hashi)
483  ,CHFp_BOX(centerbox) );
484 
485 #define FORT_REGGET1DLAPLACIAN FORTRAN_NAME( inlineREGGET1DLAPLACIAN, inlineREGGET1DLAPLACIAN)
486 #define FORTNT_REGGET1DLAPLACIAN FORTRAN_NAME( REGGET1DLAPLACIAN, regget1dlaplacian)
487 
488 inline void FORTRAN_NAME(inlineREGGET1DLAPLACIAN, inlineREGGET1DLAPLACIAN)(
489  CHFp_FRA1(opphidir)
490  ,CHFp_CONST_FRA1(phi)
491  ,CHFp_CONST_REAL(dx)
492  ,CHFp_CONST_REAL(beta)
493  ,CHFp_CONST_INT(idir)
494  ,CHFp_BOX(lobox)
495  ,CHFp_CONST_INT(haslo)
496  ,CHFp_BOX(hibox)
497  ,CHFp_CONST_INT(hashi)
498  ,CHFp_BOX(centerbox) )
499 {
500  CH_TIMELEAF("FORT_REGGET1DLAPLACIAN");
501  FORTRAN_NAME( REGGET1DLAPLACIAN ,regget1dlaplacian )(
502  CHFt_FRA1(opphidir)
503  ,CHFt_CONST_FRA1(phi)
504  ,CHFt_CONST_REAL(dx)
505  ,CHFt_CONST_REAL(beta)
506  ,CHFt_CONST_INT(idir)
507  ,CHFt_BOX(lobox)
508  ,CHFt_CONST_INT(haslo)
509  ,CHFt_BOX(hibox)
510  ,CHFt_CONST_INT(hashi)
511  ,CHFt_BOX(centerbox) );
512 }
513 #endif // GUARDREGGET1DLAPLACIAN
514 
515 #ifndef GUARDREGAPPLYDOMAINFLUX
516 #define GUARDREGAPPLYDOMAINFLUX
517 // Prototype for Fortran procedure regapplydomainflux ...
518 //
519 void FORTRAN_NAME( REGAPPLYDOMAINFLUX ,regapplydomainflux )(
520  CHFp_FRA1(opphidir)
521  ,CHFp_CONST_FRA1(faceflux)
522  ,CHFp_CONST_REAL(dx)
523  ,CHFp_CONST_REAL(beta)
524  ,CHFp_CONST_INT(idir)
525  ,CHFp_CONST_INT(side)
526  ,CHFp_BOX(lobox) );
527 
528 #define FORT_REGAPPLYDOMAINFLUX FORTRAN_NAME( inlineREGAPPLYDOMAINFLUX, inlineREGAPPLYDOMAINFLUX)
529 #define FORTNT_REGAPPLYDOMAINFLUX FORTRAN_NAME( REGAPPLYDOMAINFLUX, regapplydomainflux)
530 
531 inline void FORTRAN_NAME(inlineREGAPPLYDOMAINFLUX, inlineREGAPPLYDOMAINFLUX)(
532  CHFp_FRA1(opphidir)
533  ,CHFp_CONST_FRA1(faceflux)
534  ,CHFp_CONST_REAL(dx)
535  ,CHFp_CONST_REAL(beta)
536  ,CHFp_CONST_INT(idir)
537  ,CHFp_CONST_INT(side)
538  ,CHFp_BOX(lobox) )
539 {
540  CH_TIMELEAF("FORT_REGAPPLYDOMAINFLUX");
541  FORTRAN_NAME( REGAPPLYDOMAINFLUX ,regapplydomainflux )(
542  CHFt_FRA1(opphidir)
543  ,CHFt_CONST_FRA1(faceflux)
544  ,CHFt_CONST_REAL(dx)
545  ,CHFt_CONST_REAL(beta)
546  ,CHFt_CONST_INT(idir)
547  ,CHFt_CONST_INT(side)
548  ,CHFt_BOX(lobox) );
549 }
550 #endif // GUARDREGAPPLYDOMAINFLUX
551 
552 #ifndef GUARDREGSUMLAPLACIAN
553 #define GUARDREGSUMLAPLACIAN
554 // Prototype for Fortran procedure regsumlaplacian ...
555 //
556 void FORTRAN_NAME( REGSUMLAPLACIAN ,regsumlaplacian )(
557  CHFp_FRA1(opphi)
558  ,CHFp_CONST_FRA1(opphidir)
559  ,CHFp_BOX(opphibox) );
560 
561 #define FORT_REGSUMLAPLACIAN FORTRAN_NAME( inlineREGSUMLAPLACIAN, inlineREGSUMLAPLACIAN)
562 #define FORTNT_REGSUMLAPLACIAN FORTRAN_NAME( REGSUMLAPLACIAN, regsumlaplacian)
563 
564 inline void FORTRAN_NAME(inlineREGSUMLAPLACIAN, inlineREGSUMLAPLACIAN)(
565  CHFp_FRA1(opphi)
566  ,CHFp_CONST_FRA1(opphidir)
567  ,CHFp_BOX(opphibox) )
568 {
569  CH_TIMELEAF("FORT_REGSUMLAPLACIAN");
570  FORTRAN_NAME( REGSUMLAPLACIAN ,regsumlaplacian )(
571  CHFt_FRA1(opphi)
572  ,CHFt_CONST_FRA1(opphidir)
573  ,CHFt_BOX(opphibox) );
574 }
575 #endif // GUARDREGSUMLAPLACIAN
576 
577 #ifndef GUARDREGMULTICOLORGS
578 #define GUARDREGMULTICOLORGS
579 // Prototype for Fortran procedure regmulticolorgs ...
580 //
581 void FORTRAN_NAME( REGMULTICOLORGS ,regmulticolorgs )(
582  CHFp_FRA1(newphi)
583  ,CHFp_CONST_REAL(weight)
584  ,CHFp_CONST_FRA1(resid)
585  ,CHFp_BOX(coloredbox) );
586 
587 #define FORT_REGMULTICOLORGS FORTRAN_NAME( inlineREGMULTICOLORGS, inlineREGMULTICOLORGS)
588 #define FORTNT_REGMULTICOLORGS FORTRAN_NAME( REGMULTICOLORGS, regmulticolorgs)
589 
590 inline void FORTRAN_NAME(inlineREGMULTICOLORGS, inlineREGMULTICOLORGS)(
591  CHFp_FRA1(newphi)
592  ,CHFp_CONST_REAL(weight)
593  ,CHFp_CONST_FRA1(resid)
594  ,CHFp_BOX(coloredbox) )
595 {
596  CH_TIMELEAF("FORT_REGMULTICOLORGS");
597  FORTRAN_NAME( REGMULTICOLORGS ,regmulticolorgs )(
598  CHFt_FRA1(newphi)
599  ,CHFt_CONST_REAL(weight)
600  ,CHFt_CONST_FRA1(resid)
601  ,CHFt_BOX(coloredbox) );
602 }
603 #endif // GUARDREGMULTICOLORGS
604 
605 #ifndef GUARDREGGSRB
606 #define GUARDREGGSRB
607 // Prototype for Fortran procedure reggsrb ...
608 //
609 void FORTRAN_NAME( REGGSRB ,reggsrb )(
610  CHFp_FRA1(newphi)
611  ,CHFp_CONST_FRA1(resid)
612  ,CHFp_CONST_REAL(weight)
613  ,CHFp_BOX(box)
614  ,CHFp_CONST_INT(color) );
615 
616 #define FORT_REGGSRB FORTRAN_NAME( inlineREGGSRB, inlineREGGSRB)
617 #define FORTNT_REGGSRB FORTRAN_NAME( REGGSRB, reggsrb)
618 
619 inline void FORTRAN_NAME(inlineREGGSRB, inlineREGGSRB)(
620  CHFp_FRA1(newphi)
621  ,CHFp_CONST_FRA1(resid)
622  ,CHFp_CONST_REAL(weight)
623  ,CHFp_BOX(box)
624  ,CHFp_CONST_INT(color) )
625 {
626  CH_TIMELEAF("FORT_REGGSRB");
627  FORTRAN_NAME( REGGSRB ,reggsrb )(
628  CHFt_FRA1(newphi)
629  ,CHFt_CONST_FRA1(resid)
630  ,CHFt_CONST_REAL(weight)
631  ,CHFt_BOX(box)
632  ,CHFt_CONST_INT(color) );
633 }
634 #endif // GUARDREGGSRB
635 
636 #ifndef GUARDREGGETFLUX
637 #define GUARDREGGETFLUX
638 // Prototype for Fortran procedure reggetflux ...
639 //
640 void FORTRAN_NAME( REGGETFLUX ,reggetflux )(
641  CHFp_FRA(flux)
642  ,CHFp_CONST_FRA(phi)
643  ,CHFp_BOX(opphibox)
644  ,CHFp_CONST_REAL(beta)
646  ,CHFp_CONST_INT(idir)
647  ,CHFp_CONST_INT(ncomp) );
648 
649 #define FORT_REGGETFLUX FORTRAN_NAME( inlineREGGETFLUX, inlineREGGETFLUX)
650 #define FORTNT_REGGETFLUX FORTRAN_NAME( REGGETFLUX, reggetflux)
651 
652 inline void FORTRAN_NAME(inlineREGGETFLUX, inlineREGGETFLUX)(
653  CHFp_FRA(flux)
654  ,CHFp_CONST_FRA(phi)
655  ,CHFp_BOX(opphibox)
656  ,CHFp_CONST_REAL(beta)
658  ,CHFp_CONST_INT(idir)
659  ,CHFp_CONST_INT(ncomp) )
660 {
661  CH_TIMELEAF("FORT_REGGETFLUX");
662  FORTRAN_NAME( REGGETFLUX ,reggetflux )(
663  CHFt_FRA(flux)
664  ,CHFt_CONST_FRA(phi)
665  ,CHFt_BOX(opphibox)
666  ,CHFt_CONST_REAL(beta)
668  ,CHFt_CONST_INT(idir)
669  ,CHFt_CONST_INT(ncomp) );
670 }
671 #endif // GUARDREGGETFLUX
672 
673 }
674 
675 #endif
#define CHFp_FRA(a)
Definition: FORT_PROTO.H:803
#define CHFt_CONST_INT(i)
Definition: FORT_PROTO.H:989
void CHFp_CONST_FBA1(mask))
Definition: EBAMRPoissonOpF_F.H:112
#define CHFp_FRA1(a)
Definition: FORT_PROTO.H:913
void CHFp_CONST_FRA(rhs)
void CHFp_CONST_REALVECT(dx)
void CHFp_CONST_FRA1(aone)
#define CHFt_FRA(a)
Definition: FORT_PROTO.H:1053
IndexTM< T, N > scale(const IndexTM< T, N > &a_p, T a_s)
Definition: IndexTMI.H:382
#define CHFt_INT(i)
Definition: FORT_PROTO.H:988
Definition: EBInterface.H:45
#define CHFt_CONST_FRA(a)
Definition: FORT_PROTO.H:1095
Real maxnorm(const NodeFArrayBox &a_nfab, const Box &a_subbox, const int a_startComp=0, const int a_numComp=1)
Computes max norm of a subbox of a NodeFArrayBox.
#define CHFt_FRA1(a)
Definition: FORT_PROTO.H:1136
void FORTRAN_NAME(EBAMRPDOTPROD, ebamrpdotprod)(CHFp_REAL(sum)
#define CHFt_CONST_REALVECT(r)
Definition: FORT_PROTO.H:1016
void CHFp_CONST_INT(ncomp)
Definition: EBAMRPoissonOpF_F.H:659
void CHFp_CONST_REAL(weight)
#define CHFt_CONST_FRA1(a)
Definition: FORT_PROTO.H:1188
#define CHFt_BOX(b)
Definition: FORT_PROTO.H:1026
#define CH_TIMELEAF(name)
Definition: CH_Timer.H:100
void CHFp_BOX(box))
Definition: EBAMRPoissonOpF_F.H:28
void CHFp_REAL(scale)
#define CHFt_CONST_FBA1(a)
Definition: FORT_PROTO.H:1175
#define CHFt_CONST_REAL(r)
Definition: FORT_PROTO.H:991
#define CHFt_CONST_INTVECT(r)
Definition: FORT_PROTO.H:1014
void CHFp_INT(ncomp))
Definition: EBAMRPoissonOpF_F.H:138
#define CHFt_REAL(r)
Definition: FORT_PROTO.H:990
void CHFp_CONST_INTVECT(iv))
Definition: EBAMRPoissonOpF_F.H:356