Chombo + EB + MF  3.2
NodeLevelMGF_F.H
Go to the documentation of this file.
1 #ifndef _NODELEVELMGF_F_H_
2 #define _NODELEVELMGF_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 GUARDNODEINTERPMG_GETWEIGHTS
12 #define GUARDNODEINTERPMG_GETWEIGHTS
13 // Prototype for Fortran procedure NODEINTERPMG_GETWEIGHTS ...
14 //
15 void FORTRAN_NAME( NODEINTERPMG_GETWEIGHTS ,nodeinterpmg_getweights )(
16  CHFp_CONST_INT(nref)
17  ,CHFp_BOX(bref)
18  ,CHFp_FRA(wtcrnr) );
19 
20 #define FORT_NODEINTERPMG_GETWEIGHTS FORTRAN_NAME( inlineNODEINTERPMG_GETWEIGHTS, inlineNODEINTERPMG_GETWEIGHTS)
21 #define FORTNT_NODEINTERPMG_GETWEIGHTS FORTRAN_NAME( NODEINTERPMG_GETWEIGHTS, nodeinterpmg_getweights)
22 
23 inline void FORTRAN_NAME(inlineNODEINTERPMG_GETWEIGHTS, inlineNODEINTERPMG_GETWEIGHTS)(
24  CHFp_CONST_INT(nref)
25  ,CHFp_BOX(bref)
26  ,CHFp_FRA(wtcrnr) )
27 {
28  CH_TIMELEAF("FORT_NODEINTERPMG_GETWEIGHTS");
29  FORTRAN_NAME( NODEINTERPMG_GETWEIGHTS ,nodeinterpmg_getweights )(
30  CHFt_CONST_INT(nref)
31  ,CHFt_BOX(bref)
32  ,CHFt_FRA(wtcrnr) );
33 }
34 #endif // GUARDNODEINTERPMG_GETWEIGHTS
35 
36 #ifndef GUARDNODEINTERPMG
37 #define GUARDNODEINTERPMG
38 // Prototype for Fortran procedure NODEINTERPMG ...
39 //
40 void FORTRAN_NAME( NODEINTERPMG ,nodeinterpmg )(
41  CHFp_FRA(fine)
42  ,CHFp_CONST_FRA(crse)
43  ,CHFp_BOX(region)
44  ,CHFp_CONST_INT(nref)
45  ,CHFp_BOX(bref)
46  ,CHFp_FRA(wtcrnr) );
47 
48 #define FORT_NODEINTERPMG FORTRAN_NAME( inlineNODEINTERPMG, inlineNODEINTERPMG)
49 #define FORTNT_NODEINTERPMG FORTRAN_NAME( NODEINTERPMG, nodeinterpmg)
50 
51 inline void FORTRAN_NAME(inlineNODEINTERPMG, inlineNODEINTERPMG)(
52  CHFp_FRA(fine)
53  ,CHFp_CONST_FRA(crse)
54  ,CHFp_BOX(region)
55  ,CHFp_CONST_INT(nref)
56  ,CHFp_BOX(bref)
57  ,CHFp_FRA(wtcrnr) )
58 {
59  CH_TIMELEAF("FORT_NODEINTERPMG");
60  FORTRAN_NAME( NODEINTERPMG ,nodeinterpmg )(
61  CHFt_FRA(fine)
62  ,CHFt_CONST_FRA(crse)
63  ,CHFt_BOX(region)
64  ,CHFt_CONST_INT(nref)
65  ,CHFt_BOX(bref)
66  ,CHFt_FRA(wtcrnr) );
67 }
68 #endif // GUARDNODEINTERPMG
69 
70 #ifndef GUARDWTSIDE
71 #define GUARDWTSIDE
72 // Prototype for Fortran procedure WTSIDE ...
73 //
74 void FORTRAN_NAME( WTSIDE ,wtside )(
76  ,CHFp_CONST_REAL(frac)
77  ,CHFp_REAL(wt) );
78 
79 #define FORT_WTSIDE FORTRAN_NAME( inlineWTSIDE, inlineWTSIDE)
80 #define FORTNT_WTSIDE FORTRAN_NAME( WTSIDE, wtside)
81 
82 inline void FORTRAN_NAME(inlineWTSIDE, inlineWTSIDE)(
84  ,CHFp_CONST_REAL(frac)
85  ,CHFp_REAL(wt) )
86 {
87  CH_TIMELEAF("FORT_WTSIDE");
88  FORTRAN_NAME( WTSIDE ,wtside )(
90  ,CHFt_CONST_REAL(frac)
91  ,CHFt_REAL(wt) );
92 }
93 #endif // GUARDWTSIDE
94 
95 #ifndef GUARDMAXB
96 #define GUARDMAXB
97 // Prototype for Fortran procedure MAXB ...
98 //
99 void FORTRAN_NAME( MAXB ,maxb )(
100  CHFp_CONST_INT(iref)
101  ,CHFp_INT(ibmax) );
102 
103 #define FORT_MAXB FORTRAN_NAME( inlineMAXB, inlineMAXB)
104 #define FORTNT_MAXB FORTRAN_NAME( MAXB, maxb)
105 
106 inline void FORTRAN_NAME(inlineMAXB, inlineMAXB)(
107  CHFp_CONST_INT(iref)
108  ,CHFp_INT(ibmax) )
109 {
110  CH_TIMELEAF("FORT_MAXB");
111  FORTRAN_NAME( MAXB ,maxb )(
112  CHFt_CONST_INT(iref)
113  ,CHFt_INT(ibmax) );
114 }
115 #endif // GUARDMAXB
116 
117 }
118 
119 #endif
#define CHFt_CONST_INT(i)
Definition: FORT_PROTO.H:989
void CHFp_REAL(wt))
Definition: NodeLevelMGF_F.H:85
#define CHFt_FRA(a)
Definition: FORT_PROTO.H:1053
void CHFp_CONST_REAL(frac)
void CHFp_CONST_FRA(crse)
#define CHFt_INT(i)
Definition: FORT_PROTO.H:988
#define CHFt_CONST_FRA(a)
Definition: FORT_PROTO.H:1095
void FORTRAN_NAME(NODEINTERPMG_GETWEIGHTS, nodeinterpmg_getweights)(CHFp_CONST_INT(nref)
void CHFp_BOX(bref)
void CHFp_FRA(wtcrnr))
Definition: NodeLevelMGF_F.H:26
#define CHFt_BOX(b)
Definition: FORT_PROTO.H:1026
#define CH_TIMELEAF(name)
Definition: CH_Timer.H:100
void CHFp_INT(ibmax))
Definition: NodeLevelMGF_F.H:108
void CHFp_CONST_INT(nref)
Definition: QuadCFInterpF_F.H:38
#define CHFt_CONST_REAL(r)
Definition: FORT_PROTO.H:991
#define CHFt_REAL(r)
Definition: FORT_PROTO.H:990