Chombo + EB + MF  3.2
AverageCodimF_F.H
Go to the documentation of this file.
1 #ifndef _AVERAGECODIMF_F_H_
2 #define _AVERAGECODIMF_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 GUARDAVERAGECODIM
12 #define GUARDAVERAGECODIM
13 // Prototype for Fortran procedure averagecodim ...
14 //
15 void FORTRAN_NAME( AVERAGECODIM ,averagecodim )(
16  CHFp_FRA(coarse)
17  ,CHFp_CONST_FRA(fine)
18  ,CHFp_BOX(box)
19  ,CHFp_CONST_INT(refRatio)
20  ,CHFp_CONST_INT(refFactor)
21  ,CHFp_CONST_INT(refDim)
22  ,CHFp_BOX(bref) );
23 
24 #define FORT_AVERAGECODIM FORTRAN_NAME( inlineAVERAGECODIM, inlineAVERAGECODIM)
25 #define FORTNT_AVERAGECODIM FORTRAN_NAME( AVERAGECODIM, averagecodim)
26 
27 inline void FORTRAN_NAME(inlineAVERAGECODIM, inlineAVERAGECODIM)(
28  CHFp_FRA(coarse)
29  ,CHFp_CONST_FRA(fine)
30  ,CHFp_BOX(box)
31  ,CHFp_CONST_INT(refRatio)
32  ,CHFp_CONST_INT(refFactor)
33  ,CHFp_CONST_INT(refDim)
34  ,CHFp_BOX(bref) )
35 {
36  CH_TIMELEAF("FORT_AVERAGECODIM");
37  FORTRAN_NAME( AVERAGECODIM ,averagecodim )(
38  CHFt_FRA(coarse)
39  ,CHFt_CONST_FRA(fine)
40  ,CHFt_BOX(box)
41  ,CHFt_CONST_INT(refRatio)
42  ,CHFt_CONST_INT(refFactor)
43  ,CHFt_CONST_INT(refDim)
44  ,CHFt_BOX(bref) );
45 }
46 #endif // GUARDAVERAGECODIM
47 
48 #ifndef GUARDAVERAGECODIMHARMONIC
49 #define GUARDAVERAGECODIMHARMONIC
50 // Prototype for Fortran procedure averagecodimharmonic ...
51 //
52 void FORTRAN_NAME( AVERAGECODIMHARMONIC ,averagecodimharmonic )(
53  CHFp_FRA(coarse)
54  ,CHFp_CONST_FRA(fine)
55  ,CHFp_BOX(box)
56  ,CHFp_CONST_INT(refRatio)
57  ,CHFp_CONST_INT(refFactor)
58  ,CHFp_CONST_INT(refDim)
59  ,CHFp_BOX(bref) );
60 
61 #define FORT_AVERAGECODIMHARMONIC FORTRAN_NAME( inlineAVERAGECODIMHARMONIC, inlineAVERAGECODIMHARMONIC)
62 #define FORTNT_AVERAGECODIMHARMONIC FORTRAN_NAME( AVERAGECODIMHARMONIC, averagecodimharmonic)
63 
64 inline void FORTRAN_NAME(inlineAVERAGECODIMHARMONIC, inlineAVERAGECODIMHARMONIC)(
65  CHFp_FRA(coarse)
66  ,CHFp_CONST_FRA(fine)
67  ,CHFp_BOX(box)
68  ,CHFp_CONST_INT(refRatio)
69  ,CHFp_CONST_INT(refFactor)
70  ,CHFp_CONST_INT(refDim)
71  ,CHFp_BOX(bref) )
72 {
73  CH_TIMELEAF("FORT_AVERAGECODIMHARMONIC");
74  FORTRAN_NAME( AVERAGECODIMHARMONIC ,averagecodimharmonic )(
75  CHFt_FRA(coarse)
76  ,CHFt_CONST_FRA(fine)
77  ,CHFt_BOX(box)
78  ,CHFt_CONST_INT(refRatio)
79  ,CHFt_CONST_INT(refFactor)
80  ,CHFt_CONST_INT(refDim)
81  ,CHFt_BOX(bref) );
82 }
83 #endif // GUARDAVERAGECODIMHARMONIC
84 
85 }
86 
87 #endif
#define CHFp_FRA(a)
Definition: FORT_PROTO.H:803
#define CHFt_CONST_INT(i)
Definition: FORT_PROTO.H:989
#define CHFt_FRA(a)
Definition: FORT_PROTO.H:1053
void FORTRAN_NAME(AVERAGECODIM, averagecodim)(CHFp_FRA(coarse)
Definition: EBInterface.H:45
#define CHFt_CONST_FRA(a)
Definition: FORT_PROTO.H:1095
void CHFp_BOX(box)
Definition: ResistivityOpF_F.H:316
void CHFp_CONST_INT(refRatio)
#define CHFt_BOX(b)
Definition: FORT_PROTO.H:1026
#define CH_TIMELEAF(name)
Definition: CH_Timer.H:100
void CHFp_CONST_FRA(fine)