Chombo + EB + MF  3.2
EdgeToCellF_F.H
Go to the documentation of this file.
1 #ifndef _EDGETOCELLF_F_H_
2 #define _EDGETOCELLF_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 GUARDEDGETOCELL
12 #define GUARDEDGETOCELL
13 // Prototype for Fortran procedure EDGETOCELL ...
14 //
15 void FORTRAN_NAME( EDGETOCELL ,edgetocell )(
16  CHFp_CONST_FRA1(edgeData)
17  ,CHFp_FRA1(cellData)
18  ,CHFp_BOX(cellBox)
19  ,CHFp_CONST_INT(dir) );
20 
21 #define FORT_EDGETOCELL FORTRAN_NAME( inlineEDGETOCELL, inlineEDGETOCELL)
22 #define FORTNT_EDGETOCELL FORTRAN_NAME( EDGETOCELL, edgetocell)
23 
24 inline void FORTRAN_NAME(inlineEDGETOCELL, inlineEDGETOCELL)(
25  CHFp_CONST_FRA1(edgeData)
26  ,CHFp_FRA1(cellData)
27  ,CHFp_BOX(cellBox)
29 {
30  CH_TIMELEAF("FORT_EDGETOCELL");
31  FORTRAN_NAME( EDGETOCELL ,edgetocell )(
32  CHFt_CONST_FRA1(edgeData)
33  ,CHFt_FRA1(cellData)
34  ,CHFt_BOX(cellBox)
35  ,CHFt_CONST_INT(dir) );
36 }
37 #endif // GUARDEDGETOCELL
38 
39 #ifndef GUARDEDGETOINCREMENTCELL
40 #define GUARDEDGETOINCREMENTCELL
41 // Prototype for Fortran procedure EDGETOINCREMENTCELL ...
42 //
43 void FORTRAN_NAME( EDGETOINCREMENTCELL ,edgetoincrementcell )(
44  CHFp_CONST_FRA1(edgeData)
45  ,CHFp_FRA1(cellData)
46  ,CHFp_BOX(cellBox)
47  ,CHFp_CONST_INT(dir) );
48 
49 #define FORT_EDGETOINCREMENTCELL FORTRAN_NAME( inlineEDGETOINCREMENTCELL, inlineEDGETOINCREMENTCELL)
50 #define FORTNT_EDGETOINCREMENTCELL FORTRAN_NAME( EDGETOINCREMENTCELL, edgetoincrementcell)
51 
52 inline void FORTRAN_NAME(inlineEDGETOINCREMENTCELL, inlineEDGETOINCREMENTCELL)(
53  CHFp_CONST_FRA1(edgeData)
54  ,CHFp_FRA1(cellData)
55  ,CHFp_BOX(cellBox)
56  ,CHFp_CONST_INT(dir) )
57 {
58  CH_TIMELEAF("FORT_EDGETOINCREMENTCELL");
59  FORTRAN_NAME( EDGETOINCREMENTCELL ,edgetoincrementcell )(
60  CHFt_CONST_FRA1(edgeData)
61  ,CHFt_FRA1(cellData)
62  ,CHFt_BOX(cellBox)
63  ,CHFt_CONST_INT(dir) );
64 }
65 #endif // GUARDEDGETOINCREMENTCELL
66 
67 #ifndef GUARDEDGETOCELLMAX
68 #define GUARDEDGETOCELLMAX
69 // Prototype for Fortran procedure EDGETOCELLMAX ...
70 //
71 void FORTRAN_NAME( EDGETOCELLMAX ,edgetocellmax )(
72  CHFp_CONST_FRA1(edgeData)
73  ,CHFp_FRA1(cellData)
74  ,CHFp_BOX(cellBox)
75  ,CHFp_CONST_INT(dir) );
76 
77 #define FORT_EDGETOCELLMAX FORTRAN_NAME( inlineEDGETOCELLMAX, inlineEDGETOCELLMAX)
78 #define FORTNT_EDGETOCELLMAX FORTRAN_NAME( EDGETOCELLMAX, edgetocellmax)
79 
80 inline void FORTRAN_NAME(inlineEDGETOCELLMAX, inlineEDGETOCELLMAX)(
81  CHFp_CONST_FRA1(edgeData)
82  ,CHFp_FRA1(cellData)
83  ,CHFp_BOX(cellBox)
84  ,CHFp_CONST_INT(dir) )
85 {
86  CH_TIMELEAF("FORT_EDGETOCELLMAX");
87  FORTRAN_NAME( EDGETOCELLMAX ,edgetocellmax )(
88  CHFt_CONST_FRA1(edgeData)
89  ,CHFt_FRA1(cellData)
90  ,CHFt_BOX(cellBox)
91  ,CHFt_CONST_INT(dir) );
92 }
93 #endif // GUARDEDGETOCELLMAX
94 
95 }
96 
97 #endif
#define CHFt_CONST_INT(i)
Definition: FORT_PROTO.H:989
void CHFp_CONST_INT(dir))
Definition: EdgeToCellF_F.H:28
#define CHFp_CONST_FRA1(a)
Definition: FORT_PROTO.H:952
void CHFp_FRA1(cellData)
#define CHFt_FRA1(a)
Definition: FORT_PROTO.H:1136
void CHFp_BOX(cellBox)
void FORTRAN_NAME(EDGETOCELL, edgetocell)(CHFp_CONST_FRA1(edgeData)
#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