Chombo + EB + MF  3.2
AverageFaceF_F.H
Go to the documentation of this file.
1 #ifndef _AVERAGEFACEF_F_H_
2 #define _AVERAGEFACEF_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 GUARDAVERAGEFACE
12 #define GUARDAVERAGEFACE
13 // Prototype for Fortran procedure AVERAGEFACE ...
14 //
15 void FORTRAN_NAME( AVERAGEFACE ,averageface )(
16  CHFp_FRA(coarse)
17  ,CHFp_CONST_FRA(fine)
18  ,CHFp_BOX(crseBox)
19  ,CHFp_CONST_INT(dir)
20  ,CHFp_CONST_INT(nRef)
21  ,CHFp_CONST_INT(refFactor)
22  ,CHFp_BOX(refBox) );
23 
24 #define FORT_AVERAGEFACE FORTRAN_NAME( inlineAVERAGEFACE, inlineAVERAGEFACE)
25 #define FORTNT_AVERAGEFACE FORTRAN_NAME( AVERAGEFACE, averageface)
26 
27 inline void FORTRAN_NAME(inlineAVERAGEFACE, inlineAVERAGEFACE)(
28  CHFp_FRA(coarse)
29  ,CHFp_CONST_FRA(fine)
30  ,CHFp_BOX(crseBox)
31  ,CHFp_CONST_INT(dir)
32  ,CHFp_CONST_INT(nRef)
33  ,CHFp_CONST_INT(refFactor)
34  ,CHFp_BOX(refBox) )
35 {
36  CH_TIMELEAF("FORT_AVERAGEFACE");
37  FORTRAN_NAME( AVERAGEFACE ,averageface )(
38  CHFt_FRA(coarse)
39  ,CHFt_CONST_FRA(fine)
40  ,CHFt_BOX(crseBox)
41  ,CHFt_CONST_INT(dir)
42  ,CHFt_CONST_INT(nRef)
43  ,CHFt_CONST_INT(refFactor)
44  ,CHFt_BOX(refBox) );
45 }
46 #endif // GUARDAVERAGEFACE
47 
48 #ifndef GUARDAVERAGEFACEHARMONIC
49 #define GUARDAVERAGEFACEHARMONIC
50 // Prototype for Fortran procedure AVERAGEFACEHARMONIC ...
51 //
52 void FORTRAN_NAME( AVERAGEFACEHARMONIC ,averagefaceharmonic )(
53  CHFp_FRA(coarse)
54  ,CHFp_CONST_FRA(fine)
55  ,CHFp_BOX(crseBox)
56  ,CHFp_CONST_INT(dir)
57  ,CHFp_CONST_INT(nRef)
58  ,CHFp_CONST_INT(refFactor)
59  ,CHFp_BOX(refBox) );
60 
61 #define FORT_AVERAGEFACEHARMONIC FORTRAN_NAME( inlineAVERAGEFACEHARMONIC, inlineAVERAGEFACEHARMONIC)
62 #define FORTNT_AVERAGEFACEHARMONIC FORTRAN_NAME( AVERAGEFACEHARMONIC, averagefaceharmonic)
63 
64 inline void FORTRAN_NAME(inlineAVERAGEFACEHARMONIC, inlineAVERAGEFACEHARMONIC)(
65  CHFp_FRA(coarse)
66  ,CHFp_CONST_FRA(fine)
67  ,CHFp_BOX(crseBox)
68  ,CHFp_CONST_INT(dir)
69  ,CHFp_CONST_INT(nRef)
70  ,CHFp_CONST_INT(refFactor)
71  ,CHFp_BOX(refBox) )
72 {
73  CH_TIMELEAF("FORT_AVERAGEFACEHARMONIC");
74  FORTRAN_NAME( AVERAGEFACEHARMONIC ,averagefaceharmonic )(
75  CHFt_FRA(coarse)
76  ,CHFt_CONST_FRA(fine)
77  ,CHFt_BOX(crseBox)
78  ,CHFt_CONST_INT(dir)
79  ,CHFt_CONST_INT(nRef)
80  ,CHFt_CONST_INT(refFactor)
81  ,CHFt_BOX(refBox) );
82 }
83 #endif // GUARDAVERAGEFACEHARMONIC
84 
85 }
86 
87 #endif
#define CHFp_FRA(a)
Definition: FORT_PROTO.H:803
#define CHFt_CONST_INT(i)
Definition: FORT_PROTO.H:989
void FORTRAN_NAME(AVERAGEFACE, averageface)(CHFp_FRA(coarse)
void CHFp_CONST_FRA(fine)
#define CHFt_FRA(a)
Definition: FORT_PROTO.H:1053
#define CHFt_CONST_FRA(a)
Definition: FORT_PROTO.H:1095
void CHFp_CONST_INT(dir)
#define CHFt_BOX(b)
Definition: FORT_PROTO.H:1026
#define CH_TIMELEAF(name)
Definition: CH_Timer.H:100
void CHFp_BOX(crseBox)