Chombo + EB + MF  3.2
AMRNodeOpF_F.H
Go to the documentation of this file.
1 #ifndef _AMRNODEOPF_F_H_
2 #define _AMRNODEOPF_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 GUARDNODEOPLAP
12 #define GUARDNODEOPLAP
13 // Prototype for Fortran procedure NODEOPLAP ...
14 //
15 void FORTRAN_NAME( NODEOPLAP ,nodeoplap )(
16  CHFp_FRA(lofphi)
17  ,CHFp_CONST_FRA(phi)
18  ,CHFp_BOX(region)
19  ,CHFp_CONST_REAL(dx) );
20 
21 #define FORT_NODEOPLAP FORTRAN_NAME( inlineNODEOPLAP, inlineNODEOPLAP)
22 #define FORTNT_NODEOPLAP FORTRAN_NAME( NODEOPLAP, nodeoplap)
23 
24 inline void FORTRAN_NAME(inlineNODEOPLAP, inlineNODEOPLAP)(
25  CHFp_FRA(lofphi)
26  ,CHFp_CONST_FRA(phi)
27  ,CHFp_BOX(region)
29 {
30  CH_TIMELEAF("FORT_NODEOPLAP");
31  FORTRAN_NAME( NODEOPLAP ,nodeoplap )(
32  CHFt_FRA(lofphi)
33  ,CHFt_CONST_FRA(phi)
34  ,CHFt_BOX(region)
35  ,CHFt_CONST_REAL(dx) );
36 }
37 #endif // GUARDNODEOPLAP
38 
39 #ifndef GUARDNODEOPLAPPOINT
40 #define GUARDNODEOPLAPPOINT
41 // Prototype for Fortran procedure NODEOPLAPPOINT ...
42 //
43 void FORTRAN_NAME( NODEOPLAPPOINT ,nodeoplappoint )(
44  CHFp_FRA(lofphi)
45  ,CHFp_CONST_FRA(phi)
47  ,CHFp_CONST_REAL(dx) );
48 
49 #define FORT_NODEOPLAPPOINT FORTRAN_NAME( inlineNODEOPLAPPOINT, inlineNODEOPLAPPOINT)
50 #define FORTNT_NODEOPLAPPOINT FORTRAN_NAME( NODEOPLAPPOINT, nodeoplappoint)
51 
52 inline void FORTRAN_NAME(inlineNODEOPLAPPOINT, inlineNODEOPLAPPOINT)(
53  CHFp_FRA(lofphi)
54  ,CHFp_CONST_FRA(phi)
56  ,CHFp_CONST_REAL(dx) )
57 {
58  CH_TIMELEAF("FORT_NODEOPLAPPOINT");
59  FORTRAN_NAME( NODEOPLAPPOINT ,nodeoplappoint )(
60  CHFt_FRA(lofphi)
61  ,CHFt_CONST_FRA(phi)
63  ,CHFt_CONST_REAL(dx) );
64 }
65 #endif // GUARDNODEOPLAPPOINT
66 
67 #ifndef GUARDNODEGRAD
68 #define GUARDNODEGRAD
69 // Prototype for Fortran procedure NODEGRAD ...
70 //
71 void FORTRAN_NAME( NODEGRAD ,nodegrad )(
72  CHFp_FRA(grdphi)
73  ,CHFp_CONST_FRA(phi)
74  ,CHFp_BOX(region)
75  ,CHFp_CONST_REAL(dx) );
76 
77 #define FORT_NODEGRAD FORTRAN_NAME( inlineNODEGRAD, inlineNODEGRAD)
78 #define FORTNT_NODEGRAD FORTRAN_NAME( NODEGRAD, nodegrad)
79 
80 inline void FORTRAN_NAME(inlineNODEGRAD, inlineNODEGRAD)(
81  CHFp_FRA(grdphi)
82  ,CHFp_CONST_FRA(phi)
83  ,CHFp_BOX(region)
84  ,CHFp_CONST_REAL(dx) )
85 {
86  CH_TIMELEAF("FORT_NODEGRAD");
87  FORTRAN_NAME( NODEGRAD ,nodegrad )(
88  CHFt_FRA(grdphi)
89  ,CHFt_CONST_FRA(phi)
90  ,CHFt_BOX(region)
91  ,CHFt_CONST_REAL(dx) );
92 }
93 #endif // GUARDNODEGRAD
94 
95 #ifndef GUARDNODEGRADPOINT
96 #define GUARDNODEGRADPOINT
97 // Prototype for Fortran procedure NODEGRADPOINT ...
98 //
99 void FORTRAN_NAME( NODEGRADPOINT ,nodegradpoint )(
100  CHFp_FRA(grdphi)
101  ,CHFp_CONST_FRA(phi)
102  ,CHFp_CONST_INTVECT(pt)
103  ,CHFp_CONST_REAL(dx) );
104 
105 #define FORT_NODEGRADPOINT FORTRAN_NAME( inlineNODEGRADPOINT, inlineNODEGRADPOINT)
106 #define FORTNT_NODEGRADPOINT FORTRAN_NAME( NODEGRADPOINT, nodegradpoint)
107 
108 inline void FORTRAN_NAME(inlineNODEGRADPOINT, inlineNODEGRADPOINT)(
109  CHFp_FRA(grdphi)
110  ,CHFp_CONST_FRA(phi)
111  ,CHFp_CONST_INTVECT(pt)
112  ,CHFp_CONST_REAL(dx) )
113 {
114  CH_TIMELEAF("FORT_NODEGRADPOINT");
115  FORTRAN_NAME( NODEGRADPOINT ,nodegradpoint )(
116  CHFt_FRA(grdphi)
117  ,CHFt_CONST_FRA(phi)
118  ,CHFt_CONST_INTVECT(pt)
119  ,CHFt_CONST_REAL(dx) );
120 }
121 #endif // GUARDNODEGRADPOINT
122 
123 #ifndef GUARDNODEGSRBLEVELLAP
124 #define GUARDNODEGSRBLEVELLAP
125 // Prototype for Fortran procedure NODEGSRBLEVELLAP ...
126 //
127 void FORTRAN_NAME( NODEGSRBLEVELLAP ,nodegsrblevellap )(
128  CHFp_FRA(phi)
129  ,CHFp_CONST_FRA(rhs)
130  ,CHFp_BOX(region)
131  ,CHFp_CONST_REAL(dx)
132  ,CHFp_CONST_INT(redBlack) );
133 
134 #define FORT_NODEGSRBLEVELLAP FORTRAN_NAME( inlineNODEGSRBLEVELLAP, inlineNODEGSRBLEVELLAP)
135 #define FORTNT_NODEGSRBLEVELLAP FORTRAN_NAME( NODEGSRBLEVELLAP, nodegsrblevellap)
136 
137 inline void FORTRAN_NAME(inlineNODEGSRBLEVELLAP, inlineNODEGSRBLEVELLAP)(
138  CHFp_FRA(phi)
139  ,CHFp_CONST_FRA(rhs)
140  ,CHFp_BOX(region)
141  ,CHFp_CONST_REAL(dx)
142  ,CHFp_CONST_INT(redBlack) )
143 {
144  CH_TIMELEAF("FORT_NODEGSRBLEVELLAP");
145  FORTRAN_NAME( NODEGSRBLEVELLAP ,nodegsrblevellap )(
146  CHFt_FRA(phi)
147  ,CHFt_CONST_FRA(rhs)
148  ,CHFt_BOX(region)
149  ,CHFt_CONST_REAL(dx)
150  ,CHFt_CONST_INT(redBlack) );
151 }
152 #endif // GUARDNODEGSRBLEVELLAP
153 
154 }
155 
156 #endif
#define CHFp_FRA(a)
Definition: FORT_PROTO.H:803
void CHFp_BOX(region)
#define CHFt_CONST_INT(i)
Definition: FORT_PROTO.H:989
void CHFp_CONST_FRA(phi)
void FORTRAN_NAME(NODEOPLAP, nodeoplap)(CHFp_FRA(lofphi)
void CHFp_CONST_REAL(dx))
Definition: AMRNodeOpF_F.H:28
#define CHFt_FRA(a)
Definition: FORT_PROTO.H:1053
void CHFp_CONST_INT(redBlack))
Definition: AMRNodeOpF_F.H:142
#define CHFt_CONST_FRA(a)
Definition: FORT_PROTO.H:1095
void CHFp_CONST_INTVECT(pt)
#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
#define CHFt_CONST_INTVECT(r)
Definition: FORT_PROTO.H:1014