Chombo + EB + MF  3.2
NodeDotProdF_F.H
Go to the documentation of this file.
1 #ifndef _NODEDOTPRODF_F_H_
2 #define _NODEDOTPRODF_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 GUARDTRAPWEIGHTS
12 #define GUARDTRAPWEIGHTS
13 // Prototype for Fortran procedure TRAPWEIGHTS ...
14 //
15 void FORTRAN_NAME( TRAPWEIGHTS ,trapweights )(
16  CHFp_FRA1(wt)
17  ,CHFp_BOX(region)
18  ,CHFp_CONST_REAL(dv) );
19 
20 #define FORT_TRAPWEIGHTS FORTRAN_NAME( inlineTRAPWEIGHTS, inlineTRAPWEIGHTS)
21 #define FORTNT_TRAPWEIGHTS FORTRAN_NAME( TRAPWEIGHTS, trapweights)
22 
23 inline void FORTRAN_NAME(inlineTRAPWEIGHTS, inlineTRAPWEIGHTS)(
24  CHFp_FRA1(wt)
25  ,CHFp_BOX(region)
27 {
28  CH_TIMELEAF("FORT_TRAPWEIGHTS");
29  FORTRAN_NAME( TRAPWEIGHTS ,trapweights )(
30  CHFt_FRA1(wt)
31  ,CHFt_BOX(region)
32  ,CHFt_CONST_REAL(dv) );
33 }
34 #endif // GUARDTRAPWEIGHTS
35 
36 #ifndef GUARDNODEDOTPRODUCT
37 #define GUARDNODEDOTPRODUCT
38 // Prototype for Fortran procedure NODEDOTPRODUCT ...
39 //
40 void FORTRAN_NAME( NODEDOTPRODUCT ,nodedotproduct )(
41  CHFp_REAL(dotprodout)
42  ,CHFp_CONST_FRA(afab)
43  ,CHFp_CONST_FRA(bfab)
44  ,CHFp_CONST_FRA1(wfab)
45  ,CHFp_BOX(region)
46  ,CHFp_CONST_INT(startcomp)
47  ,CHFp_CONST_INT(endcomp) );
48 
49 #define FORT_NODEDOTPRODUCT FORTRAN_NAME( inlineNODEDOTPRODUCT, inlineNODEDOTPRODUCT)
50 #define FORTNT_NODEDOTPRODUCT FORTRAN_NAME( NODEDOTPRODUCT, nodedotproduct)
51 
52 inline void FORTRAN_NAME(inlineNODEDOTPRODUCT, inlineNODEDOTPRODUCT)(
53  CHFp_REAL(dotprodout)
54  ,CHFp_CONST_FRA(afab)
55  ,CHFp_CONST_FRA(bfab)
56  ,CHFp_CONST_FRA1(wfab)
57  ,CHFp_BOX(region)
58  ,CHFp_CONST_INT(startcomp)
59  ,CHFp_CONST_INT(endcomp) )
60 {
61  CH_TIMELEAF("FORT_NODEDOTPRODUCT");
62  FORTRAN_NAME( NODEDOTPRODUCT ,nodedotproduct )(
63  CHFt_REAL(dotprodout)
64  ,CHFt_CONST_FRA(afab)
65  ,CHFt_CONST_FRA(bfab)
66  ,CHFt_CONST_FRA1(wfab)
67  ,CHFt_BOX(region)
68  ,CHFt_CONST_INT(startcomp)
69  ,CHFt_CONST_INT(endcomp) );
70 }
71 #endif // GUARDNODEDOTPRODUCT
72 
73 #ifndef GUARDNODENORM
74 #define GUARDNODENORM
75 // Prototype for Fortran procedure NODENORM ...
76 //
77 void FORTRAN_NAME( NODENORM ,nodenorm )(
78  CHFp_REAL(normout)
79  ,CHFp_CONST_INT(p)
80  ,CHFp_CONST_FRA(afab)
81  ,CHFp_CONST_FRA1(wfab)
82  ,CHFp_BOX(region)
83  ,CHFp_CONST_INT(startcomp)
84  ,CHFp_CONST_INT(endcomp) );
85 
86 #define FORT_NODENORM FORTRAN_NAME( inlineNODENORM, inlineNODENORM)
87 #define FORTNT_NODENORM FORTRAN_NAME( NODENORM, nodenorm)
88 
89 inline void FORTRAN_NAME(inlineNODENORM, inlineNODENORM)(
90  CHFp_REAL(normout)
91  ,CHFp_CONST_INT(p)
92  ,CHFp_CONST_FRA(afab)
93  ,CHFp_CONST_FRA1(wfab)
94  ,CHFp_BOX(region)
95  ,CHFp_CONST_INT(startcomp)
96  ,CHFp_CONST_INT(endcomp) )
97 {
98  CH_TIMELEAF("FORT_NODENORM");
99  FORTRAN_NAME( NODENORM ,nodenorm )(
100  CHFt_REAL(normout)
101  ,CHFt_CONST_INT(p)
102  ,CHFt_CONST_FRA(afab)
103  ,CHFt_CONST_FRA1(wfab)
104  ,CHFt_BOX(region)
105  ,CHFt_CONST_INT(startcomp)
106  ,CHFt_CONST_INT(endcomp) );
107 }
108 #endif // GUARDNODENORM
109 
110 #ifndef GUARDNODEINTEGRAL
111 #define GUARDNODEINTEGRAL
112 // Prototype for Fortran procedure NODEINTEGRAL ...
113 //
114 void FORTRAN_NAME( NODEINTEGRAL ,nodeintegral )(
115  CHFp_REAL(ans)
116  ,CHFp_CONST_FRA(afab)
117  ,CHFp_CONST_FRA1(wfab)
118  ,CHFp_BOX(region)
119  ,CHFp_CONST_INT(startcomp)
120  ,CHFp_CONST_INT(endcomp) );
121 
122 #define FORT_NODEINTEGRAL FORTRAN_NAME( inlineNODEINTEGRAL, inlineNODEINTEGRAL)
123 #define FORTNT_NODEINTEGRAL FORTRAN_NAME( NODEINTEGRAL, nodeintegral)
124 
125 inline void FORTRAN_NAME(inlineNODEINTEGRAL, inlineNODEINTEGRAL)(
126  CHFp_REAL(ans)
127  ,CHFp_CONST_FRA(afab)
128  ,CHFp_CONST_FRA1(wfab)
129  ,CHFp_BOX(region)
130  ,CHFp_CONST_INT(startcomp)
131  ,CHFp_CONST_INT(endcomp) )
132 {
133  CH_TIMELEAF("FORT_NODEINTEGRAL");
134  FORTRAN_NAME( NODEINTEGRAL ,nodeintegral )(
135  CHFt_REAL(ans)
136  ,CHFt_CONST_FRA(afab)
137  ,CHFt_CONST_FRA1(wfab)
138  ,CHFt_BOX(region)
139  ,CHFt_CONST_INT(startcomp)
140  ,CHFt_CONST_INT(endcomp) );
141 }
142 #endif // GUARDNODEINTEGRAL
143 
144 #ifndef GUARDNODEMAXNORM
145 #define GUARDNODEMAXNORM
146 // Prototype for Fortran procedure NODEMAXNORM ...
147 //
148 void FORTRAN_NAME( NODEMAXNORM ,nodemaxnorm )(
149  CHFp_REAL(normout)
150  ,CHFp_CONST_FRA(afab)
151  ,CHFp_BOX(region)
152  ,CHFp_CONST_INT(startcomp)
153  ,CHFp_CONST_INT(endcomp) );
154 
155 #define FORT_NODEMAXNORM FORTRAN_NAME( inlineNODEMAXNORM, inlineNODEMAXNORM)
156 #define FORTNT_NODEMAXNORM FORTRAN_NAME( NODEMAXNORM, nodemaxnorm)
157 
158 inline void FORTRAN_NAME(inlineNODEMAXNORM, inlineNODEMAXNORM)(
159  CHFp_REAL(normout)
160  ,CHFp_CONST_FRA(afab)
161  ,CHFp_BOX(region)
162  ,CHFp_CONST_INT(startcomp)
163  ,CHFp_CONST_INT(endcomp) )
164 {
165  CH_TIMELEAF("FORT_NODEMAXNORM");
166  FORTRAN_NAME( NODEMAXNORM ,nodemaxnorm )(
167  CHFt_REAL(normout)
168  ,CHFt_CONST_FRA(afab)
169  ,CHFt_BOX(region)
170  ,CHFt_CONST_INT(startcomp)
171  ,CHFt_CONST_INT(endcomp) );
172 }
173 #endif // GUARDNODEMAXNORM
174 
175 }
176 
177 #endif
void FORTRAN_NAME(TRAPWEIGHTS, trapweights)(CHFp_FRA1(wt)
#define CHFt_CONST_INT(i)
Definition: FORT_PROTO.H:989
void CHFp_CONST_FRA(afab)
#define CHFp_FRA1(a)
Definition: FORT_PROTO.H:913
#define CHFp_REAL(r)
Definition: FORT_PROTO.H:742
#define CHFt_CONST_FRA(a)
Definition: FORT_PROTO.H:1095
#define CHFt_FRA1(a)
Definition: FORT_PROTO.H:1136
void CHFp_CONST_INT(startcomp)
#define CHFt_CONST_FRA1(a)
Definition: FORT_PROTO.H:1188
void CHFp_CONST_FRA1(wfab)
#define CHFt_BOX(b)
Definition: FORT_PROTO.H:1026
#define CH_TIMELEAF(name)
Definition: CH_Timer.H:100
void CHFp_CONST_REAL(dv))
Definition: NodeDotProdF_F.H:26
#define CHFt_CONST_REAL(r)
Definition: FORT_PROTO.H:991
#define CHFt_REAL(r)
Definition: FORT_PROTO.H:990
void CHFp_BOX(region)