Chombo + EB + MF  3.2
DivergenceStencilF_F.H
Go to the documentation of this file.
1 #ifndef _DIVERGENCESTENCILF_F_H_
2 #define _DIVERGENCESTENCILF_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 GUARDDIVERGESTENF
12 #define GUARDDIVERGESTENF
13 // Prototype for Fortran procedure divergestenf ...
14 //
15 void FORTRAN_NAME( DIVERGESTENF ,divergestenf )(
16  CHFp_BOX(dcalc)
17  ,CHFp_FRA(divf)
18  ,CHFp_CONST_FRA(flux)
19  ,CHFp_CONST_INT(facedir)
20  ,CHFp_CONST_INT(nconserved)
21  ,CHFp_CONST_REAL(dx) );
22 
23 #define FORT_DIVERGESTENF FORTRAN_NAME( inlineDIVERGESTENF, inlineDIVERGESTENF)
24 #define FORTNT_DIVERGESTENF FORTRAN_NAME( DIVERGESTENF, divergestenf)
25 
26 inline void FORTRAN_NAME(inlineDIVERGESTENF, inlineDIVERGESTENF)(
27  CHFp_BOX(dcalc)
28  ,CHFp_FRA(divf)
29  ,CHFp_CONST_FRA(flux)
30  ,CHFp_CONST_INT(facedir)
31  ,CHFp_CONST_INT(nconserved)
33 {
34  CH_TIMELEAF("FORT_DIVERGESTENF");
35  FORTRAN_NAME( DIVERGESTENF ,divergestenf )(
36  CHFt_BOX(dcalc)
37  ,CHFt_FRA(divf)
38  ,CHFt_CONST_FRA(flux)
39  ,CHFt_CONST_INT(facedir)
40  ,CHFt_CONST_INT(nconserved)
41  ,CHFt_CONST_REAL(dx) );
42 }
43 #endif // GUARDDIVERGESTENF
44 
45 }
46 
47 #endif
#define CHFt_CONST_INT(i)
Definition: FORT_PROTO.H:989
void CHFp_CONST_FRA(flux)
void CHFp_CONST_INT(facedir)
void CHFp_FRA(divf)
#define CHFt_FRA(a)
Definition: FORT_PROTO.H:1053
#define CHFp_BOX(b)
Definition: FORT_PROTO.H:776
#define CHFt_CONST_FRA(a)
Definition: FORT_PROTO.H:1095
void CHFp_CONST_REAL(dx))
Definition: DivergenceStencilF_F.H:32
void FORTRAN_NAME(DIVERGESTENF, divergestenf)(CHFp_BOX(dcalc)
#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