Chombo + EB + MF  3.2
EBLevelDataOpsF_F.H
Go to the documentation of this file.
1 #ifndef _EBLEVELDATAOPSF_F_H_
2 #define _EBLEVELDATAOPSF_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 GUARDEBAVECELLTOFACE
12 #define GUARDEBAVECELLTOFACE
13 // Prototype for Fortran procedure ebavecelltoface ...
14 //
15 void FORTRAN_NAME( EBAVECELLTOFACE ,ebavecelltoface )(
16  CHFp_FRA1(facedata)
17  ,CHFp_CONST_FRA1(celldata)
18  ,CHFp_CONST_INT(facedir)
19  ,CHFp_BOX(facebox) );
20 
21 #define FORT_EBAVECELLTOFACE FORTRAN_NAME( inlineEBAVECELLTOFACE, inlineEBAVECELLTOFACE)
22 #define FORTNT_EBAVECELLTOFACE FORTRAN_NAME( EBAVECELLTOFACE, ebavecelltoface)
23 
24 inline void FORTRAN_NAME(inlineEBAVECELLTOFACE, inlineEBAVECELLTOFACE)(
25  CHFp_FRA1(facedata)
26  ,CHFp_CONST_FRA1(celldata)
27  ,CHFp_CONST_INT(facedir)
28  ,CHFp_BOX(facebox) )
29 {
30  CH_TIMELEAF("FORT_EBAVECELLTOFACE");
31  FORTRAN_NAME( EBAVECELLTOFACE ,ebavecelltoface )(
32  CHFt_FRA1(facedata)
33  ,CHFt_CONST_FRA1(celldata)
34  ,CHFt_CONST_INT(facedir)
35  ,CHFt_BOX(facebox) );
36 }
37 #endif // GUARDEBAVECELLTOFACE
38 
39 }
40 
41 #endif
#define CHFt_CONST_INT(i)
Definition: FORT_PROTO.H:989
#define CHFp_FRA1(a)
Definition: FORT_PROTO.H:913
void FORTRAN_NAME(EBAVECELLTOFACE, ebavecelltoface)(CHFp_FRA1(facedata)
void CHFp_CONST_FRA1(celldata)
#define CHFt_FRA1(a)
Definition: FORT_PROTO.H:1136
void CHFp_BOX(facebox))
Definition: EBLevelDataOpsF_F.H:28
void CHFp_CONST_INT(facedir)
#define CHFt_CONST_FRA1(a)
Definition: FORT_PROTO.H:1188
#define CHFt_BOX(b)
Definition: FORT_PROTO.H:1026
#define CH_TIMELEAF(name)
Definition: CH_Timer.H:100