Chombo + EB + MF  3.2
AverageF_F.H
Go to the documentation of this file.
1 #ifndef _AVERAGEF_F_H_
2 #define _AVERAGEF_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 GUARDAVERAGE
12 #define GUARDAVERAGE
13 // Prototype for Fortran procedure average ...
14 //
15 void FORTRAN_NAME( AVERAGE ,average )(
16  CHFp_FRA(coarse)
17  ,CHFp_CONST_FRA(fine)
18  ,CHFp_BOX(box)
19  ,CHFp_CONST_INT(refRatio)
20  ,CHFp_BOX(bref) );
21 
22 #define FORT_AVERAGE FORTRAN_NAME( inlineAVERAGE, inlineAVERAGE)
23 #define FORTNT_AVERAGE FORTRAN_NAME( AVERAGE, average)
24 
25 inline void FORTRAN_NAME(inlineAVERAGE, inlineAVERAGE)(
26  CHFp_FRA(coarse)
27  ,CHFp_CONST_FRA(fine)
28  ,CHFp_BOX(box)
29  ,CHFp_CONST_INT(refRatio)
30  ,CHFp_BOX(bref) )
31 {
32  CH_TIMELEAF("FORT_AVERAGE");
33  FORTRAN_NAME( AVERAGE ,average )(
34  CHFt_FRA(coarse)
35  ,CHFt_CONST_FRA(fine)
36  ,CHFt_BOX(box)
37  ,CHFt_CONST_INT(refRatio)
38  ,CHFt_BOX(bref) );
39 }
40 #endif // GUARDAVERAGE
41 
42 #ifndef GUARDAVERAGEHARMONIC
43 #define GUARDAVERAGEHARMONIC
44 // Prototype for Fortran procedure averageharmonic ...
45 //
46 void FORTRAN_NAME( AVERAGEHARMONIC ,averageharmonic )(
47  CHFp_FRA(coarse)
48  ,CHFp_CONST_FRA(fine)
49  ,CHFp_BOX(box)
50  ,CHFp_CONST_INT(refRatio)
51  ,CHFp_BOX(bref) );
52 
53 #define FORT_AVERAGEHARMONIC FORTRAN_NAME( inlineAVERAGEHARMONIC, inlineAVERAGEHARMONIC)
54 #define FORTNT_AVERAGEHARMONIC FORTRAN_NAME( AVERAGEHARMONIC, averageharmonic)
55 
56 inline void FORTRAN_NAME(inlineAVERAGEHARMONIC, inlineAVERAGEHARMONIC)(
57  CHFp_FRA(coarse)
58  ,CHFp_CONST_FRA(fine)
59  ,CHFp_BOX(box)
60  ,CHFp_CONST_INT(refRatio)
61  ,CHFp_BOX(bref) )
62 {
63  CH_TIMELEAF("FORT_AVERAGEHARMONIC");
64  FORTRAN_NAME( AVERAGEHARMONIC ,averageharmonic )(
65  CHFt_FRA(coarse)
66  ,CHFt_CONST_FRA(fine)
67  ,CHFt_BOX(box)
68  ,CHFt_CONST_INT(refRatio)
69  ,CHFt_BOX(bref) );
70 }
71 #endif // GUARDAVERAGEHARMONIC
72 
73 #ifndef GUARDAVERAGEINTVECTREF
74 #define GUARDAVERAGEINTVECTREF
75 // Prototype for Fortran procedure averageintvectref ...
76 //
77 void FORTRAN_NAME( AVERAGEINTVECTREF ,averageintvectref )(
78  CHFp_FRA(coarse)
79  ,CHFp_CONST_FRA(fine)
80  ,CHFp_BOX(box)
81  ,CHFp_CONST_INTVECT(ref)
82  ,CHFp_BOX(bref) );
83 
84 #define FORT_AVERAGEINTVECTREF FORTRAN_NAME( inlineAVERAGEINTVECTREF, inlineAVERAGEINTVECTREF)
85 #define FORTNT_AVERAGEINTVECTREF FORTRAN_NAME( AVERAGEINTVECTREF, averageintvectref)
86 
87 inline void FORTRAN_NAME(inlineAVERAGEINTVECTREF, inlineAVERAGEINTVECTREF)(
88  CHFp_FRA(coarse)
89  ,CHFp_CONST_FRA(fine)
90  ,CHFp_BOX(box)
91  ,CHFp_CONST_INTVECT(ref)
92  ,CHFp_BOX(bref) )
93 {
94  CH_TIMELEAF("FORT_AVERAGEINTVECTREF");
95  FORTRAN_NAME( AVERAGEINTVECTREF ,averageintvectref )(
96  CHFt_FRA(coarse)
97  ,CHFt_CONST_FRA(fine)
98  ,CHFt_BOX(box)
99  ,CHFt_CONST_INTVECT(ref)
100  ,CHFt_BOX(bref) );
101 }
102 #endif // GUARDAVERAGEINTVECTREF
103 
104 }
105 
106 #endif
#define CHFp_FRA(a)
Definition: FORT_PROTO.H:803
void FORTRAN_NAME(AVERAGE, average)(CHFp_FRA(coarse)
#define CHFt_CONST_INT(i)
Definition: FORT_PROTO.H:989
#define CHFt_FRA(a)
Definition: FORT_PROTO.H:1053
void CHFp_CONST_INTVECT(ref)
Definition: EBInterface.H:45
#define CHFt_CONST_FRA(a)
Definition: FORT_PROTO.H:1095
void CHFp_CONST_INT(refRatio)
void CHFp_CONST_FRA(fine)
#define CHFt_BOX(b)
Definition: FORT_PROTO.H:1026
#define CH_TIMELEAF(name)
Definition: CH_Timer.H:100
void CHFp_BOX(box)
#define CHFt_CONST_INTVECT(r)
Definition: FORT_PROTO.H:1014