Chombo + EB + MF  3.2
InterpFace_F.H
Go to the documentation of this file.
1 #ifndef _INTERPFACE_F_H_
2 #define _INTERPFACE_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 GUARDINTERPFACECONSTANT
12 #define GUARDINTERPFACECONSTANT
13 // Prototype for Fortran procedure interpfaceconstant ...
14 //
15 void FORTRAN_NAME( INTERPFACECONSTANT ,interpfaceconstant )(
16  CHFp_FRA(fine)
17  ,CHFp_CONST_FRA(coarse)
18  ,CHFp_BOX(b)
19  ,CHFp_CONST_INT(ref_ratio)
20  ,CHFp_BOX(bref)
21  ,CHFp_CONST_INT(dir) );
22 
23 #define FORT_INTERPFACECONSTANT FORTRAN_NAME( inlineINTERPFACECONSTANT, inlineINTERPFACECONSTANT)
24 #define FORTNT_INTERPFACECONSTANT FORTRAN_NAME( INTERPFACECONSTANT, interpfaceconstant)
25 
26 inline void FORTRAN_NAME(inlineINTERPFACECONSTANT, inlineINTERPFACECONSTANT)(
27  CHFp_FRA(fine)
28  ,CHFp_CONST_FRA(coarse)
29  ,CHFp_BOX(b)
30  ,CHFp_CONST_INT(ref_ratio)
31  ,CHFp_BOX(bref)
33 {
34  CH_TIMELEAF("FORT_INTERPFACECONSTANT");
35  FORTRAN_NAME( INTERPFACECONSTANT ,interpfaceconstant )(
36  CHFt_FRA(fine)
37  ,CHFt_CONST_FRA(coarse)
38  ,CHFt_BOX(b)
39  ,CHFt_CONST_INT(ref_ratio)
40  ,CHFt_BOX(bref)
41  ,CHFt_CONST_INT(dir) );
42 }
43 #endif // GUARDINTERPFACECONSTANT
44 
45 #ifndef GUARDINTERPLINEARFACE
46 #define GUARDINTERPLINEARFACE
47 // Prototype for Fortran procedure interplinearface ...
48 //
49 void FORTRAN_NAME( INTERPLINEARFACE ,interplinearface )(
50  CHFp_FRA(fine)
51  ,CHFp_CONST_FRA(slope)
52  ,CHFp_BOX(b)
53  ,CHFp_CONST_INT(dir)
54  ,CHFp_CONST_INT(ref_ratio)
55  ,CHFp_BOX(brefface) );
56 
57 #define FORT_INTERPLINEARFACE FORTRAN_NAME( inlineINTERPLINEARFACE, inlineINTERPLINEARFACE)
58 #define FORTNT_INTERPLINEARFACE FORTRAN_NAME( INTERPLINEARFACE, interplinearface)
59 
60 inline void FORTRAN_NAME(inlineINTERPLINEARFACE, inlineINTERPLINEARFACE)(
61  CHFp_FRA(fine)
62  ,CHFp_CONST_FRA(slope)
63  ,CHFp_BOX(b)
64  ,CHFp_CONST_INT(dir)
65  ,CHFp_CONST_INT(ref_ratio)
66  ,CHFp_BOX(brefface) )
67 {
68  CH_TIMELEAF("FORT_INTERPLINEARFACE");
69  FORTRAN_NAME( INTERPLINEARFACE ,interplinearface )(
70  CHFt_FRA(fine)
71  ,CHFt_CONST_FRA(slope)
72  ,CHFt_BOX(b)
73  ,CHFt_CONST_INT(dir)
74  ,CHFt_CONST_INT(ref_ratio)
75  ,CHFt_BOX(brefface) );
76 }
77 #endif // GUARDINTERPLINEARFACE
78 
79 #ifndef GUARDINTERPLINEARINTERIORFACE
80 #define GUARDINTERPLINEARINTERIORFACE
81 // Prototype for Fortran procedure interplinearinteriorface ...
82 //
83 void FORTRAN_NAME( INTERPLINEARINTERIORFACE ,interplinearinteriorface )(
84  CHFp_FRA(fine)
85  ,CHFp_BOX(bcoarse)
86  ,CHFp_CONST_INT(ref_ratio)
87  ,CHFp_CONST_INT(facedir)
88  ,CHFp_BOX(interiorrefbox) );
89 
90 #define FORT_INTERPLINEARINTERIORFACE FORTRAN_NAME( inlineINTERPLINEARINTERIORFACE, inlineINTERPLINEARINTERIORFACE)
91 #define FORTNT_INTERPLINEARINTERIORFACE FORTRAN_NAME( INTERPLINEARINTERIORFACE, interplinearinteriorface)
92 
93 inline void FORTRAN_NAME(inlineINTERPLINEARINTERIORFACE, inlineINTERPLINEARINTERIORFACE)(
94  CHFp_FRA(fine)
95  ,CHFp_BOX(bcoarse)
96  ,CHFp_CONST_INT(ref_ratio)
97  ,CHFp_CONST_INT(facedir)
98  ,CHFp_BOX(interiorrefbox) )
99 {
100  CH_TIMELEAF("FORT_INTERPLINEARINTERIORFACE");
101  FORTRAN_NAME( INTERPLINEARINTERIORFACE ,interplinearinteriorface )(
102  CHFt_FRA(fine)
103  ,CHFt_BOX(bcoarse)
104  ,CHFt_CONST_INT(ref_ratio)
105  ,CHFt_CONST_INT(facedir)
106  ,CHFt_BOX(interiorrefbox) );
107 }
108 #endif // GUARDINTERPLINEARINTERIORFACE
109 
110 #ifndef GUARDINTERPLIMITFACE
111 #define GUARDINTERPLIMITFACE
112 // Prototype for Fortran procedure interplimitface ...
113 //
114 void FORTRAN_NAME( INTERPLIMITFACE ,interplimitface )(
115  CHFp_FRA(islope)
116  ,CHFp_FRA(jslope)
117  ,CHFp_FRA(kslope)
118  ,CHFp_FRA(lslope)
119  ,CHFp_FRA(mslope)
120  ,CHFp_FRA(nslope)
121  ,CHFp_CONST_FRA(state)
122  ,CHFp_BOX(b)
123  ,CHFp_BOX(bn)
124  ,CHFp_BOX(validBox)
125  ,CHFp_CONST_INT(normaldir) );
126 
127 #define FORT_INTERPLIMITFACE FORTRAN_NAME( inlineINTERPLIMITFACE, inlineINTERPLIMITFACE)
128 #define FORTNT_INTERPLIMITFACE FORTRAN_NAME( INTERPLIMITFACE, interplimitface)
129 
130 inline void FORTRAN_NAME(inlineINTERPLIMITFACE, inlineINTERPLIMITFACE)(
131  CHFp_FRA(islope)
132  ,CHFp_FRA(jslope)
133  ,CHFp_FRA(kslope)
134  ,CHFp_FRA(lslope)
135  ,CHFp_FRA(mslope)
136  ,CHFp_FRA(nslope)
137  ,CHFp_CONST_FRA(state)
138  ,CHFp_BOX(b)
139  ,CHFp_BOX(bn)
140  ,CHFp_BOX(validBox)
141  ,CHFp_CONST_INT(normaldir) )
142 {
143  CH_TIMELEAF("FORT_INTERPLIMITFACE");
144  FORTRAN_NAME( INTERPLIMITFACE ,interplimitface )(
145  CHFt_FRA(islope)
146  ,CHFt_FRA(jslope)
147  ,CHFt_FRA(kslope)
148  ,CHFt_FRA(lslope)
149  ,CHFt_FRA(mslope)
150  ,CHFt_FRA(nslope)
151  ,CHFt_CONST_FRA(state)
152  ,CHFt_BOX(b)
153  ,CHFt_BOX(bn)
154  ,CHFt_BOX(validBox)
155  ,CHFt_CONST_INT(normaldir) );
156 }
157 #endif // GUARDINTERPLIMITFACE
158 
159 }
160 
161 #endif
#define CHFt_CONST_INT(i)
Definition: FORT_PROTO.H:989
void CHFp_BOX(b)
void FORTRAN_NAME(INTERPFACECONSTANT, interpfaceconstant)(CHFp_FRA(fine)
void CHFp_FRA(jslope)
#define CHFt_FRA(a)
Definition: FORT_PROTO.H:1053
#define CHFt_CONST_FRA(a)
Definition: FORT_PROTO.H:1095
void CHFp_CONST_FRA(coarse)
void CHFp_CONST_INT(ref_ratio)
#define CHFt_BOX(b)
Definition: FORT_PROTO.H:1026
#define CH_TIMELEAF(name)
Definition: CH_Timer.H:100