Chombo + EB + MF  3.2
HalveIntF_F.H
Go to the documentation of this file.
1 #ifndef _HALVEINTF_F_H_
2 #define _HALVEINTF_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 GUARDHALVEINT
12 #define GUARDHALVEINT
13 // Prototype for Fortran procedure halveint ...
14 //
15 void FORTRAN_NAME( HALVEINT ,halveint )(
16  CHFp_FIA(arr)
17  ,CHFp_BOX(bx) );
18 
19 #define FORT_HALVEINT FORTRAN_NAME( inlineHALVEINT, inlineHALVEINT)
20 #define FORTNT_HALVEINT FORTRAN_NAME( HALVEINT, halveint)
21 
22 inline void FORTRAN_NAME(inlineHALVEINT, inlineHALVEINT)(
23  CHFp_FIA(arr)
24  ,CHFp_BOX(bx) )
25 {
26  CH_TIMELEAF("FORT_HALVEINT");
27  FORTRAN_NAME( HALVEINT ,halveint )(
28  CHFt_FIA(arr)
29  ,CHFt_BOX(bx) );
30 }
31 #endif // GUARDHALVEINT
32 
33 }
34 
35 #endif
void CHFp_BOX(bx))
Definition: HalveIntF_F.H:24
void FORTRAN_NAME(HALVEINT, halveint)(CHFp_FIA(arr)
#define CHFt_FIA(a)
Definition: FORT_PROTO.H:1039
#define CHFp_FIA(a)
Definition: FORT_PROTO.H:789
#define CHFt_BOX(b)
Definition: FORT_PROTO.H:1026
#define CH_TIMELEAF(name)
Definition: CH_Timer.H:100