viscousBCF_F.H

#ifndef _VISCOUSBCF_F_H_
#define _VISCOUSBCF_F_H_

#include "FORT_PROTO.H"
#include "CH_Timer.H"
#include "REAL.H"

extern "C"
{

#ifndef GUARDEXTRAPOLATIONBC 
#define GUARDEXTRAPOLATIONBC 
// Prototype for Fortran procedure EXTRAPOLATIONBC ...
//
void FORTRAN_NAME( EXTRAPOLATIONBC ,extrapolationbc )(
      CHFp_FRA(phi)
      ,CHFp_BOX(gridBox)
      ,CHFp_BOX(loBox)
      ,CHFp_BOX(hiBox)
      ,CHFp_INT(dir)
      ,CHFp_INT(nComp) );

#define FORT_EXTRAPOLATIONBC FORTRAN_NAME( inlineEXTRAPOLATIONBC, inlineEXTRAPOLATIONBC)
#define FORTNT_EXTRAPOLATIONBC FORTRAN_NAME( EXTRAPOLATIONBC, extrapolationbc)

inline void FORTRAN_NAME(inlineEXTRAPOLATIONBC, inlineEXTRAPOLATIONBC)(
      CHFp_FRA(phi)
      ,CHFp_BOX(gridBox)
      ,CHFp_BOX(loBox)
      ,CHFp_BOX(hiBox)
      ,CHFp_INT(dir)
      ,CHFp_INT(nComp) )
{
 CH_TIMELEAF("FORT_EXTRAPOLATIONBC");
 FORTRAN_NAME( EXTRAPOLATIONBC ,extrapolationbc )(
      CHFt_FRA(phi)
      ,CHFt_BOX(gridBox)
      ,CHFt_BOX(loBox)
      ,CHFt_BOX(hiBox)
      ,CHFt_INT(dir)
      ,CHFt_INT(nComp) );
}
#endif  // GUARDEXTRAPOLATIONBC 

#ifndef GUARDEXTRAPOLATIONBC1 
#define GUARDEXTRAPOLATIONBC1 
// Prototype for Fortran procedure EXTRAPOLATIONBC1 ...
//
void FORTRAN_NAME( EXTRAPOLATIONBC1 ,extrapolationbc1 )(
      CHFp_FRA(phi)
      ,CHFp_BOX(gridBox)
      ,CHFp_BOX(loBox)
      ,CHFp_BOX(hiBox)
      ,CHFp_INT(dir)
      ,CHFp_INT(nComp) );

#define FORT_EXTRAPOLATIONBC1 FORTRAN_NAME( inlineEXTRAPOLATIONBC1, inlineEXTRAPOLATIONBC1)
#define FORTNT_EXTRAPOLATIONBC1 FORTRAN_NAME( EXTRAPOLATIONBC1, extrapolationbc1)

inline void FORTRAN_NAME(inlineEXTRAPOLATIONBC1, inlineEXTRAPOLATIONBC1)(
      CHFp_FRA(phi)
      ,CHFp_BOX(gridBox)
      ,CHFp_BOX(loBox)
      ,CHFp_BOX(hiBox)
      ,CHFp_INT(dir)
      ,CHFp_INT(nComp) )
{
 CH_TIMELEAF("FORT_EXTRAPOLATIONBC1");
 FORTRAN_NAME( EXTRAPOLATIONBC1 ,extrapolationbc1 )(
      CHFt_FRA(phi)
      ,CHFt_BOX(gridBox)
      ,CHFt_BOX(loBox)
      ,CHFt_BOX(hiBox)
      ,CHFt_INT(dir)
      ,CHFt_INT(nComp) );
}
#endif  // GUARDEXTRAPOLATIONBC1 

}

#endif