utils_F.H

#ifndef _UTILS_F_H_
#define _UTILS_F_H_

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

extern "C"
{

#ifndef GUARDUNDIVIDEDGRAD 
#define GUARDUNDIVIDEDGRAD 
// Prototype for Fortran procedure UNDIVIDEDGRAD ...
//
void FORTRAN_NAME( UNDIVIDEDGRAD ,undividedgrad )(
      CHFp_FRA(dq)
      ,CHFp_CONST_FRA(q)
      ,CHFp_BOX(dInterior)
      ,CHFp_BOX(loedge)
      ,CHFp_BOX(hiedge)
      ,CHFp_CONST_INT(idir)
      ,CHFp_CONST_INT(haslo)
      ,CHFp_CONST_INT(hashi) );

#define FORT_UNDIVIDEDGRAD FORTRAN_NAME( inlineUNDIVIDEDGRAD, inlineUNDIVIDEDGRAD)
#define FORTNT_UNDIVIDEDGRAD FORTRAN_NAME( UNDIVIDEDGRAD, undividedgrad)

inline void FORTRAN_NAME(inlineUNDIVIDEDGRAD, inlineUNDIVIDEDGRAD)(
      CHFp_FRA(dq)
      ,CHFp_CONST_FRA(q)
      ,CHFp_BOX(dInterior)
      ,CHFp_BOX(loedge)
      ,CHFp_BOX(hiedge)
      ,CHFp_CONST_INT(idir)
      ,CHFp_CONST_INT(haslo)
      ,CHFp_CONST_INT(hashi) )
{
 CH_TIMELEAF("FORT_UNDIVIDEDGRAD");
 FORTRAN_NAME( UNDIVIDEDGRAD ,undividedgrad )(
      CHFt_FRA(dq)
      ,CHFt_CONST_FRA(q)
      ,CHFt_BOX(dInterior)
      ,CHFt_BOX(loedge)
      ,CHFt_BOX(hiedge)
      ,CHFt_CONST_INT(idir)
      ,CHFt_CONST_INT(haslo)
      ,CHFt_CONST_INT(hashi) );
}
#endif  // GUARDUNDIVIDEDGRAD 

#ifndef GUARDSETZEROVELOCITY 
#define GUARDSETZEROVELOCITY 
// Prototype for Fortran procedure SETZEROVELOCITY ...
//
void FORTRAN_NAME( SETZEROVELOCITY ,setzerovelocity )(
      CHFp_FRA(vel)
      ,CHFp_CONST_FRA(porosity)
      ,CHFp_BOX(region)
      ,CHFp_CONST_REAL(porosityLimit) );

#define FORT_SETZEROVELOCITY FORTRAN_NAME( inlineSETZEROVELOCITY, inlineSETZEROVELOCITY)
#define FORTNT_SETZEROVELOCITY FORTRAN_NAME( SETZEROVELOCITY, setzerovelocity)

inline void FORTRAN_NAME(inlineSETZEROVELOCITY, inlineSETZEROVELOCITY)(
      CHFp_FRA(vel)
      ,CHFp_CONST_FRA(porosity)
      ,CHFp_BOX(region)
      ,CHFp_CONST_REAL(porosityLimit) )
{
 CH_TIMELEAF("FORT_SETZEROVELOCITY");
 FORTRAN_NAME( SETZEROVELOCITY ,setzerovelocity )(
      CHFt_FRA(vel)
      ,CHFt_CONST_FRA(porosity)
      ,CHFt_BOX(region)
      ,CHFt_CONST_REAL(porosityLimit) );
}
#endif  // GUARDSETZEROVELOCITY 

#ifndef GUARDSETMINMAXVAL 
#define GUARDSETMINMAXVAL 
// Prototype for Fortran procedure SETMINMAXVAL ...
//
void FORTRAN_NAME( SETMINMAXVAL ,setminmaxval )(
      CHFp_FRA(phi)
      ,CHFp_BOX(region)
      ,CHFp_CONST_REAL(minVal)
      ,CHFp_CONST_REAL(maxVal)
      ,CHFp_CONST_INT(comp) );

#define FORT_SETMINMAXVAL FORTRAN_NAME( inlineSETMINMAXVAL, inlineSETMINMAXVAL)
#define FORTNT_SETMINMAXVAL FORTRAN_NAME( SETMINMAXVAL, setminmaxval)

inline void FORTRAN_NAME(inlineSETMINMAXVAL, inlineSETMINMAXVAL)(
      CHFp_FRA(phi)
      ,CHFp_BOX(region)
      ,CHFp_CONST_REAL(minVal)
      ,CHFp_CONST_REAL(maxVal)
      ,CHFp_CONST_INT(comp) )
{
 CH_TIMELEAF("FORT_SETMINMAXVAL");
 FORTRAN_NAME( SETMINMAXVAL ,setminmaxval )(
      CHFt_FRA(phi)
      ,CHFt_BOX(region)
      ,CHFt_CONST_REAL(minVal)
      ,CHFt_CONST_REAL(maxVal)
      ,CHFt_CONST_INT(comp) );
}
#endif  // GUARDSETMINMAXVAL 

#ifndef GUARDSETMINVAL 
#define GUARDSETMINVAL 
// Prototype for Fortran procedure SETMINVAL ...
//
void FORTRAN_NAME( SETMINVAL ,setminval )(
      CHFp_FRA(phi)
      ,CHFp_BOX(region)
      ,CHFp_CONST_REAL(minVal)
      ,CHFp_CONST_INT(comp) );

#define FORT_SETMINVAL FORTRAN_NAME( inlineSETMINVAL, inlineSETMINVAL)
#define FORTNT_SETMINVAL FORTRAN_NAME( SETMINVAL, setminval)

inline void FORTRAN_NAME(inlineSETMINVAL, inlineSETMINVAL)(
      CHFp_FRA(phi)
      ,CHFp_BOX(region)
      ,CHFp_CONST_REAL(minVal)
      ,CHFp_CONST_INT(comp) )
{
 CH_TIMELEAF("FORT_SETMINVAL");
 FORTRAN_NAME( SETMINVAL ,setminval )(
      CHFt_FRA(phi)
      ,CHFt_BOX(region)
      ,CHFt_CONST_REAL(minVal)
      ,CHFt_CONST_INT(comp) );
}
#endif  // GUARDSETMINVAL 

}

#endif