Chombo + EB + MF  3.2
InterpF_F.H
Go to the documentation of this file.
1 #ifndef _INTERPF_F_H_
2 #define _INTERPF_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 GUARDINTERPCONSTANT
12 #define GUARDINTERPCONSTANT
13 // Prototype for Fortran procedure interpconstant ...
14 //
15 void FORTRAN_NAME( INTERPCONSTANT ,interpconstant )(
16  CHFp_FRA(fine)
17  ,CHFp_CONST_FRA(coarse)
18  ,CHFp_BOX(b)
19  ,CHFp_CONST_INT(ref_ratio)
20  ,CHFp_BOX(bref) );
21 
22 #define FORT_INTERPCONSTANT FORTRAN_NAME( inlineINTERPCONSTANT, inlineINTERPCONSTANT)
23 #define FORTNT_INTERPCONSTANT FORTRAN_NAME( INTERPCONSTANT, interpconstant)
24 
25 inline void FORTRAN_NAME(inlineINTERPCONSTANT, inlineINTERPCONSTANT)(
26  CHFp_FRA(fine)
27  ,CHFp_CONST_FRA(coarse)
28  ,CHFp_BOX(b)
29  ,CHFp_CONST_INT(ref_ratio)
30  ,CHFp_BOX(bref) )
31 {
32  CH_TIMELEAF("FORT_INTERPCONSTANT");
33  FORTRAN_NAME( INTERPCONSTANT ,interpconstant )(
34  CHFt_FRA(fine)
35  ,CHFt_CONST_FRA(coarse)
36  ,CHFt_BOX(b)
37  ,CHFt_CONST_INT(ref_ratio)
38  ,CHFt_BOX(bref) );
39 }
40 #endif // GUARDINTERPCONSTANT
41 
42 #ifndef GUARDINTERPCENTRALSLOPE
43 #define GUARDINTERPCENTRALSLOPE
44 // Prototype for Fortran procedure interpcentralslope ...
45 //
46 void FORTRAN_NAME( INTERPCENTRALSLOPE ,interpcentralslope )(
47  CHFp_FRA(slope)
48  ,CHFp_CONST_FRA(state)
49  ,CHFp_BOX(b)
50  ,CHFp_CONST_INT(dir) );
51 
52 #define FORT_INTERPCENTRALSLOPE FORTRAN_NAME( inlineINTERPCENTRALSLOPE, inlineINTERPCENTRALSLOPE)
53 #define FORTNT_INTERPCENTRALSLOPE FORTRAN_NAME( INTERPCENTRALSLOPE, interpcentralslope)
54 
55 inline void FORTRAN_NAME(inlineINTERPCENTRALSLOPE, inlineINTERPCENTRALSLOPE)(
56  CHFp_FRA(slope)
57  ,CHFp_CONST_FRA(state)
58  ,CHFp_BOX(b)
60 {
61  CH_TIMELEAF("FORT_INTERPCENTRALSLOPE");
62  FORTRAN_NAME( INTERPCENTRALSLOPE ,interpcentralslope )(
63  CHFt_FRA(slope)
64  ,CHFt_CONST_FRA(state)
65  ,CHFt_BOX(b)
66  ,CHFt_CONST_INT(dir) );
67 }
68 #endif // GUARDINTERPCENTRALSLOPE
69 
70 #ifndef GUARDINTERPHISIDESLOPE
71 #define GUARDINTERPHISIDESLOPE
72 // Prototype for Fortran procedure interphisideslope ...
73 //
74 void FORTRAN_NAME( INTERPHISIDESLOPE ,interphisideslope )(
75  CHFp_FRA(slope)
76  ,CHFp_CONST_FRA(state)
77  ,CHFp_BOX(b)
78  ,CHFp_CONST_INT(dir) );
79 
80 #define FORT_INTERPHISIDESLOPE FORTRAN_NAME( inlineINTERPHISIDESLOPE, inlineINTERPHISIDESLOPE)
81 #define FORTNT_INTERPHISIDESLOPE FORTRAN_NAME( INTERPHISIDESLOPE, interphisideslope)
82 
83 inline void FORTRAN_NAME(inlineINTERPHISIDESLOPE, inlineINTERPHISIDESLOPE)(
84  CHFp_FRA(slope)
85  ,CHFp_CONST_FRA(state)
86  ,CHFp_BOX(b)
87  ,CHFp_CONST_INT(dir) )
88 {
89  CH_TIMELEAF("FORT_INTERPHISIDESLOPE");
90  FORTRAN_NAME( INTERPHISIDESLOPE ,interphisideslope )(
91  CHFt_FRA(slope)
92  ,CHFt_CONST_FRA(state)
93  ,CHFt_BOX(b)
94  ,CHFt_CONST_INT(dir) );
95 }
96 #endif // GUARDINTERPHISIDESLOPE
97 
98 #ifndef GUARDINTERPLOSIDESLOPE
99 #define GUARDINTERPLOSIDESLOPE
100 // Prototype for Fortran procedure interplosideslope ...
101 //
102 void FORTRAN_NAME( INTERPLOSIDESLOPE ,interplosideslope )(
103  CHFp_FRA(slope)
104  ,CHFp_CONST_FRA(state)
105  ,CHFp_BOX(b)
106  ,CHFp_CONST_INT(dir) );
107 
108 #define FORT_INTERPLOSIDESLOPE FORTRAN_NAME( inlineINTERPLOSIDESLOPE, inlineINTERPLOSIDESLOPE)
109 #define FORTNT_INTERPLOSIDESLOPE FORTRAN_NAME( INTERPLOSIDESLOPE, interplosideslope)
110 
111 inline void FORTRAN_NAME(inlineINTERPLOSIDESLOPE, inlineINTERPLOSIDESLOPE)(
112  CHFp_FRA(slope)
113  ,CHFp_CONST_FRA(state)
114  ,CHFp_BOX(b)
115  ,CHFp_CONST_INT(dir) )
116 {
117  CH_TIMELEAF("FORT_INTERPLOSIDESLOPE");
118  FORTRAN_NAME( INTERPLOSIDESLOPE ,interplosideslope )(
119  CHFt_FRA(slope)
120  ,CHFt_CONST_FRA(state)
121  ,CHFt_BOX(b)
122  ,CHFt_CONST_INT(dir) );
123 }
124 #endif // GUARDINTERPLOSIDESLOPE
125 
126 #ifndef GUARDINTERPLIMIT
127 #define GUARDINTERPLIMIT
128 // Prototype for Fortran procedure interplimit ...
129 //
130 void FORTRAN_NAME( INTERPLIMIT ,interplimit )(
131  CHFp_FRA(islope)
132  ,CHFp_FRA(jslope)
133  ,CHFp_FRA(kslope)
134  ,CHFp_CONST_FRA(state)
135  ,CHFp_BOX(bcoarse)
136  ,CHFp_BOX(bn)
137  ,CHFp_BOX(physdomain) );
138 
139 #define FORT_INTERPLIMIT FORTRAN_NAME( inlineINTERPLIMIT, inlineINTERPLIMIT)
140 #define FORTNT_INTERPLIMIT FORTRAN_NAME( INTERPLIMIT, interplimit)
141 
142 inline void FORTRAN_NAME(inlineINTERPLIMIT, inlineINTERPLIMIT)(
143  CHFp_FRA(islope)
144  ,CHFp_FRA(jslope)
145  ,CHFp_FRA(kslope)
146  ,CHFp_CONST_FRA(state)
147  ,CHFp_BOX(bcoarse)
148  ,CHFp_BOX(bn)
149  ,CHFp_BOX(physdomain) )
150 {
151  CH_TIMELEAF("FORT_INTERPLIMIT");
152  FORTRAN_NAME( INTERPLIMIT ,interplimit )(
153  CHFt_FRA(islope)
154  ,CHFt_FRA(jslope)
155  ,CHFt_FRA(kslope)
156  ,CHFt_CONST_FRA(state)
157  ,CHFt_BOX(bcoarse)
158  ,CHFt_BOX(bn)
159  ,CHFt_BOX(physdomain) );
160 }
161 #endif // GUARDINTERPLIMIT
162 
163 #ifndef GUARDINTERPLINEAR
164 #define GUARDINTERPLINEAR
165 // Prototype for Fortran procedure interplinear ...
166 //
167 void FORTRAN_NAME( INTERPLINEAR ,interplinear )(
168  CHFp_FRA(fine)
169  ,CHFp_CONST_FRA(slope)
170  ,CHFp_BOX(b)
171  ,CHFp_CONST_INT(dir)
172  ,CHFp_CONST_INT(ref_ratio)
173  ,CHFp_BOX(bref) );
174 
175 #define FORT_INTERPLINEAR FORTRAN_NAME( inlineINTERPLINEAR, inlineINTERPLINEAR)
176 #define FORTNT_INTERPLINEAR FORTRAN_NAME( INTERPLINEAR, interplinear)
177 
178 inline void FORTRAN_NAME(inlineINTERPLINEAR, inlineINTERPLINEAR)(
179  CHFp_FRA(fine)
180  ,CHFp_CONST_FRA(slope)
181  ,CHFp_BOX(b)
182  ,CHFp_CONST_INT(dir)
183  ,CHFp_CONST_INT(ref_ratio)
184  ,CHFp_BOX(bref) )
185 {
186  CH_TIMELEAF("FORT_INTERPLINEAR");
187  FORTRAN_NAME( INTERPLINEAR ,interplinear )(
188  CHFt_FRA(fine)
189  ,CHFt_CONST_FRA(slope)
190  ,CHFt_BOX(b)
191  ,CHFt_CONST_INT(dir)
192  ,CHFt_CONST_INT(ref_ratio)
193  ,CHFt_BOX(bref) );
194 }
195 #endif // GUARDINTERPLINEAR
196 
197 #ifndef GUARDINTERPHOMO_OLD
198 #define GUARDINTERPHOMO_OLD
199 // Prototype for Fortran procedure INTERPHOMO_OLD ...
200 //
201 void FORTRAN_NAME( INTERPHOMO_OLD ,interphomo_old )(
202  CHFp_FRA(phi)
203  ,CHFp_BOX(region)
204  ,CHFp_CONST_REAL(x1)
205  ,CHFp_CONST_REAL(dxCrse)
206  ,CHFp_CONST_INT(idir)
207  ,CHFp_CONST_INT(ihilo) );
208 
209 #define FORT_INTERPHOMO_OLD FORTRAN_NAME( inlineINTERPHOMO_OLD, inlineINTERPHOMO_OLD)
210 #define FORTNT_INTERPHOMO_OLD FORTRAN_NAME( INTERPHOMO_OLD, interphomo_old)
211 
212 inline void FORTRAN_NAME(inlineINTERPHOMO_OLD, inlineINTERPHOMO_OLD)(
213  CHFp_FRA(phi)
214  ,CHFp_BOX(region)
215  ,CHFp_CONST_REAL(x1)
216  ,CHFp_CONST_REAL(dxCrse)
217  ,CHFp_CONST_INT(idir)
218  ,CHFp_CONST_INT(ihilo) )
219 {
220  CH_TIMELEAF("FORT_INTERPHOMO_OLD");
221  FORTRAN_NAME( INTERPHOMO_OLD ,interphomo_old )(
222  CHFt_FRA(phi)
223  ,CHFt_BOX(region)
224  ,CHFt_CONST_REAL(x1)
225  ,CHFt_CONST_REAL(dxCrse)
226  ,CHFt_CONST_INT(idir)
227  ,CHFt_CONST_INT(ihilo) );
228 }
229 #endif // GUARDINTERPHOMO_OLD
230 
231 #ifndef GUARDINTERPHOMO
232 #define GUARDINTERPHOMO
233 // Prototype for Fortran procedure INTERPHOMO ...
234 //
235 void FORTRAN_NAME( INTERPHOMO ,interphomo )(
236  CHFp_FRA(phi)
237  ,CHFp_BOX(region)
238  ,CHFp_CONST_REAL(x1)
239  ,CHFp_CONST_REAL(dxCrse)
240  ,CHFp_CONST_INT(idir)
241  ,CHFp_CONST_INT(ihilo) );
242 
243 #define FORT_INTERPHOMO FORTRAN_NAME( inlineINTERPHOMO, inlineINTERPHOMO)
244 #define FORTNT_INTERPHOMO FORTRAN_NAME( INTERPHOMO, interphomo)
245 
246 inline void FORTRAN_NAME(inlineINTERPHOMO, inlineINTERPHOMO)(
247  CHFp_FRA(phi)
248  ,CHFp_BOX(region)
249  ,CHFp_CONST_REAL(x1)
250  ,CHFp_CONST_REAL(dxCrse)
251  ,CHFp_CONST_INT(idir)
252  ,CHFp_CONST_INT(ihilo) )
253 {
254  CH_TIMELEAF("FORT_INTERPHOMO");
255  FORTRAN_NAME( INTERPHOMO ,interphomo )(
256  CHFt_FRA(phi)
257  ,CHFt_BOX(region)
258  ,CHFt_CONST_REAL(x1)
259  ,CHFt_CONST_REAL(dxCrse)
260  ,CHFt_CONST_INT(idir)
261  ,CHFt_CONST_INT(ihilo) );
262 }
263 #endif // GUARDINTERPHOMO
264 
265 #ifndef GUARDINTERPHOMOLINEAR
266 #define GUARDINTERPHOMOLINEAR
267 // Prototype for Fortran procedure INTERPHOMOLINEAR ...
268 //
269 void FORTRAN_NAME( INTERPHOMOLINEAR ,interphomolinear )(
270  CHFp_FRA(phi)
271  ,CHFp_BOX(region)
272  ,CHFp_CONST_REAL(x1)
273  ,CHFp_CONST_REAL(dxCrse)
274  ,CHFp_CONST_INT(idir)
275  ,CHFp_CONST_INT(ihilo) );
276 
277 #define FORT_INTERPHOMOLINEAR FORTRAN_NAME( inlineINTERPHOMOLINEAR, inlineINTERPHOMOLINEAR)
278 #define FORTNT_INTERPHOMOLINEAR FORTRAN_NAME( INTERPHOMOLINEAR, interphomolinear)
279 
280 inline void FORTRAN_NAME(inlineINTERPHOMOLINEAR, inlineINTERPHOMOLINEAR)(
281  CHFp_FRA(phi)
282  ,CHFp_BOX(region)
283  ,CHFp_CONST_REAL(x1)
284  ,CHFp_CONST_REAL(dxCrse)
285  ,CHFp_CONST_INT(idir)
286  ,CHFp_CONST_INT(ihilo) )
287 {
288  CH_TIMELEAF("FORT_INTERPHOMOLINEAR");
289  FORTRAN_NAME( INTERPHOMOLINEAR ,interphomolinear )(
290  CHFt_FRA(phi)
291  ,CHFt_BOX(region)
292  ,CHFt_CONST_REAL(x1)
293  ,CHFt_CONST_REAL(dxCrse)
294  ,CHFt_CONST_INT(idir)
295  ,CHFt_CONST_INT(ihilo) );
296 }
297 #endif // GUARDINTERPHOMOLINEAR
298 
299 }
300 
301 #endif
#define CHFt_CONST_INT(i)
Definition: FORT_PROTO.H:989
#define CHFt_FRA(a)
Definition: FORT_PROTO.H:1053
void CHFp_FRA(jslope)
void CHFp_BOX(b)
#define CHFt_CONST_FRA(a)
Definition: FORT_PROTO.H:1095
void CHFp_CONST_INT(ref_ratio)
Definition: NodeAverageF_F.H:86
void CHFp_CONST_REAL(x1)
void FORTRAN_NAME(INTERPCONSTANT, interpconstant)(CHFp_FRA(fine)
#define CHFt_BOX(b)
Definition: FORT_PROTO.H:1026
#define CH_TIMELEAF(name)
Definition: CH_Timer.H:100
#define CHFt_CONST_REAL(r)
Definition: FORT_PROTO.H:991
void CHFp_CONST_FRA(coarse)