Chombo + EB + MF  3.2
BaseFabIntPlusF_F.H
Go to the documentation of this file.
1 #ifndef _BASEFABINTPLUSF_F_H_
2 #define _BASEFABINTPLUSF_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 GUARDBASEFABINTPLUS
12 #define GUARDBASEFABINTPLUS
13 // Prototype for Fortran procedure basefabintplus ...
14 //
15 void FORTRAN_NAME( BASEFABINTPLUS ,basefabintplus )(
16  CHFp_FIA(sum)
17  ,CHFp_CONST_FIA(piece)
18  ,CHFp_BOX(bx) );
19 
20 #define FORT_BASEFABINTPLUS FORTRAN_NAME( inlineBASEFABINTPLUS, inlineBASEFABINTPLUS)
21 #define FORTNT_BASEFABINTPLUS FORTRAN_NAME( BASEFABINTPLUS, basefabintplus)
22 
23 inline void FORTRAN_NAME(inlineBASEFABINTPLUS, inlineBASEFABINTPLUS)(
24  CHFp_FIA(sum)
25  ,CHFp_CONST_FIA(piece)
26  ,CHFp_BOX(bx) )
27 {
28  CH_TIMELEAF("FORT_BASEFABINTPLUS");
29  FORTRAN_NAME( BASEFABINTPLUS ,basefabintplus )(
30  CHFt_FIA(sum)
31  ,CHFt_CONST_FIA(piece)
32  ,CHFt_BOX(bx) );
33 }
34 #endif // GUARDBASEFABINTPLUS
35 
36 }
37 
38 #endif
void FORTRAN_NAME(BASEFABINTPLUS, basefabintplus)(CHFp_FIA(sum)
#define CHFt_FIA(a)
Definition: FORT_PROTO.H:1039
#define CHFp_FIA(a)
Definition: FORT_PROTO.H:789
void CHFp_CONST_FIA(piece)
void CHFp_BOX(bx))
Definition: BaseFabIntPlusF_F.H:26
#define CHFt_BOX(b)
Definition: FORT_PROTO.H:1026
#define CHFt_CONST_FIA(a)
Definition: FORT_PROTO.H:1081
#define CH_TIMELEAF(name)
Definition: CH_Timer.H:100