Chombo + EB + MF  3.2
LevelFluxRegisterF_F.H
Go to the documentation of this file.
1 #ifndef _LEVELFLUXREGISTERF_F_H_
2 #define _LEVELFLUXREGISTERF_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 GUARDINCREMENTFINE
12 #define GUARDINCREMENTFINE
13 // Prototype for Fortran procedure INCREMENTFINE ...
14 //
15 void FORTRAN_NAME( INCREMENTFINE ,incrementfine )(
16  CHFp_CONST_FRA(fine)
17  ,CHFp_FRA(cFine)
18  ,CHFp_BOX(fineBox)
19  ,CHFp_CONST_INTVECT(nRef)
21  ,CHFp_CONST_INT(srcStart)
22  ,CHFp_CONST_INT(destStart)
23  ,CHFp_CONST_INT(ncomp) );
24 
25 #define FORT_INCREMENTFINE FORTRAN_NAME( inlineINCREMENTFINE, inlineINCREMENTFINE)
26 #define FORTNT_INCREMENTFINE FORTRAN_NAME( INCREMENTFINE, incrementfine)
27 
28 inline void FORTRAN_NAME(inlineINCREMENTFINE, inlineINCREMENTFINE)(
29  CHFp_CONST_FRA(fine)
30  ,CHFp_FRA(cFine)
31  ,CHFp_BOX(fineBox)
32  ,CHFp_CONST_INTVECT(nRef)
34  ,CHFp_CONST_INT(srcStart)
35  ,CHFp_CONST_INT(destStart)
36  ,CHFp_CONST_INT(ncomp) )
37 {
38  CH_TIMELEAF("FORT_INCREMENTFINE");
39  FORTRAN_NAME( INCREMENTFINE ,incrementfine )(
40  CHFt_CONST_FRA(fine)
41  ,CHFt_FRA(cFine)
42  ,CHFt_BOX(fineBox)
43  ,CHFt_CONST_INTVECT(nRef)
45  ,CHFt_CONST_INT(srcStart)
46  ,CHFt_CONST_INT(destStart)
47  ,CHFt_CONST_INT(ncomp) );
48 }
49 #endif // GUARDINCREMENTFINE
50 
51 }
52 
53 #endif
#define CHFp_CONST_FRA(a)
Definition: FORT_PROTO.H:858
#define CHFt_CONST_INT(i)
Definition: FORT_PROTO.H:989
void CHFp_CONST_REAL(scale)
Definition: VCAMRPoissonOpF_F.H:584
void CHFp_CONST_INTVECT(nRef)
void CHFp_BOX(fineBox)
#define CHFt_FRA(a)
Definition: FORT_PROTO.H:1053
IndexTM< T, N > scale(const IndexTM< T, N > &a_p, T a_s)
Definition: IndexTMI.H:382
void FORTRAN_NAME(INCREMENTFINE, incrementfine)(CHFp_CONST_FRA(fine)
#define CHFt_CONST_FRA(a)
Definition: FORT_PROTO.H:1095
void CHFp_CONST_INT(srcStart)
#define CHFt_BOX(b)
Definition: FORT_PROTO.H:1026
#define CH_TIMELEAF(name)
Definition: CH_Timer.H:100
void CHFp_FRA(cFine)
#define CHFt_CONST_REAL(r)
Definition: FORT_PROTO.H:991
#define CHFt_CONST_INTVECT(r)
Definition: FORT_PROTO.H:1014