Chombo + EB + MF  3.2
PolytropicPhysicsF_F.H
Go to the documentation of this file.
1 #ifndef _POLYTROPICPHYSICSF_F_H_
2 #define _POLYTROPICPHYSICSF_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 GUARDMAGNITUDEF
12 #define GUARDMAGNITUDEF
13 // Prototype for Fortran procedure MAGNITUDEF ...
14 //
15 void FORTRAN_NAME( MAGNITUDEF ,magnitudef )(
16  CHFp_FRA1(magdata)
17  ,CHFp_CONST_FRA(data)
18  ,CHFp_BOX(box) );
19 
20 #define FORT_MAGNITUDEF FORTRAN_NAME( inlineMAGNITUDEF, inlineMAGNITUDEF)
21 #define FORTNT_MAGNITUDEF FORTRAN_NAME( MAGNITUDEF, magnitudef)
22 
23 inline void FORTRAN_NAME(inlineMAGNITUDEF, inlineMAGNITUDEF)(
24  CHFp_FRA1(magdata)
25  ,CHFp_CONST_FRA(data)
27 {
28  CH_TIMELEAF("FORT_MAGNITUDEF");
29  FORTRAN_NAME( MAGNITUDEF ,magnitudef )(
30  CHFt_FRA1(magdata)
31  ,CHFt_CONST_FRA(data)
32  ,CHFt_BOX(box) );
33 }
34 #endif // GUARDMAGNITUDEF
35 
36 #ifndef GUARDMAXWAVESPEEDF
37 #define GUARDMAXWAVESPEEDF
38 // Prototype for Fortran procedure MAXWAVESPEEDF ...
39 //
40 void FORTRAN_NAME( MAXWAVESPEEDF ,maxwavespeedf )(
41  CHFp_REAL(cmax)
42  ,CHFp_CONST_FRA(U)
43  ,CHFp_BOX(box) );
44 
45 #define FORT_MAXWAVESPEEDF FORTRAN_NAME( inlineMAXWAVESPEEDF, inlineMAXWAVESPEEDF)
46 #define FORTNT_MAXWAVESPEEDF FORTRAN_NAME( MAXWAVESPEEDF, maxwavespeedf)
47 
48 inline void FORTRAN_NAME(inlineMAXWAVESPEEDF, inlineMAXWAVESPEEDF)(
49  CHFp_REAL(cmax)
50  ,CHFp_CONST_FRA(U)
51  ,CHFp_BOX(box) )
52 {
53  CH_TIMELEAF("FORT_MAXWAVESPEEDF");
54  FORTRAN_NAME( MAXWAVESPEEDF ,maxwavespeedf )(
55  CHFt_REAL(cmax)
56  ,CHFt_CONST_FRA(U)
57  ,CHFt_BOX(box) );
58 }
59 #endif // GUARDMAXWAVESPEEDF
60 
61 #ifndef GUARDSOUNDSPEEDF
62 #define GUARDSOUNDSPEEDF
63 // Prototype for Fortran procedure SOUNDSPEEDF ...
64 //
65 void FORTRAN_NAME( SOUNDSPEEDF ,soundspeedf )(
66  CHFp_FRA1(c)
67  ,CHFp_CONST_FRA(U)
68  ,CHFp_BOX(box) );
69 
70 #define FORT_SOUNDSPEEDF FORTRAN_NAME( inlineSOUNDSPEEDF, inlineSOUNDSPEEDF)
71 #define FORTNT_SOUNDSPEEDF FORTRAN_NAME( SOUNDSPEEDF, soundspeedf)
72 
73 inline void FORTRAN_NAME(inlineSOUNDSPEEDF, inlineSOUNDSPEEDF)(
74  CHFp_FRA1(c)
75  ,CHFp_CONST_FRA(U)
76  ,CHFp_BOX(box) )
77 {
78  CH_TIMELEAF("FORT_SOUNDSPEEDF");
79  FORTRAN_NAME( SOUNDSPEEDF ,soundspeedf )(
80  CHFt_FRA1(c)
81  ,CHFt_CONST_FRA(U)
82  ,CHFt_BOX(box) );
83 }
84 #endif // GUARDSOUNDSPEEDF
85 
86 #ifndef GUARDSOUNDSPEEDPRIMF
87 #define GUARDSOUNDSPEEDPRIMF
88 // Prototype for Fortran procedure SOUNDSPEEDPRIMF ...
89 //
90 void FORTRAN_NAME( SOUNDSPEEDPRIMF ,soundspeedprimf )(
91  CHFp_FRA1(c)
92  ,CHFp_CONST_FRA(W)
93  ,CHFp_BOX(box) );
94 
95 #define FORT_SOUNDSPEEDPRIMF FORTRAN_NAME( inlineSOUNDSPEEDPRIMF, inlineSOUNDSPEEDPRIMF)
96 #define FORTNT_SOUNDSPEEDPRIMF FORTRAN_NAME( SOUNDSPEEDPRIMF, soundspeedprimf)
97 
98 inline void FORTRAN_NAME(inlineSOUNDSPEEDPRIMF, inlineSOUNDSPEEDPRIMF)(
99  CHFp_FRA1(c)
100  ,CHFp_CONST_FRA(W)
101  ,CHFp_BOX(box) )
102 {
103  CH_TIMELEAF("FORT_SOUNDSPEEDPRIMF");
104  FORTRAN_NAME( SOUNDSPEEDPRIMF ,soundspeedprimf )(
105  CHFt_FRA1(c)
106  ,CHFt_CONST_FRA(W)
107  ,CHFt_BOX(box) );
108 }
109 #endif // GUARDSOUNDSPEEDPRIMF
110 
111 #ifndef GUARDCONSTOPRIMF
112 #define GUARDCONSTOPRIMF
113 // Prototype for Fortran procedure CONSTOPRIMF ...
114 //
115 void FORTRAN_NAME( CONSTOPRIMF ,constoprimf )(
116  CHFp_FRA(W)
117  ,CHFp_CONST_FRA(U)
118  ,CHFp_BOX(box) );
119 
120 #define FORT_CONSTOPRIMF FORTRAN_NAME( inlineCONSTOPRIMF, inlineCONSTOPRIMF)
121 #define FORTNT_CONSTOPRIMF FORTRAN_NAME( CONSTOPRIMF, constoprimf)
122 
123 inline void FORTRAN_NAME(inlineCONSTOPRIMF, inlineCONSTOPRIMF)(
124  CHFp_FRA(W)
125  ,CHFp_CONST_FRA(U)
126  ,CHFp_BOX(box) )
127 {
128  CH_TIMELEAF("FORT_CONSTOPRIMF");
129  FORTRAN_NAME( CONSTOPRIMF ,constoprimf )(
130  CHFt_FRA(W)
131  ,CHFt_CONST_FRA(U)
132  ,CHFt_BOX(box) );
133 }
134 #endif // GUARDCONSTOPRIMF
135 
136 #ifndef GUARDPRIMTOCONSF
137 #define GUARDPRIMTOCONSF
138 // Prototype for Fortran procedure PRIMTOCONSF ...
139 //
140 void FORTRAN_NAME( PRIMTOCONSF ,primtoconsf )(
141  CHFp_FRA(U)
142  ,CHFp_CONST_FRA(W)
143  ,CHFp_BOX(box) );
144 
145 #define FORT_PRIMTOCONSF FORTRAN_NAME( inlinePRIMTOCONSF, inlinePRIMTOCONSF)
146 #define FORTNT_PRIMTOCONSF FORTRAN_NAME( PRIMTOCONSF, primtoconsf)
147 
148 inline void FORTRAN_NAME(inlinePRIMTOCONSF, inlinePRIMTOCONSF)(
149  CHFp_FRA(U)
150  ,CHFp_CONST_FRA(W)
151  ,CHFp_BOX(box) )
152 {
153  CH_TIMELEAF("FORT_PRIMTOCONSF");
154  FORTRAN_NAME( PRIMTOCONSF ,primtoconsf )(
155  CHFt_FRA(U)
156  ,CHFt_CONST_FRA(W)
157  ,CHFt_BOX(box) );
158 }
159 #endif // GUARDPRIMTOCONSF
160 
161 #ifndef GUARDCHARANALYSISF
162 #define GUARDCHARANALYSISF
163 // Prototype for Fortran procedure CHARANALYSISF ...
164 //
165 void FORTRAN_NAME( CHARANALYSISF ,charanalysisf )(
166  CHFp_FRA(dW)
167  ,CHFp_CONST_FRA(W)
168  ,CHFp_CONST_INT(normdir)
169  ,CHFp_BOX(box) );
170 
171 #define FORT_CHARANALYSISF FORTRAN_NAME( inlineCHARANALYSISF, inlineCHARANALYSISF)
172 #define FORTNT_CHARANALYSISF FORTRAN_NAME( CHARANALYSISF, charanalysisf)
173 
174 inline void FORTRAN_NAME(inlineCHARANALYSISF, inlineCHARANALYSISF)(
175  CHFp_FRA(dW)
176  ,CHFp_CONST_FRA(W)
177  ,CHFp_CONST_INT(normdir)
178  ,CHFp_BOX(box) )
179 {
180  CH_TIMELEAF("FORT_CHARANALYSISF");
181  FORTRAN_NAME( CHARANALYSISF ,charanalysisf )(
182  CHFt_FRA(dW)
183  ,CHFt_CONST_FRA(W)
184  ,CHFt_CONST_INT(normdir)
185  ,CHFt_BOX(box) );
186 }
187 #endif // GUARDCHARANALYSISF
188 
189 #ifndef GUARDCHARSYNTHESISF
190 #define GUARDCHARSYNTHESISF
191 // Prototype for Fortran procedure CHARSYNTHESISF ...
192 //
193 void FORTRAN_NAME( CHARSYNTHESISF ,charsynthesisf )(
194  CHFp_FRA(dW)
195  ,CHFp_CONST_FRA(W)
196  ,CHFp_CONST_INT(normdir)
197  ,CHFp_BOX(box) );
198 
199 #define FORT_CHARSYNTHESISF FORTRAN_NAME( inlineCHARSYNTHESISF, inlineCHARSYNTHESISF)
200 #define FORTNT_CHARSYNTHESISF FORTRAN_NAME( CHARSYNTHESISF, charsynthesisf)
201 
202 inline void FORTRAN_NAME(inlineCHARSYNTHESISF, inlineCHARSYNTHESISF)(
203  CHFp_FRA(dW)
204  ,CHFp_CONST_FRA(W)
205  ,CHFp_CONST_INT(normdir)
206  ,CHFp_BOX(box) )
207 {
208  CH_TIMELEAF("FORT_CHARSYNTHESISF");
209  FORTRAN_NAME( CHARSYNTHESISF ,charsynthesisf )(
210  CHFt_FRA(dW)
211  ,CHFt_CONST_FRA(W)
212  ,CHFt_CONST_INT(normdir)
213  ,CHFt_BOX(box) );
214 }
215 #endif // GUARDCHARSYNTHESISF
216 
217 #ifndef GUARDCHARVALUESF
218 #define GUARDCHARVALUESF
219 // Prototype for Fortran procedure CHARVALUESF ...
220 //
221 void FORTRAN_NAME( CHARVALUESF ,charvaluesf )(
222  CHFp_FRA(lambda)
223  ,CHFp_CONST_FRA(W)
224  ,CHFp_CONST_INT(normdir)
225  ,CHFp_BOX(box) );
226 
227 #define FORT_CHARVALUESF FORTRAN_NAME( inlineCHARVALUESF, inlineCHARVALUESF)
228 #define FORTNT_CHARVALUESF FORTRAN_NAME( CHARVALUESF, charvaluesf)
229 
230 inline void FORTRAN_NAME(inlineCHARVALUESF, inlineCHARVALUESF)(
231  CHFp_FRA(lambda)
232  ,CHFp_CONST_FRA(W)
233  ,CHFp_CONST_INT(normdir)
234  ,CHFp_BOX(box) )
235 {
236  CH_TIMELEAF("FORT_CHARVALUESF");
237  FORTRAN_NAME( CHARVALUESF ,charvaluesf )(
238  CHFt_FRA(lambda)
239  ,CHFt_CONST_FRA(W)
240  ,CHFt_CONST_INT(normdir)
241  ,CHFt_BOX(box) );
242 }
243 #endif // GUARDCHARVALUESF
244 
245 #ifndef GUARDGETADWDXF
246 #define GUARDGETADWDXF
247 // Prototype for Fortran procedure GETADWDXF ...
248 //
249 void FORTRAN_NAME( GETADWDXF ,getadwdxf )(
250  CHFp_FRA(adwdx)
251  ,CHFp_CONST_FRA(WHalf)
252  ,CHFp_CONST_FRA(W)
254  ,CHFp_CONST_INT(normdir)
255  ,CHFp_BOX(box) );
256 
257 #define FORT_GETADWDXF FORTRAN_NAME( inlineGETADWDXF, inlineGETADWDXF)
258 #define FORTNT_GETADWDXF FORTRAN_NAME( GETADWDXF, getadwdxf)
259 
260 inline void FORTRAN_NAME(inlineGETADWDXF, inlineGETADWDXF)(
261  CHFp_FRA(adwdx)
262  ,CHFp_CONST_FRA(WHalf)
263  ,CHFp_CONST_FRA(W)
265  ,CHFp_CONST_INT(normdir)
266  ,CHFp_BOX(box) )
267 {
268  CH_TIMELEAF("FORT_GETADWDXF");
269  FORTRAN_NAME( GETADWDXF ,getadwdxf )(
270  CHFt_FRA(adwdx)
271  ,CHFt_CONST_FRA(WHalf)
272  ,CHFt_CONST_FRA(W)
274  ,CHFt_CONST_INT(normdir)
275  ,CHFt_BOX(box) );
276 }
277 #endif // GUARDGETADWDXF
278 
279 #ifndef GUARDRIEMANNF
280 #define GUARDRIEMANNF
281 // Prototype for Fortran procedure RIEMANNF ...
282 //
283 void FORTRAN_NAME( RIEMANNF ,riemannf )(
284  CHFp_FRA(Wgdnv)
285  ,CHFp_CONST_FRA(WLeft)
286  ,CHFp_CONST_FRA(WRight)
287  ,CHFp_CONST_INT(idir)
288  ,CHFp_BOX(box) );
289 
290 #define FORT_RIEMANNF FORTRAN_NAME( inlineRIEMANNF, inlineRIEMANNF)
291 #define FORTNT_RIEMANNF FORTRAN_NAME( RIEMANNF, riemannf)
292 
293 inline void FORTRAN_NAME(inlineRIEMANNF, inlineRIEMANNF)(
294  CHFp_FRA(Wgdnv)
295  ,CHFp_CONST_FRA(WLeft)
296  ,CHFp_CONST_FRA(WRight)
297  ,CHFp_CONST_INT(idir)
298  ,CHFp_BOX(box) )
299 {
300  CH_TIMELEAF("FORT_RIEMANNF");
301  FORTRAN_NAME( RIEMANNF ,riemannf )(
302  CHFt_FRA(Wgdnv)
303  ,CHFt_CONST_FRA(WLeft)
304  ,CHFt_CONST_FRA(WRight)
305  ,CHFt_CONST_INT(idir)
306  ,CHFt_BOX(box) );
307 }
308 #endif // GUARDRIEMANNF
309 
310 #ifndef GUARDGETFLUXF
311 #define GUARDGETFLUXF
312 // Prototype for Fortran procedure GETFLUXF ...
313 //
314 void FORTRAN_NAME( GETFLUXF ,getfluxf )(
315  CHFp_FRA(F)
316  ,CHFp_CONST_FRA(Wgdnv)
317  ,CHFp_CONST_INT(idir)
318  ,CHFp_BOX(box) );
319 
320 #define FORT_GETFLUXF FORTRAN_NAME( inlineGETFLUXF, inlineGETFLUXF)
321 #define FORTNT_GETFLUXF FORTRAN_NAME( GETFLUXF, getfluxf)
322 
323 inline void FORTRAN_NAME(inlineGETFLUXF, inlineGETFLUXF)(
324  CHFp_FRA(F)
325  ,CHFp_CONST_FRA(Wgdnv)
326  ,CHFp_CONST_INT(idir)
327  ,CHFp_BOX(box) )
328 {
329  CH_TIMELEAF("FORT_GETFLUXF");
330  FORTRAN_NAME( GETFLUXF ,getfluxf )(
331  CHFt_FRA(F)
332  ,CHFt_CONST_FRA(Wgdnv)
333  ,CHFt_CONST_INT(idir)
334  ,CHFt_BOX(box) );
335 }
336 #endif // GUARDGETFLUXF
337 
338 #ifndef GUARDPOSTNORMALPREDF
339 #define GUARDPOSTNORMALPREDF
340 // Prototype for Fortran procedure POSTNORMALPREDF ...
341 //
342 void FORTRAN_NAME( POSTNORMALPREDF ,postnormalpredf )(
343  CHFp_FRA(dWMinus)
344  ,CHFp_FRA(dWPlus)
345  ,CHFp_CONST_FRA(W)
346  ,CHFp_BOX(box) );
347 
348 #define FORT_POSTNORMALPREDF FORTRAN_NAME( inlinePOSTNORMALPREDF, inlinePOSTNORMALPREDF)
349 #define FORTNT_POSTNORMALPREDF FORTRAN_NAME( POSTNORMALPREDF, postnormalpredf)
350 
351 inline void FORTRAN_NAME(inlinePOSTNORMALPREDF, inlinePOSTNORMALPREDF)(
352  CHFp_FRA(dWMinus)
353  ,CHFp_FRA(dWPlus)
354  ,CHFp_CONST_FRA(W)
355  ,CHFp_BOX(box) )
356 {
357  CH_TIMELEAF("FORT_POSTNORMALPREDF");
358  FORTRAN_NAME( POSTNORMALPREDF ,postnormalpredf )(
359  CHFt_FRA(dWMinus)
360  ,CHFt_FRA(dWPlus)
361  ,CHFt_CONST_FRA(W)
362  ,CHFt_BOX(box) );
363 }
364 #endif // GUARDPOSTNORMALPREDF
365 
366 #ifndef GUARDUPDATECONSF
367 #define GUARDUPDATECONSF
368 // Prototype for Fortran procedure UPDATECONSF ...
369 //
370 void FORTRAN_NAME( UPDATECONSF ,updateconsf )(
371  CHFp_FRA(U)
372  ,CHFp_CONST_FRA(F)
373  ,CHFp_CONST_REAL(dtbydx)
374  ,CHFp_CONST_INT(idir)
375  ,CHFp_BOX(box) );
376 
377 #define FORT_UPDATECONSF FORTRAN_NAME( inlineUPDATECONSF, inlineUPDATECONSF)
378 #define FORTNT_UPDATECONSF FORTRAN_NAME( UPDATECONSF, updateconsf)
379 
380 inline void FORTRAN_NAME(inlineUPDATECONSF, inlineUPDATECONSF)(
381  CHFp_FRA(U)
382  ,CHFp_CONST_FRA(F)
383  ,CHFp_CONST_REAL(dtbydx)
384  ,CHFp_CONST_INT(idir)
385  ,CHFp_BOX(box) )
386 {
387  CH_TIMELEAF("FORT_UPDATECONSF");
388  FORTRAN_NAME( UPDATECONSF ,updateconsf )(
389  CHFt_FRA(U)
390  ,CHFt_CONST_FRA(F)
391  ,CHFt_CONST_REAL(dtbydx)
392  ,CHFt_CONST_INT(idir)
393  ,CHFt_BOX(box) );
394 }
395 #endif // GUARDUPDATECONSF
396 
397 #ifndef GUARDGETRELGRADF
398 #define GUARDGETRELGRADF
399 // Prototype for Fortran procedure GETRELGRADF ...
400 //
401 void FORTRAN_NAME( GETRELGRADF ,getrelgradf )(
402  CHFp_FRA1(du)
403  ,CHFp_CONST_FRA1(u)
404  ,CHFp_CONST_INT(idir)
405  ,CHFp_BOX(loBox)
406  ,CHFp_CONST_INT(hasLo)
407  ,CHFp_BOX(hiBox)
408  ,CHFp_CONST_INT(hasHi)
409  ,CHFp_BOX(centerBox) );
410 
411 #define FORT_GETRELGRADF FORTRAN_NAME( inlineGETRELGRADF, inlineGETRELGRADF)
412 #define FORTNT_GETRELGRADF FORTRAN_NAME( GETRELGRADF, getrelgradf)
413 
414 inline void FORTRAN_NAME(inlineGETRELGRADF, inlineGETRELGRADF)(
415  CHFp_FRA1(du)
416  ,CHFp_CONST_FRA1(u)
417  ,CHFp_CONST_INT(idir)
418  ,CHFp_BOX(loBox)
419  ,CHFp_CONST_INT(hasLo)
420  ,CHFp_BOX(hiBox)
421  ,CHFp_CONST_INT(hasHi)
422  ,CHFp_BOX(centerBox) )
423 {
424  CH_TIMELEAF("FORT_GETRELGRADF");
425  FORTRAN_NAME( GETRELGRADF ,getrelgradf )(
426  CHFt_FRA1(du)
427  ,CHFt_CONST_FRA1(u)
428  ,CHFt_CONST_INT(idir)
429  ,CHFt_BOX(loBox)
430  ,CHFt_CONST_INT(hasLo)
431  ,CHFt_BOX(hiBox)
432  ,CHFt_CONST_INT(hasHi)
433  ,CHFt_BOX(centerBox) );
434 }
435 #endif // GUARDGETRELGRADF
436 
437 #ifndef GUARDSETSOURCECONS
438 #define GUARDSETSOURCECONS
439 // Prototype for Fortran procedure SETSOURCECONS ...
440 //
441 void FORTRAN_NAME( SETSOURCECONS ,setsourcecons )(
442  CHFp_FRA(source)
443  ,CHFp_CONST_FRA(U)
444  ,CHFp_CONST_REAL(ksource)
445  ,CHFp_BOX(box) );
446 
447 #define FORT_SETSOURCECONS FORTRAN_NAME( inlineSETSOURCECONS, inlineSETSOURCECONS)
448 #define FORTNT_SETSOURCECONS FORTRAN_NAME( SETSOURCECONS, setsourcecons)
449 
450 inline void FORTRAN_NAME(inlineSETSOURCECONS, inlineSETSOURCECONS)(
451  CHFp_FRA(source)
452  ,CHFp_CONST_FRA(U)
453  ,CHFp_CONST_REAL(ksource)
454  ,CHFp_BOX(box) )
455 {
456  CH_TIMELEAF("FORT_SETSOURCECONS");
457  FORTRAN_NAME( SETSOURCECONS ,setsourcecons )(
458  CHFt_FRA(source)
459  ,CHFt_CONST_FRA(U)
460  ,CHFt_CONST_REAL(ksource)
461  ,CHFt_BOX(box) );
462 }
463 #endif // GUARDSETSOURCECONS
464 
465 #ifndef GUARDSETSOURCEPRIM
466 #define GUARDSETSOURCEPRIM
467 // Prototype for Fortran procedure SETSOURCEPRIM ...
468 //
469 void FORTRAN_NAME( SETSOURCEPRIM ,setsourceprim )(
470  CHFp_FRA(source)
471  ,CHFp_CONST_FRA(U)
472  ,CHFp_CONST_REAL(ksource)
473  ,CHFp_BOX(box) );
474 
475 #define FORT_SETSOURCEPRIM FORTRAN_NAME( inlineSETSOURCEPRIM, inlineSETSOURCEPRIM)
476 #define FORTNT_SETSOURCEPRIM FORTRAN_NAME( SETSOURCEPRIM, setsourceprim)
477 
478 inline void FORTRAN_NAME(inlineSETSOURCEPRIM, inlineSETSOURCEPRIM)(
479  CHFp_FRA(source)
480  ,CHFp_CONST_FRA(U)
481  ,CHFp_CONST_REAL(ksource)
482  ,CHFp_BOX(box) )
483 {
484  CH_TIMELEAF("FORT_SETSOURCEPRIM");
485  FORTRAN_NAME( SETSOURCEPRIM ,setsourceprim )(
486  CHFt_FRA(source)
487  ,CHFt_CONST_FRA(U)
488  ,CHFt_CONST_REAL(ksource)
489  ,CHFt_BOX(box) );
490 }
491 #endif // GUARDSETSOURCEPRIM
492 
493 }
494 
495 #endif
#define CHFt_CONST_INT(i)
Definition: FORT_PROTO.H:989
#define CHFp_FRA1(a)
Definition: FORT_PROTO.H:913
#define CHFp_REAL(r)
Definition: FORT_PROTO.H:742
#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
Definition: EBInterface.H:45
void CHFp_FRA(dWPlus)
void CHFp_CONST_FRA1(u)
#define CHFt_CONST_FRA(a)
Definition: FORT_PROTO.H:1095
void CHFp_CONST_FRA(data)
void CHFp_CONST_REAL(scale)
#define CHFt_FRA1(a)
Definition: FORT_PROTO.H:1136
void CHFp_CONST_INT(normdir)
#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_REAL(r)
Definition: FORT_PROTO.H:991
#define CHFt_REAL(r)
Definition: FORT_PROTO.H:990
void CHFp_BOX(box))
Definition: PolytropicPhysicsF_F.H:26
void FORTRAN_NAME(MAGNITUDEF, magnitudef)(CHFp_FRA1(magdata)