Chombo + EB + MF  3.2
MACProjectorF_F.H
Go to the documentation of this file.
1 #ifndef _MACPROJECTORF_F_H_
2 #define _MACPROJECTORF_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 GUARDREGCORRECTTANVEL
12 #define GUARDREGCORRECTTANVEL
13 // Prototype for Fortran procedure regcorrecttanvel ...
14 //
15 void FORTRAN_NAME( REGCORRECTTANVEL ,regcorrecttanvel )(
16  CHFp_FRA1(vel)
17  ,CHFp_CONST_FRA1(grad)
18  ,CHFp_BOX(interiorbox)
19  ,CHFp_INT(veldir)
20  ,CHFp_INT(graddir) );
21 
22 #define FORT_REGCORRECTTANVEL FORTRAN_NAME( inlineREGCORRECTTANVEL, inlineREGCORRECTTANVEL)
23 #define FORTNT_REGCORRECTTANVEL FORTRAN_NAME( REGCORRECTTANVEL, regcorrecttanvel)
24 
25 inline void FORTRAN_NAME(inlineREGCORRECTTANVEL, inlineREGCORRECTTANVEL)(
26  CHFp_FRA1(vel)
27  ,CHFp_CONST_FRA1(grad)
28  ,CHFp_BOX(interiorbox)
29  ,CHFp_INT(veldir)
30  ,CHFp_INT(graddir) )
31 {
32  CH_TIMELEAF("FORT_REGCORRECTTANVEL");
33  FORTRAN_NAME( REGCORRECTTANVEL ,regcorrecttanvel )(
34  CHFt_FRA1(vel)
35  ,CHFt_CONST_FRA1(grad)
36  ,CHFt_BOX(interiorbox)
37  ,CHFt_INT(veldir)
38  ,CHFt_INT(graddir) );
39 }
40 #endif // GUARDREGCORRECTTANVEL
41 
42 #ifndef GUARDREGCORRECTTANVELVARDENS
43 #define GUARDREGCORRECTTANVELVARDENS
44 // Prototype for Fortran procedure regcorrecttanvelvardens ...
45 //
46 void FORTRAN_NAME( REGCORRECTTANVELVARDENS ,regcorrecttanvelvardens )(
47  CHFp_FRA1(vel)
48  ,CHFp_CONST_FRA1(grad)
49  ,CHFp_CONST_FRA1(oneoverdens)
50  ,CHFp_BOX(interiorbox)
51  ,CHFp_INT(veldir)
52  ,CHFp_INT(graddir) );
53 
54 #define FORT_REGCORRECTTANVELVARDENS FORTRAN_NAME( inlineREGCORRECTTANVELVARDENS, inlineREGCORRECTTANVELVARDENS)
55 #define FORTNT_REGCORRECTTANVELVARDENS FORTRAN_NAME( REGCORRECTTANVELVARDENS, regcorrecttanvelvardens)
56 
57 inline void FORTRAN_NAME(inlineREGCORRECTTANVELVARDENS, inlineREGCORRECTTANVELVARDENS)(
58  CHFp_FRA1(vel)
59  ,CHFp_CONST_FRA1(grad)
60  ,CHFp_CONST_FRA1(oneoverdens)
61  ,CHFp_BOX(interiorbox)
62  ,CHFp_INT(veldir)
63  ,CHFp_INT(graddir) )
64 {
65  CH_TIMELEAF("FORT_REGCORRECTTANVELVARDENS");
66  FORTRAN_NAME( REGCORRECTTANVELVARDENS ,regcorrecttanvelvardens )(
67  CHFt_FRA1(vel)
68  ,CHFt_CONST_FRA1(grad)
69  ,CHFt_CONST_FRA1(oneoverdens)
70  ,CHFt_BOX(interiorbox)
71  ,CHFt_INT(veldir)
72  ,CHFt_INT(graddir) );
73 }
74 #endif // GUARDREGCORRECTTANVELVARDENS
75 
76 #ifndef GUARDMACDIVERGEF
77 #define GUARDMACDIVERGEF
78 // Prototype for Fortran procedure macdivergef ...
79 //
80 void FORTRAN_NAME( MACDIVERGEF ,macdivergef )(
81  CHFp_BOX(dcalc)
82  ,CHFp_FRA(divf)
83  ,CHFp_CONST_FRA(flux)
84  ,CHFp_CONST_INT(facedir)
85  ,CHFp_CONST_INT(nconserved)
86  ,CHFp_CONST_REAL(dx) );
87 
88 #define FORT_MACDIVERGEF FORTRAN_NAME( inlineMACDIVERGEF, inlineMACDIVERGEF)
89 #define FORTNT_MACDIVERGEF FORTRAN_NAME( MACDIVERGEF, macdivergef)
90 
91 inline void FORTRAN_NAME(inlineMACDIVERGEF, inlineMACDIVERGEF)(
92  CHFp_BOX(dcalc)
93  ,CHFp_FRA(divf)
94  ,CHFp_CONST_FRA(flux)
95  ,CHFp_CONST_INT(facedir)
96  ,CHFp_CONST_INT(nconserved)
98 {
99  CH_TIMELEAF("FORT_MACDIVERGEF");
100  FORTRAN_NAME( MACDIVERGEF ,macdivergef )(
101  CHFt_BOX(dcalc)
102  ,CHFt_FRA(divf)
103  ,CHFt_CONST_FRA(flux)
104  ,CHFt_CONST_INT(facedir)
105  ,CHFt_CONST_INT(nconserved)
106  ,CHFt_CONST_REAL(dx) );
107 }
108 #endif // GUARDMACDIVERGEF
109 
110 #ifndef GUARDMACGRADPHI
111 #define GUARDMACGRADPHI
112 // Prototype for Fortran procedure macgradphi ...
113 //
114 void FORTRAN_NAME( MACGRADPHI ,macgradphi )(
115  CHFp_FRA1(gradphi)
116  ,CHFp_CONST_FRA1(phi)
117  ,CHFp_CONST_INT(facedir)
118  ,CHFp_CONST_REAL(dx)
119  ,CHFp_BOX(facebox) );
120 
121 #define FORT_MACGRADPHI FORTRAN_NAME( inlineMACGRADPHI, inlineMACGRADPHI)
122 #define FORTNT_MACGRADPHI FORTRAN_NAME( MACGRADPHI, macgradphi)
123 
124 inline void FORTRAN_NAME(inlineMACGRADPHI, inlineMACGRADPHI)(
125  CHFp_FRA1(gradphi)
126  ,CHFp_CONST_FRA1(phi)
127  ,CHFp_CONST_INT(facedir)
128  ,CHFp_CONST_REAL(dx)
129  ,CHFp_BOX(facebox) )
130 {
131  CH_TIMELEAF("FORT_MACGRADPHI");
132  FORTRAN_NAME( MACGRADPHI ,macgradphi )(
133  CHFt_FRA1(gradphi)
134  ,CHFt_CONST_FRA1(phi)
135  ,CHFt_CONST_INT(facedir)
136  ,CHFt_CONST_REAL(dx)
137  ,CHFt_BOX(facebox) );
138 }
139 #endif // GUARDMACGRADPHI
140 
141 }
142 
143 #endif
#define CHFt_CONST_INT(i)
Definition: FORT_PROTO.H:989
void CHFp_FRA(divf)
void FORTRAN_NAME(REGCORRECTTANVEL, regcorrecttanvel)(CHFp_FRA1(vel)
#define CHFp_FRA1(a)
Definition: FORT_PROTO.H:913
void CHFp_CONST_FRA1(grad)
void CHFp_BOX(interiorbox)
#define CHFt_FRA(a)
Definition: FORT_PROTO.H:1053
#define CHFt_INT(i)
Definition: FORT_PROTO.H:988
#define CHFt_CONST_FRA(a)
Definition: FORT_PROTO.H:1095
void CHFp_INT(veldir)
void CHFp_CONST_INT(facedir)
#define CHFt_FRA1(a)
Definition: FORT_PROTO.H:1136
void CHFp_CONST_REAL(dx))
Definition: MACProjectorF_F.H:97
#define CHFt_CONST_FRA1(a)
Definition: FORT_PROTO.H:1188
#define CHFt_BOX(b)
Definition: FORT_PROTO.H:1026
#define CH_TIMELEAF(name)
Definition: CH_Timer.H:100
#define CHFt_CONST_REAL(r)
Definition: FORT_PROTO.H:991
void CHFp_CONST_FRA(flux)