Chombo + EB + MF  3.2
DotProdF_F.H
Go to the documentation of this file.
1 #ifndef _DOTPRODF_F_H_
2 #define _DOTPRODF_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 GUARDDOTPRODUCT
12 #define GUARDDOTPRODUCT
13 // Prototype for Fortran procedure DOTPRODUCT ...
14 //
15 void FORTRAN_NAME( DOTPRODUCT ,dotproduct )(
16  CHFp_REAL(dotprodout)
17  ,CHFp_CONST_FRA(afab)
18  ,CHFp_CONST_FRA(bfab)
19  ,CHFp_BOX(region)
20  ,CHFp_CONST_INT(startcomp)
21  ,CHFp_CONST_INT(endcomp) );
22 
23 #define FORT_DOTPRODUCT FORTRAN_NAME( inlineDOTPRODUCT, inlineDOTPRODUCT)
24 #define FORTNT_DOTPRODUCT FORTRAN_NAME( DOTPRODUCT, dotproduct)
25 
26 inline void FORTRAN_NAME(inlineDOTPRODUCT, inlineDOTPRODUCT)(
27  CHFp_REAL(dotprodout)
28  ,CHFp_CONST_FRA(afab)
29  ,CHFp_CONST_FRA(bfab)
30  ,CHFp_BOX(region)
31  ,CHFp_CONST_INT(startcomp)
32  ,CHFp_CONST_INT(endcomp) )
33 {
34  CH_TIMELEAF("FORT_DOTPRODUCT");
35  FORTRAN_NAME( DOTPRODUCT ,dotproduct )(
36  CHFt_REAL(dotprodout)
37  ,CHFt_CONST_FRA(afab)
38  ,CHFt_CONST_FRA(bfab)
39  ,CHFt_BOX(region)
40  ,CHFt_CONST_INT(startcomp)
41  ,CHFt_CONST_INT(endcomp) );
42 }
43 #endif // GUARDDOTPRODUCT
44 
45 }
46 
47 #endif
#define CHFt_CONST_INT(i)
Definition: FORT_PROTO.H:989
#define CHFp_REAL(r)
Definition: FORT_PROTO.H:742
void FORTRAN_NAME(DOTPRODUCT, dotproduct)(CHFp_REAL(dotprodout)
#define CHFt_CONST_FRA(a)
Definition: FORT_PROTO.H:1095
void CHFp_BOX(region)
Definition: ResistivityOpF_F.H:54
void CHFp_CONST_FRA(afab)
void CHFp_CONST_INT(startcomp)
#define CHFt_BOX(b)
Definition: FORT_PROTO.H:1026
#define CH_TIMELEAF(name)
Definition: CH_Timer.H:100
#define CHFt_REAL(r)
Definition: FORT_PROTO.H:990