Chombo + EB + MF  3.2
EBCFCopyF_F.H
Go to the documentation of this file.
1 #ifndef _EBCFCOPYF_F_H_
2 #define _EBCFCOPYF_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 GUARDCOPYCFFAB
12 #define GUARDCOPYCFFAB
13 // Prototype for Fortran procedure copycffab ...
14 //
15 void FORTRAN_NAME( COPYCFFAB ,copycffab )(
16  CHFp_FRA1(finelevel)
17  ,CHFp_CONST_FRA1(coarlevel)
18  ,CHFp_BOX(coarbox)
19  ,CHFp_BOX(refbox)
20  ,CHFp_CONST_INT(reftocoar) );
21 
22 #define FORT_COPYCFFAB FORTRAN_NAME( inlineCOPYCFFAB, inlineCOPYCFFAB)
23 #define FORTNT_COPYCFFAB FORTRAN_NAME( COPYCFFAB, copycffab)
24 
25 inline void FORTRAN_NAME(inlineCOPYCFFAB, inlineCOPYCFFAB)(
26  CHFp_FRA1(finelevel)
27  ,CHFp_CONST_FRA1(coarlevel)
28  ,CHFp_BOX(coarbox)
29  ,CHFp_BOX(refbox)
30  ,CHFp_CONST_INT(reftocoar) )
31 {
32  CH_TIMELEAF("FORT_COPYCFFAB");
33  FORTRAN_NAME( COPYCFFAB ,copycffab )(
34  CHFt_FRA1(finelevel)
35  ,CHFt_CONST_FRA1(coarlevel)
36  ,CHFt_BOX(coarbox)
37  ,CHFt_BOX(refbox)
38  ,CHFt_CONST_INT(reftocoar) );
39 }
40 #endif // GUARDCOPYCFFAB
41 
42 }
43 
44 #endif
#define CHFt_CONST_INT(i)
Definition: FORT_PROTO.H:989
void CHFp_CONST_INT(reftocoar))
Definition: EBCFCopyF_F.H:30
#define CHFp_FRA1(a)
Definition: FORT_PROTO.H:913
#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
void FORTRAN_NAME(COPYCFFAB, copycffab)(CHFp_FRA1(finelevel)
#define CH_TIMELEAF(name)
Definition: CH_Timer.H:100
void CHFp_BOX(coarbox)
void CHFp_CONST_FRA1(coarlevel)