Chombo + EB + MF  3.2
NodeAverageF_F.H
Go to the documentation of this file.
1 #ifndef _NODEAVERAGEF_F_H_
2 #define _NODEAVERAGEF_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 GUARDNODEAVERAGE
12 #define GUARDNODEAVERAGE
13 // Prototype for Fortran procedure NODEAVERAGE ...
14 //
15 void FORTRAN_NAME( NODEAVERAGE ,nodeaverage )(
16  CHFp_FRA(coarse)
17  ,CHFp_CONST_FRA(fine)
18  ,CHFp_BOX(b)
19  ,CHFp_CONST_INT(ref_ratio)
20  ,CHFp_CONST_FRA(weight) );
21 
22 #define FORT_NODEAVERAGE FORTRAN_NAME( inlineNODEAVERAGE, inlineNODEAVERAGE)
23 #define FORTNT_NODEAVERAGE FORTRAN_NAME( NODEAVERAGE, nodeaverage)
24 
25 inline void FORTRAN_NAME(inlineNODEAVERAGE, inlineNODEAVERAGE)(
26  CHFp_FRA(coarse)
27  ,CHFp_CONST_FRA(fine)
28  ,CHFp_BOX(b)
29  ,CHFp_CONST_INT(ref_ratio)
30  ,CHFp_CONST_FRA(weight) )
31 {
32  CH_TIMELEAF("FORT_NODEAVERAGE");
33  FORTRAN_NAME( NODEAVERAGE ,nodeaverage )(
34  CHFt_FRA(coarse)
35  ,CHFt_CONST_FRA(fine)
36  ,CHFt_BOX(b)
37  ,CHFt_CONST_INT(ref_ratio)
38  ,CHFt_CONST_FRA(weight) );
39 }
40 #endif // GUARDNODEAVERAGE
41 
42 #ifndef GUARDNODEAVERAGEPOINT
43 #define GUARDNODEAVERAGEPOINT
44 // Prototype for Fortran procedure NODEAVERAGEPOINT ...
45 //
46 void FORTRAN_NAME( NODEAVERAGEPOINT ,nodeaveragepoint )(
47  CHFp_FRA(coarse)
48  ,CHFp_CONST_FRA(fine)
49  ,CHFp_CONST_INTVECT(pcrse)
50  ,CHFp_CONST_INT(ref_ratio)
51  ,CHFp_CONST_FRA(weight) );
52 
53 #define FORT_NODEAVERAGEPOINT FORTRAN_NAME( inlineNODEAVERAGEPOINT, inlineNODEAVERAGEPOINT)
54 #define FORTNT_NODEAVERAGEPOINT FORTRAN_NAME( NODEAVERAGEPOINT, nodeaveragepoint)
55 
56 inline void FORTRAN_NAME(inlineNODEAVERAGEPOINT, inlineNODEAVERAGEPOINT)(
57  CHFp_FRA(coarse)
58  ,CHFp_CONST_FRA(fine)
59  ,CHFp_CONST_INTVECT(pcrse)
60  ,CHFp_CONST_INT(ref_ratio)
61  ,CHFp_CONST_FRA(weight) )
62 {
63  CH_TIMELEAF("FORT_NODEAVERAGEPOINT");
64  FORTRAN_NAME( NODEAVERAGEPOINT ,nodeaveragepoint )(
65  CHFt_FRA(coarse)
66  ,CHFt_CONST_FRA(fine)
67  ,CHFt_CONST_INTVECT(pcrse)
68  ,CHFt_CONST_INT(ref_ratio)
69  ,CHFt_CONST_FRA(weight) );
70 }
71 #endif // GUARDNODEAVERAGEPOINT
72 
73 #ifndef GUARDNODEAVERAGE_GETWEIGHTS
74 #define GUARDNODEAVERAGE_GETWEIGHTS
75 // Prototype for Fortran procedure NODEAVERAGE_GETWEIGHTS ...
76 //
77 void FORTRAN_NAME( NODEAVERAGE_GETWEIGHTS ,nodeaverage_getweights )(
78  CHFp_FRA(weight)
79  ,CHFp_CONST_INT(ref_ratio) );
80 
81 #define FORT_NODEAVERAGE_GETWEIGHTS FORTRAN_NAME( inlineNODEAVERAGE_GETWEIGHTS, inlineNODEAVERAGE_GETWEIGHTS)
82 #define FORTNT_NODEAVERAGE_GETWEIGHTS FORTRAN_NAME( NODEAVERAGE_GETWEIGHTS, nodeaverage_getweights)
83 
84 inline void FORTRAN_NAME(inlineNODEAVERAGE_GETWEIGHTS, inlineNODEAVERAGE_GETWEIGHTS)(
85  CHFp_FRA(weight)
86  ,CHFp_CONST_INT(ref_ratio) )
87 {
88  CH_TIMELEAF("FORT_NODEAVERAGE_GETWEIGHTS");
89  FORTRAN_NAME( NODEAVERAGE_GETWEIGHTS ,nodeaverage_getweights )(
90  CHFt_FRA(weight)
91  ,CHFt_CONST_INT(ref_ratio) );
92 }
93 #endif // GUARDNODEAVERAGE_GETWEIGHTS
94 
95 }
96 
97 #endif
#define CHFp_FRA(a)
Definition: FORT_PROTO.H:803
#define CHFt_CONST_INT(i)
Definition: FORT_PROTO.H:989
void FORTRAN_NAME(NODEAVERAGE, nodeaverage)(CHFp_FRA(coarse)
#define CHFt_FRA(a)
Definition: FORT_PROTO.H:1053
#define CHFt_CONST_FRA(a)
Definition: FORT_PROTO.H:1095
void CHFp_BOX(b)
void CHFp_CONST_FRA(fine)
#define CHFt_BOX(b)
Definition: FORT_PROTO.H:1026
void CHFp_CONST_INT(ref_ratio)
Definition: NodeAverageF_F.H:86
#define CH_TIMELEAF(name)
Definition: CH_Timer.H:100
void CHFp_CONST_INTVECT(pcrse)
#define CHFt_CONST_INTVECT(r)
Definition: FORT_PROTO.H:1014