Chombo + EB + MF  3.2
NodeBCF_F.H
Go to the documentation of this file.
1 #ifndef _NODEBCF_F_H_
2 #define _NODEBCF_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 GUARDFACENODEBC
12 #define GUARDFACENODEBC
13 // Prototype for Fortran procedure FACENODEBC ...
14 //
15 void FORTRAN_NAME( FACENODEBC ,facenodebc )(
16  CHFp_FRA(state)
17  ,CHFp_CONST_FRA(neumfac)
18  ,CHFp_CONST_FRA(dircfac)
19  ,CHFp_CONST_FRA(inhmval)
20  ,CHFp_BOX(facebox)
21  ,CHFp_CONST_INT(idir)
22  ,CHFp_CONST_INT(side)
23  ,CHFp_CONST_REAL(dx)
24  ,CHFp_CONST_INT(startcomp)
25  ,CHFp_CONST_INT(endcomp) );
26 
27 #define FORT_FACENODEBC FORTRAN_NAME( inlineFACENODEBC, inlineFACENODEBC)
28 #define FORTNT_FACENODEBC FORTRAN_NAME( FACENODEBC, facenodebc)
29 
30 inline void FORTRAN_NAME(inlineFACENODEBC, inlineFACENODEBC)(
31  CHFp_FRA(state)
32  ,CHFp_CONST_FRA(neumfac)
33  ,CHFp_CONST_FRA(dircfac)
34  ,CHFp_CONST_FRA(inhmval)
35  ,CHFp_BOX(facebox)
36  ,CHFp_CONST_INT(idir)
37  ,CHFp_CONST_INT(side)
38  ,CHFp_CONST_REAL(dx)
39  ,CHFp_CONST_INT(startcomp)
40  ,CHFp_CONST_INT(endcomp) )
41 {
42  CH_TIMELEAF("FORT_FACENODEBC");
43  FORTRAN_NAME( FACENODEBC ,facenodebc )(
44  CHFt_FRA(state)
45  ,CHFt_CONST_FRA(neumfac)
46  ,CHFt_CONST_FRA(dircfac)
47  ,CHFt_CONST_FRA(inhmval)
48  ,CHFt_BOX(facebox)
49  ,CHFt_CONST_INT(idir)
50  ,CHFt_CONST_INT(side)
51  ,CHFt_CONST_REAL(dx)
52  ,CHFt_CONST_INT(startcomp)
53  ,CHFt_CONST_INT(endcomp) );
54 }
55 #endif // GUARDFACENODEBC
56 
57 }
58 
59 #endif
#define CHFp_FRA(a)
Definition: FORT_PROTO.H:803
#define CHFt_CONST_INT(i)
Definition: FORT_PROTO.H:989
void CHFp_CONST_FRA(neumfac)
void CHFp_CONST_REAL(dx)
Definition: AMRNodeOpF_F.H:28
#define CHFt_FRA(a)
Definition: FORT_PROTO.H:1053
#define CHFt_CONST_FRA(a)
Definition: FORT_PROTO.H:1095
void CHFp_CONST_INT(idir)
void CHFp_BOX(facebox)
Definition: CCProjectorF_F.H:28
#define CHFt_BOX(b)
Definition: FORT_PROTO.H:1026
#define CH_TIMELEAF(name)
Definition: CH_Timer.H:100
#define CHFt_CONST_REAL(r)
Definition: FORT_PROTO.H:991
void FORTRAN_NAME(FACENODEBC, facenodebc)(CHFp_FRA(state)