Chombo + EB + MF  3.2
DirichletPoissonDomainBCF_F.H
Go to the documentation of this file.
1 #ifndef _DIRICHLETPOISSONDOMAINBCF_F_H_
2 #define _DIRICHLETPOISSONDOMAINBCF_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 GUARDSETDIRICHLETFACEFLUX
12 #define GUARDSETDIRICHLETFACEFLUX
13 // Prototype for Fortran procedure SETDIRICHLETFACEFLUX ...
14 //
15 void FORTRAN_NAME( SETDIRICHLETFACEFLUX ,setdirichletfaceflux )(
16  CHFp_FRA1(faceFlux)
17  ,CHFp_CONST_FRA1(phi)
18  ,CHFp_CONST_REAL(value)
20  ,CHFp_CONST_INT(idir)
21  ,CHFp_CONST_INT(iside)
22  ,CHFp_BOX(box) );
23 
24 #define FORT_SETDIRICHLETFACEFLUX FORTRAN_NAME( inlineSETDIRICHLETFACEFLUX, inlineSETDIRICHLETFACEFLUX)
25 #define FORTNT_SETDIRICHLETFACEFLUX FORTRAN_NAME( SETDIRICHLETFACEFLUX, setdirichletfaceflux)
26 
27 inline void FORTRAN_NAME(inlineSETDIRICHLETFACEFLUX, inlineSETDIRICHLETFACEFLUX)(
28  CHFp_FRA1(faceFlux)
29  ,CHFp_CONST_FRA1(phi)
30  ,CHFp_CONST_REAL(value)
32  ,CHFp_CONST_INT(idir)
33  ,CHFp_CONST_INT(iside)
35 {
36  CH_TIMELEAF("FORT_SETDIRICHLETFACEFLUX");
37  FORTRAN_NAME( SETDIRICHLETFACEFLUX ,setdirichletfaceflux )(
38  CHFt_FRA1(faceFlux)
39  ,CHFt_CONST_FRA1(phi)
40  ,CHFt_CONST_REAL(value)
42  ,CHFt_CONST_INT(idir)
43  ,CHFt_CONST_INT(iside)
44  ,CHFt_BOX(box) );
45 }
46 #endif // GUARDSETDIRICHLETFACEFLUX
47 
48 #ifndef GUARDSETHODIRICHLETFACEFLUX
49 #define GUARDSETHODIRICHLETFACEFLUX
50 // Prototype for Fortran procedure SETHODIRICHLETFACEFLUX ...
51 //
52 void FORTRAN_NAME( SETHODIRICHLETFACEFLUX ,sethodirichletfaceflux )(
53  CHFp_FRA1(faceFlux)
54  ,CHFp_CONST_FRA1(phi)
55  ,CHFp_CONST_REAL(value)
57  ,CHFp_CONST_INT(idir)
58  ,CHFp_CONST_INT(iside)
59  ,CHFp_BOX(box) );
60 
61 #define FORT_SETHODIRICHLETFACEFLUX FORTRAN_NAME( inlineSETHODIRICHLETFACEFLUX, inlineSETHODIRICHLETFACEFLUX)
62 #define FORTNT_SETHODIRICHLETFACEFLUX FORTRAN_NAME( SETHODIRICHLETFACEFLUX, sethodirichletfaceflux)
63 
64 inline void FORTRAN_NAME(inlineSETHODIRICHLETFACEFLUX, inlineSETHODIRICHLETFACEFLUX)(
65  CHFp_FRA1(faceFlux)
66  ,CHFp_CONST_FRA1(phi)
67  ,CHFp_CONST_REAL(value)
69  ,CHFp_CONST_INT(idir)
70  ,CHFp_CONST_INT(iside)
71  ,CHFp_BOX(box) )
72 {
73  CH_TIMELEAF("FORT_SETHODIRICHLETFACEFLUX");
74  FORTRAN_NAME( SETHODIRICHLETFACEFLUX ,sethodirichletfaceflux )(
75  CHFt_FRA1(faceFlux)
76  ,CHFt_CONST_FRA1(phi)
77  ,CHFt_CONST_REAL(value)
79  ,CHFt_CONST_INT(idir)
80  ,CHFt_CONST_INT(iside)
81  ,CHFt_BOX(box) );
82 }
83 #endif // GUARDSETHODIRICHLETFACEFLUX
84 
85 }
86 
87 #endif
void CHFp_CONST_REAL(value)
void CHFp_CONST_FRA1(phi)
#define CHFt_CONST_INT(i)
Definition: FORT_PROTO.H:989
#define CHFp_FRA1(a)
Definition: FORT_PROTO.H:913
void CHFp_CONST_INT(idir)
Definition: EBInterface.H:45
#define CHFt_FRA1(a)
Definition: FORT_PROTO.H:1136
#define CHFt_CONST_REALVECT(r)
Definition: FORT_PROTO.H:1016
void CHFp_CONST_REALVECT(dx)
void FORTRAN_NAME(SETDIRICHLETFACEFLUX, setdirichletfaceflux)(CHFp_FRA1(faceFlux)
#define CHFt_CONST_FRA1(a)
Definition: FORT_PROTO.H:1188
void CHFp_BOX(box))
Definition: DirichletPoissonDomainBCF_F.H:34
#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