Chombo + EB + MF  3.2
srcPolytropic/SolidBCF_F.H
Go to the documentation of this file.
1 #ifndef _SOLIDBCF_F_H_
2 #define _SOLIDBCF_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 GUARDSOLIDBCF
12 #define GUARDSOLIDBCF
13 // Prototype for Fortran procedure SOLIDBCF ...
14 //
15 void FORTRAN_NAME( SOLIDBCF ,solidbcf )(
16  CHFp_FRA(Wgdnv)
17  ,CHFp_CONST_FRA(Wextrap)
18  ,CHFp_CONST_FRA(W)
19  ,CHFp_CONST_INT(lohisign)
20  ,CHFp_CONST_INT(dir)
21  ,CHFp_BOX(box) );
22 
23 #define FORT_SOLIDBCF FORTRAN_NAME( inlineSOLIDBCF, inlineSOLIDBCF)
24 #define FORTNT_SOLIDBCF FORTRAN_NAME( SOLIDBCF, solidbcf)
25 
26 inline void FORTRAN_NAME(inlineSOLIDBCF, inlineSOLIDBCF)(
27  CHFp_FRA(Wgdnv)
28  ,CHFp_CONST_FRA(Wextrap)
29  ,CHFp_CONST_FRA(W)
30  ,CHFp_CONST_INT(lohisign)
31  ,CHFp_CONST_INT(dir)
33 {
34  CH_TIMELEAF("FORT_SOLIDBCF");
35  FORTRAN_NAME( SOLIDBCF ,solidbcf )(
36  CHFt_FRA(Wgdnv)
37  ,CHFt_CONST_FRA(Wextrap)
38  ,CHFt_CONST_FRA(W)
39  ,CHFt_CONST_INT(lohisign)
40  ,CHFt_CONST_INT(dir)
41  ,CHFt_BOX(box) );
42 }
43 #endif // GUARDSOLIDBCF
44 
45 #ifndef GUARDSLOPEBCSF
46 #define GUARDSLOPEBCSF
47 // Prototype for Fortran procedure SLOPEBCSF ...
48 //
49 void FORTRAN_NAME( SLOPEBCSF ,slopebcsf )(
50  CHFp_FRA(dW)
51  ,CHFp_CONST_FRA(W)
52  ,CHFp_CONST_INT(dir)
53  ,CHFp_BOX(loBox)
54  ,CHFp_CONST_INT(hasLo)
55  ,CHFp_BOX(hiBox)
56  ,CHFp_CONST_INT(hasHi) );
57 
58 #define FORT_SLOPEBCSF FORTRAN_NAME( inlineSLOPEBCSF, inlineSLOPEBCSF)
59 #define FORTNT_SLOPEBCSF FORTRAN_NAME( SLOPEBCSF, slopebcsf)
60 
61 inline void FORTRAN_NAME(inlineSLOPEBCSF, inlineSLOPEBCSF)(
62  CHFp_FRA(dW)
63  ,CHFp_CONST_FRA(W)
64  ,CHFp_CONST_INT(dir)
65  ,CHFp_BOX(loBox)
66  ,CHFp_CONST_INT(hasLo)
67  ,CHFp_BOX(hiBox)
68  ,CHFp_CONST_INT(hasHi) )
69 {
70  CH_TIMELEAF("FORT_SLOPEBCSF");
71  FORTRAN_NAME( SLOPEBCSF ,slopebcsf )(
72  CHFt_FRA(dW)
73  ,CHFt_CONST_FRA(W)
74  ,CHFt_CONST_INT(dir)
75  ,CHFt_BOX(loBox)
76  ,CHFt_CONST_INT(hasLo)
77  ,CHFt_BOX(hiBox)
78  ,CHFt_CONST_INT(hasHi) );
79 }
80 #endif // GUARDSLOPEBCSF
81 
82 }
83 
84 #endif
#define CHFp_FRA(a)
Definition: FORT_PROTO.H:803
#define CHFt_CONST_INT(i)
Definition: FORT_PROTO.H:989
void CHFp_CONST_FRA(Wextrap)
void CHFp_BOX(box))
Definition: srcPolytropic/SolidBCF_F.H:32
void FORTRAN_NAME(SOLIDBCF, solidbcf)(CHFp_FRA(Wgdnv)
#define CHFt_FRA(a)
Definition: FORT_PROTO.H:1053
Definition: EBInterface.H:45
#define CHFt_CONST_FRA(a)
Definition: FORT_PROTO.H:1095
void CHFp_CONST_INT(lohisign)
#define CHFt_BOX(b)
Definition: FORT_PROTO.H:1026
#define CH_TIMELEAF(name)
Definition: CH_Timer.H:100