Chombo + EB + MF  3.2
EBMGInterpF_F.H
Go to the documentation of this file.
1 #ifndef _EBMGINTERPF_F_H_
2 #define _EBMGINTERPF_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 GUARDREGPROLONG
12 #define GUARDREGPROLONG
13 // Prototype for Fortran procedure regprolong ...
14 //
15 void FORTRAN_NAME( REGPROLONG ,regprolong )(
16  CHFp_FRA1(phithislevel)
17  ,CHFp_CONST_FRA1(correctcoarse)
18  ,CHFp_BOX(coarbox)
19  ,CHFp_BOX(refbox)
20  ,CHFp_CONST_INT(reftocoar) );
21 
22 #define FORT_REGPROLONG FORTRAN_NAME( inlineREGPROLONG, inlineREGPROLONG)
23 #define FORTNT_REGPROLONG FORTRAN_NAME( REGPROLONG, regprolong)
24 
25 inline void FORTRAN_NAME(inlineREGPROLONG, inlineREGPROLONG)(
26  CHFp_FRA1(phithislevel)
27  ,CHFp_CONST_FRA1(correctcoarse)
28  ,CHFp_BOX(coarbox)
29  ,CHFp_BOX(refbox)
30  ,CHFp_CONST_INT(reftocoar) )
31 {
32  CH_TIMELEAF("FORT_REGPROLONG");
33  FORTRAN_NAME( REGPROLONG ,regprolong )(
34  CHFt_FRA1(phithislevel)
35  ,CHFt_CONST_FRA1(correctcoarse)
36  ,CHFt_BOX(coarbox)
37  ,CHFt_BOX(refbox)
38  ,CHFt_CONST_INT(reftocoar) );
39 }
40 #endif // GUARDREGPROLONG
41 
42 #ifndef GUARDPROLONGADDSLOPE
43 #define GUARDPROLONGADDSLOPE
44 // Prototype for Fortran procedure prolongaddslope ...
45 //
46 void FORTRAN_NAME( PROLONGADDSLOPE ,prolongaddslope )(
47  CHFp_FRA1(phithislevel)
48  ,CHFp_CONST_FRA1(correctcoarse)
49  ,CHFp_BOX(coarbox)
50  ,CHFp_BOX(refbox)
51  ,CHFp_INT(idir)
52  ,CHFp_REAL(dxf)
53  ,CHFp_REAL(dxc)
54  ,CHFp_CONST_INT(reftocoar) );
55 
56 #define FORT_PROLONGADDSLOPE FORTRAN_NAME( inlinePROLONGADDSLOPE, inlinePROLONGADDSLOPE)
57 #define FORTNT_PROLONGADDSLOPE FORTRAN_NAME( PROLONGADDSLOPE, prolongaddslope)
58 
59 inline void FORTRAN_NAME(inlinePROLONGADDSLOPE, inlinePROLONGADDSLOPE)(
60  CHFp_FRA1(phithislevel)
61  ,CHFp_CONST_FRA1(correctcoarse)
62  ,CHFp_BOX(coarbox)
63  ,CHFp_BOX(refbox)
64  ,CHFp_INT(idir)
65  ,CHFp_REAL(dxf)
66  ,CHFp_REAL(dxc)
67  ,CHFp_CONST_INT(reftocoar) )
68 {
69  CH_TIMELEAF("FORT_PROLONGADDSLOPE");
70  FORTRAN_NAME( PROLONGADDSLOPE ,prolongaddslope )(
71  CHFt_FRA1(phithislevel)
72  ,CHFt_CONST_FRA1(correctcoarse)
73  ,CHFt_BOX(coarbox)
74  ,CHFt_BOX(refbox)
75  ,CHFt_INT(idir)
76  ,CHFt_REAL(dxf)
77  ,CHFt_REAL(dxc)
78  ,CHFt_CONST_INT(reftocoar) );
79 }
80 #endif // GUARDPROLONGADDSLOPE
81 
82 }
83 
84 #endif
#define CHFt_CONST_INT(i)
Definition: FORT_PROTO.H:989
void CHFp_REAL(dxf)
void CHFp_CONST_FRA1(correctcoarse)
void FORTRAN_NAME(REGPROLONG, regprolong)(CHFp_FRA1(phithislevel)
#define CHFp_FRA1(a)
Definition: FORT_PROTO.H:913
void CHFp_CONST_INT(reftocoar))
Definition: EBMGInterpF_F.H:30
#define CHFt_INT(i)
Definition: FORT_PROTO.H:988
void CHFp_INT(idir)
#define CHFt_FRA1(a)
Definition: FORT_PROTO.H:1136
#define CHFt_CONST_FRA1(a)
Definition: FORT_PROTO.H:1188
#define CHFt_BOX(b)
Definition: FORT_PROTO.H:1026
#define CH_TIMELEAF(name)
Definition: CH_Timer.H:100
void CHFp_BOX(coarbox)
#define CHFt_REAL(r)
Definition: FORT_PROTO.H:990