Chombo + EB + MF  3.2
EBInterpolateF_F.H
Go to the documentation of this file.
1 #ifndef _EBINTERPOLATEF_F_H_
2 #define _EBINTERPOLATEF_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 GUARDEBINTERPCONSTANT
12 #define GUARDEBINTERPCONSTANT
13 // Prototype for Fortran procedure ebinterpconstant ...
14 //
15 void FORTRAN_NAME( EBINTERPCONSTANT ,ebinterpconstant )(
16  CHFp_FRA1(fine)
17  ,CHFp_CONST_FRA1(coarse)
18  ,CHFp_BOX(b)
19  ,CHFp_CONST_INT(refratio)
20  ,CHFp_BOX(bref) );
21 
22 #define FORT_EBINTERPCONSTANT FORTRAN_NAME( inlineEBINTERPCONSTANT, inlineEBINTERPCONSTANT)
23 #define FORTNT_EBINTERPCONSTANT FORTRAN_NAME( EBINTERPCONSTANT, ebinterpconstant)
24 
25 inline void FORTRAN_NAME(inlineEBINTERPCONSTANT, inlineEBINTERPCONSTANT)(
26  CHFp_FRA1(fine)
27  ,CHFp_CONST_FRA1(coarse)
28  ,CHFp_BOX(b)
29  ,CHFp_CONST_INT(refratio)
30  ,CHFp_BOX(bref) )
31 {
32  CH_TIMELEAF("FORT_EBINTERPCONSTANT");
33  FORTRAN_NAME( EBINTERPCONSTANT ,ebinterpconstant )(
34  CHFt_FRA1(fine)
35  ,CHFt_CONST_FRA1(coarse)
36  ,CHFt_BOX(b)
37  ,CHFt_CONST_INT(refratio)
38  ,CHFt_BOX(bref) );
39 }
40 #endif // GUARDEBINTERPCONSTANT
41 
42 #ifndef GUARDEBCENTRALSLOPE
43 #define GUARDEBCENTRALSLOPE
44 // Prototype for Fortran procedure ebcentralslope ...
45 //
46 void FORTRAN_NAME( EBCENTRALSLOPE ,ebcentralslope )(
47  CHFp_FRA1(slope)
48  ,CHFp_CONST_FRA1(state)
49  ,CHFp_BOX(b)
50  ,CHFp_CONST_INT(dir) );
51 
52 #define FORT_EBCENTRALSLOPE FORTRAN_NAME( inlineEBCENTRALSLOPE, inlineEBCENTRALSLOPE)
53 #define FORTNT_EBCENTRALSLOPE FORTRAN_NAME( EBCENTRALSLOPE, ebcentralslope)
54 
55 inline void FORTRAN_NAME(inlineEBCENTRALSLOPE, inlineEBCENTRALSLOPE)(
56  CHFp_FRA1(slope)
57  ,CHFp_CONST_FRA1(state)
58  ,CHFp_BOX(b)
60 {
61  CH_TIMELEAF("FORT_EBCENTRALSLOPE");
62  FORTRAN_NAME( EBCENTRALSLOPE ,ebcentralslope )(
63  CHFt_FRA1(slope)
64  ,CHFt_CONST_FRA1(state)
65  ,CHFt_BOX(b)
66  ,CHFt_CONST_INT(dir) );
67 }
68 #endif // GUARDEBCENTRALSLOPE
69 
70 #ifndef GUARDEBHISIDESLOPE
71 #define GUARDEBHISIDESLOPE
72 // Prototype for Fortran procedure ebhisideslope ...
73 //
74 void FORTRAN_NAME( EBHISIDESLOPE ,ebhisideslope )(
75  CHFp_FRA1(slope)
76  ,CHFp_CONST_FRA1(state)
77  ,CHFp_BOX(b)
78  ,CHFp_CONST_INT(dir) );
79 
80 #define FORT_EBHISIDESLOPE FORTRAN_NAME( inlineEBHISIDESLOPE, inlineEBHISIDESLOPE)
81 #define FORTNT_EBHISIDESLOPE FORTRAN_NAME( EBHISIDESLOPE, ebhisideslope)
82 
83 inline void FORTRAN_NAME(inlineEBHISIDESLOPE, inlineEBHISIDESLOPE)(
84  CHFp_FRA1(slope)
85  ,CHFp_CONST_FRA1(state)
86  ,CHFp_BOX(b)
87  ,CHFp_CONST_INT(dir) )
88 {
89  CH_TIMELEAF("FORT_EBHISIDESLOPE");
90  FORTRAN_NAME( EBHISIDESLOPE ,ebhisideslope )(
91  CHFt_FRA1(slope)
92  ,CHFt_CONST_FRA1(state)
93  ,CHFt_BOX(b)
94  ,CHFt_CONST_INT(dir) );
95 }
96 #endif // GUARDEBHISIDESLOPE
97 
98 #ifndef GUARDEBLOSIDESLOPE
99 #define GUARDEBLOSIDESLOPE
100 // Prototype for Fortran procedure eblosideslope ...
101 //
102 void FORTRAN_NAME( EBLOSIDESLOPE ,eblosideslope )(
103  CHFp_FRA1(slope)
104  ,CHFp_CONST_FRA1(state)
105  ,CHFp_BOX(b)
106  ,CHFp_CONST_INT(dir) );
107 
108 #define FORT_EBLOSIDESLOPE FORTRAN_NAME( inlineEBLOSIDESLOPE, inlineEBLOSIDESLOPE)
109 #define FORTNT_EBLOSIDESLOPE FORTRAN_NAME( EBLOSIDESLOPE, eblosideslope)
110 
111 inline void FORTRAN_NAME(inlineEBLOSIDESLOPE, inlineEBLOSIDESLOPE)(
112  CHFp_FRA1(slope)
113  ,CHFp_CONST_FRA1(state)
114  ,CHFp_BOX(b)
115  ,CHFp_CONST_INT(dir) )
116 {
117  CH_TIMELEAF("FORT_EBLOSIDESLOPE");
118  FORTRAN_NAME( EBLOSIDESLOPE ,eblosideslope )(
119  CHFt_FRA1(slope)
120  ,CHFt_CONST_FRA1(state)
121  ,CHFt_BOX(b)
122  ,CHFt_CONST_INT(dir) );
123 }
124 #endif // GUARDEBLOSIDESLOPE
125 
126 #ifndef GUARDEBMAXMINMOD
127 #define GUARDEBMAXMINMOD
128 // Prototype for Fortran procedure ebmaxminmod ...
129 //
130 void FORTRAN_NAME( EBMAXMINMOD ,ebmaxminmod )(
131  CHFp_FRA1(mmslope)
132  ,CHFp_CONST_FRA1(loslope)
133  ,CHFp_CONST_FRA1(hislope)
134  ,CHFp_BOX(slopebox) );
135 
136 #define FORT_EBMAXMINMOD FORTRAN_NAME( inlineEBMAXMINMOD, inlineEBMAXMINMOD)
137 #define FORTNT_EBMAXMINMOD FORTRAN_NAME( EBMAXMINMOD, ebmaxminmod)
138 
139 inline void FORTRAN_NAME(inlineEBMAXMINMOD, inlineEBMAXMINMOD)(
140  CHFp_FRA1(mmslope)
141  ,CHFp_CONST_FRA1(loslope)
142  ,CHFp_CONST_FRA1(hislope)
143  ,CHFp_BOX(slopebox) )
144 {
145  CH_TIMELEAF("FORT_EBMAXMINMOD");
146  FORTRAN_NAME( EBMAXMINMOD ,ebmaxminmod )(
147  CHFt_FRA1(mmslope)
148  ,CHFt_CONST_FRA1(loslope)
149  ,CHFt_CONST_FRA1(hislope)
150  ,CHFt_BOX(slopebox) );
151 }
152 #endif // GUARDEBMAXMINMOD
153 
154 #ifndef GUARDEBINTERPLINEAR
155 #define GUARDEBINTERPLINEAR
156 // Prototype for Fortran procedure ebinterplinear ...
157 //
158 void FORTRAN_NAME( EBINTERPLINEAR ,ebinterplinear )(
159  CHFp_FRA1(fine)
160  ,CHFp_CONST_FRA1(slope)
161  ,CHFp_BOX(b)
162  ,CHFp_CONST_INT(dir)
163  ,CHFp_CONST_INT(refratio)
164  ,CHFp_BOX(bref) );
165 
166 #define FORT_EBINTERPLINEAR FORTRAN_NAME( inlineEBINTERPLINEAR, inlineEBINTERPLINEAR)
167 #define FORTNT_EBINTERPLINEAR FORTRAN_NAME( EBINTERPLINEAR, ebinterplinear)
168 
169 inline void FORTRAN_NAME(inlineEBINTERPLINEAR, inlineEBINTERPLINEAR)(
170  CHFp_FRA1(fine)
171  ,CHFp_CONST_FRA1(slope)
172  ,CHFp_BOX(b)
173  ,CHFp_CONST_INT(dir)
174  ,CHFp_CONST_INT(refratio)
175  ,CHFp_BOX(bref) )
176 {
177  CH_TIMELEAF("FORT_EBINTERPLINEAR");
178  FORTRAN_NAME( EBINTERPLINEAR ,ebinterplinear )(
179  CHFt_FRA1(fine)
180  ,CHFt_CONST_FRA1(slope)
181  ,CHFt_BOX(b)
182  ,CHFt_CONST_INT(dir)
183  ,CHFt_CONST_INT(refratio)
184  ,CHFt_BOX(bref) );
185 }
186 #endif // GUARDEBINTERPLINEAR
187 
188 #ifndef GUARDEBINTERPSMOOTHERLINEAR
189 #define GUARDEBINTERPSMOOTHERLINEAR
190 // Prototype for Fortran procedure ebinterpsmootherlinear ...
191 //
192 void FORTRAN_NAME( EBINTERPSMOOTHERLINEAR ,ebinterpsmootherlinear )(
193  CHFp_FRA1(fine)
194  ,CHFp_CONST_FRA1(coarse)
195  ,CHFp_BOX(b)
196  ,CHFp_CONST_INT(refratio)
197  ,CHFp_BOX(bref) );
198 
199 #define FORT_EBINTERPSMOOTHERLINEAR FORTRAN_NAME( inlineEBINTERPSMOOTHERLINEAR, inlineEBINTERPSMOOTHERLINEAR)
200 #define FORTNT_EBINTERPSMOOTHERLINEAR FORTRAN_NAME( EBINTERPSMOOTHERLINEAR, ebinterpsmootherlinear)
201 
202 inline void FORTRAN_NAME(inlineEBINTERPSMOOTHERLINEAR, inlineEBINTERPSMOOTHERLINEAR)(
203  CHFp_FRA1(fine)
204  ,CHFp_CONST_FRA1(coarse)
205  ,CHFp_BOX(b)
206  ,CHFp_CONST_INT(refratio)
207  ,CHFp_BOX(bref) )
208 {
209  CH_TIMELEAF("FORT_EBINTERPSMOOTHERLINEAR");
210  FORTRAN_NAME( EBINTERPSMOOTHERLINEAR ,ebinterpsmootherlinear )(
211  CHFt_FRA1(fine)
212  ,CHFt_CONST_FRA1(coarse)
213  ,CHFt_BOX(b)
214  ,CHFt_CONST_INT(refratio)
215  ,CHFt_BOX(bref) );
216 }
217 #endif // GUARDEBINTERPSMOOTHERLINEAR
218 
219 #ifndef GUARDEBINTERPQUADRATIC
220 #define GUARDEBINTERPQUADRATIC
221 // Prototype for Fortran procedure ebinterpquadratic ...
222 //
223 void FORTRAN_NAME( EBINTERPQUADRATIC ,ebinterpquadratic )(
224  CHFp_FRA1(fine)
225  ,CHFp_CONST_FRA1(coarse)
226  ,CHFp_BOX(b)
227  ,CHFp_CONST_INT(refratio)
228  ,CHFp_BOX(bref) );
229 
230 #define FORT_EBINTERPQUADRATIC FORTRAN_NAME( inlineEBINTERPQUADRATIC, inlineEBINTERPQUADRATIC)
231 #define FORTNT_EBINTERPQUADRATIC FORTRAN_NAME( EBINTERPQUADRATIC, ebinterpquadratic)
232 
233 inline void FORTRAN_NAME(inlineEBINTERPQUADRATIC, inlineEBINTERPQUADRATIC)(
234  CHFp_FRA1(fine)
235  ,CHFp_CONST_FRA1(coarse)
236  ,CHFp_BOX(b)
237  ,CHFp_CONST_INT(refratio)
238  ,CHFp_BOX(bref) )
239 {
240  CH_TIMELEAF("FORT_EBINTERPQUADRATIC");
241  FORTRAN_NAME( EBINTERPQUADRATIC ,ebinterpquadratic )(
242  CHFt_FRA1(fine)
243  ,CHFt_CONST_FRA1(coarse)
244  ,CHFt_BOX(b)
245  ,CHFt_CONST_INT(refratio)
246  ,CHFt_BOX(bref) );
247 }
248 #endif // GUARDEBINTERPQUADRATIC
249 
250 #ifndef GUARDEBINTERPQUADSHIFT
251 #define GUARDEBINTERPQUADSHIFT
252 // Prototype for Fortran procedure ebinterpquadshift ...
253 //
254 void FORTRAN_NAME( EBINTERPQUADSHIFT ,ebinterpquadshift )(
255  CHFp_FRA1(fine)
256  ,CHFp_CONST_FRA1(coarse)
257  ,CHFp_BOX(b)
258  ,CHFp_CONST_INT(refratio)
259  ,CHFp_CONST_INTVECT(ishift)
260  ,CHFp_BOX(bref) );
261 
262 #define FORT_EBINTERPQUADSHIFT FORTRAN_NAME( inlineEBINTERPQUADSHIFT, inlineEBINTERPQUADSHIFT)
263 #define FORTNT_EBINTERPQUADSHIFT FORTRAN_NAME( EBINTERPQUADSHIFT, ebinterpquadshift)
264 
265 inline void FORTRAN_NAME(inlineEBINTERPQUADSHIFT, inlineEBINTERPQUADSHIFT)(
266  CHFp_FRA1(fine)
267  ,CHFp_CONST_FRA1(coarse)
268  ,CHFp_BOX(b)
269  ,CHFp_CONST_INT(refratio)
270  ,CHFp_CONST_INTVECT(ishift)
271  ,CHFp_BOX(bref) )
272 {
273  CH_TIMELEAF("FORT_EBINTERPQUADSHIFT");
274  FORTRAN_NAME( EBINTERPQUADSHIFT ,ebinterpquadshift )(
275  CHFt_FRA1(fine)
276  ,CHFt_CONST_FRA1(coarse)
277  ,CHFt_BOX(b)
278  ,CHFt_CONST_INT(refratio)
279  ,CHFt_CONST_INTVECT(ishift)
280  ,CHFt_BOX(bref) );
281 }
282 #endif // GUARDEBINTERPQUADSHIFT
283 
284 }
285 
286 #endif
#define CHFt_CONST_INT(i)
Definition: FORT_PROTO.H:989
#define CHFp_FRA1(a)
Definition: FORT_PROTO.H:913
void CHFp_CONST_FRA1(coarse)
void CHFp_CONST_INT(refratio)
void CHFp_BOX(b)
void CHFp_CONST_INTVECT(ishift)
#define CHFt_FRA1(a)
Definition: FORT_PROTO.H:1136
void FORTRAN_NAME(EBINTERPCONSTANT, ebinterpconstant)(CHFp_FRA1(fine)
#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
#define CHFt_CONST_INTVECT(r)
Definition: FORT_PROTO.H:1014