Chombo + EB + MF  3.2
QuadCFInterpF_F.H
Go to the documentation of this file.
1 #ifndef _QUADCFINTERPF_F_H_
2 #define _QUADCFINTERPF_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 GUARDQUADINTERP
12 #define GUARDQUADINTERP
13 // Prototype for Fortran procedure quadinterp ...
14 //
15 void FORTRAN_NAME( QUADINTERP ,quadinterp )(
16  CHFp_FRA(phi)
17  ,CHFp_CONST_FRA(phistar)
18  ,CHFp_BOX(box)
19  ,CHFp_CONST_INT(ihilo)
20  ,CHFp_CONST_REAL(h)
21  ,CHFp_CONST_INT(idir)
22  ,CHFp_CONST_INT(scomp)
23  ,CHFp_CONST_INT(ecomp)
24  ,CHFp_CONST_INT(nref) );
25 
26 #define FORT_QUADINTERP FORTRAN_NAME( inlineQUADINTERP, inlineQUADINTERP)
27 #define FORTNT_QUADINTERP FORTRAN_NAME( QUADINTERP, quadinterp)
28 
29 inline void FORTRAN_NAME(inlineQUADINTERP, inlineQUADINTERP)(
30  CHFp_FRA(phi)
31  ,CHFp_CONST_FRA(phistar)
32  ,CHFp_BOX(box)
33  ,CHFp_CONST_INT(ihilo)
34  ,CHFp_CONST_REAL(h)
35  ,CHFp_CONST_INT(idir)
36  ,CHFp_CONST_INT(scomp)
37  ,CHFp_CONST_INT(ecomp)
38  ,CHFp_CONST_INT(nref) )
39 {
40  CH_TIMELEAF("FORT_QUADINTERP");
41  FORTRAN_NAME( QUADINTERP ,quadinterp )(
42  CHFt_FRA(phi)
43  ,CHFt_CONST_FRA(phistar)
44  ,CHFt_BOX(box)
45  ,CHFt_CONST_INT(ihilo)
46  ,CHFt_CONST_REAL(h)
47  ,CHFt_CONST_INT(idir)
48  ,CHFt_CONST_INT(scomp)
49  ,CHFt_CONST_INT(ecomp)
50  ,CHFt_CONST_INT(nref) );
51 }
52 #endif // GUARDQUADINTERP
53 
54 #ifndef GUARDPHISTAR
55 #define GUARDPHISTAR
56 // Prototype for Fortran procedure PHISTAR ...
57 //
58 void FORTRAN_NAME( PHISTAR ,phistar )(
59  CHFp_FRA(fPhiStar)
60  ,CHFp_BOX(region)
61  ,CHFp_CONST_FRA(phic)
62  ,CHFp_FRA(coarslope)
63  ,CHFp_FRA(coarcurva)
64  ,CHFp_FRA(coarmixed)
65  ,CHFp_CONST_REAL(dxf)
66  ,CHFp_CONST_INT(ivar)
67  ,CHFp_CONST_INT(dir)
69  ,CHFp_CONST_INT(nRef) );
70 
71 #define FORT_PHISTAR FORTRAN_NAME( inlinePHISTAR, inlinePHISTAR)
72 #define FORTNT_PHISTAR FORTRAN_NAME( PHISTAR, phistar)
73 
74 inline void FORTRAN_NAME(inlinePHISTAR, inlinePHISTAR)(
75  CHFp_FRA(fPhiStar)
76  ,CHFp_BOX(region)
77  ,CHFp_CONST_FRA(phic)
78  ,CHFp_FRA(coarslope)
79  ,CHFp_FRA(coarcurva)
80  ,CHFp_FRA(coarmixed)
81  ,CHFp_CONST_REAL(dxf)
82  ,CHFp_CONST_INT(ivar)
83  ,CHFp_CONST_INT(dir)
85  ,CHFp_CONST_INT(nRef) )
86 {
87  CH_TIMELEAF("FORT_PHISTAR");
88  FORTRAN_NAME( PHISTAR ,phistar )(
89  CHFt_FRA(fPhiStar)
90  ,CHFt_BOX(region)
91  ,CHFt_CONST_FRA(phic)
92  ,CHFt_FRA(coarslope)
93  ,CHFt_FRA(coarcurva)
94  ,CHFt_FRA(coarmixed)
95  ,CHFt_CONST_REAL(dxf)
96  ,CHFt_CONST_INT(ivar)
97  ,CHFt_CONST_INT(dir)
99  ,CHFt_CONST_INT(nRef) );
100 }
101 #endif // GUARDPHISTAR
102 
103 }
104 
105 #endif
void CHFp_BOX(box)
void CHFp_CONST_REAL(h)
#define CHFt_CONST_INT(i)
Definition: FORT_PROTO.H:989
void CHFp_CONST_FRA(phistar)
#define CHFt_FRA(a)
Definition: FORT_PROTO.H:1053
void CHFp_FRA(coarslope)
void CHFp_CONST_INT(ihilo)
Definition: EBInterface.H:45
#define CHFt_CONST_FRA(a)
Definition: FORT_PROTO.H:1095
int sign(const Side::LoHiSide &a_side)
#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(QUADINTERP, quadinterp)(CHFp_FRA(phi)