MHDPhysicsF_F.H

Go to the documentation of this file.

#ifndef _MHDPHYSICSF_F_H_
#define _MHDPHYSICSF_F_H_

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

extern "C"
{

// Prototype for Fortran procedure MAGNITUDEF ...
//
#define FORT_MAGNITUDEF FORTRAN_NAME( MAGNITUDEF ,magnitudef )
void 
FORT_MAGNITUDEF(
      CHFp_FRA1(magdata)
      ,CHFp_CONST_FRA(data)
      ,CHFp_BOX(box) );

// Prototype for Fortran procedure MAXWAVESPEEDF ...
//
#define FORT_MAXWAVESPEEDF FORTRAN_NAME( MAXWAVESPEEDF ,maxwavespeedf )
void 
FORT_MAXWAVESPEEDF(
      CHFp_REAL(cmax)
      ,CHFp_CONST_FRA(U)
      ,CHFp_BOX(box) );

// Prototype for Fortran procedure CONSTOPRIMF ...
//
#define FORT_CONSTOPRIMF FORTRAN_NAME( CONSTOPRIMF ,constoprimf )
void 
FORT_CONSTOPRIMF(
      CHFp_FRA(W)
      ,CHFp_CONST_FRA(U)
      ,CHFp_BOX(box) );

// Prototype for Fortran procedure PRIMTOCONSF ...
//
#define FORT_PRIMTOCONSF FORTRAN_NAME( PRIMTOCONSF ,primtoconsf )
void 
FORT_PRIMTOCONSF(
      CHFp_FRA(U)
      ,CHFp_CONST_FRA(W)
      ,CHFp_BOX(box) );

// Prototype for Fortran procedure CHARANALYSISF ...
//
#define FORT_CHARANALYSISF FORTRAN_NAME( CHARANALYSISF ,charanalysisf )
void 
FORT_CHARANALYSISF(
      CHFp_FRA(dW)
      ,CHFp_CONST_FRA(W)
      ,CHFp_CONST_INT(normdir)
      ,CHFp_BOX(box) );

// Prototype for Fortran procedure CHARSYNTHESISF ...
//
#define FORT_CHARSYNTHESISF FORTRAN_NAME( CHARSYNTHESISF ,charsynthesisf )
void 
FORT_CHARSYNTHESISF(
      CHFp_FRA(dW)
      ,CHFp_CONST_FRA(W)
      ,CHFp_CONST_INT(normdir)
      ,CHFp_BOX(box) );

// Prototype for Fortran procedure CHARVALUESF ...
//
#define FORT_CHARVALUESF FORTRAN_NAME( CHARVALUESF ,charvaluesf )
void 
FORT_CHARVALUESF(
      CHFp_FRA(lambda)
      ,CHFp_CONST_FRA(W)
      ,CHFp_CONST_INT(normdir)
      ,CHFp_BOX(box) );

// Prototype for Fortran procedure GETADWDXF ...
//
#define FORT_GETADWDXF FORTRAN_NAME( GETADWDXF ,getadwdxf )
void 
FORT_GETADWDXF(
      CHFp_FRA(adwdx)
      ,CHFp_CONST_FRA(WHalf)
      ,CHFp_CONST_FRA(W)
      ,CHFp_CONST_REAL(dtodx)
      ,CHFp_CONST_INT(normdir)
      ,CHFp_BOX(box) );

// Prototype for Fortran procedure RIEMANNF ...
//
#define FORT_RIEMANNF FORTRAN_NAME( RIEMANNF ,riemannf )
void 
FORT_RIEMANNF(
      CHFp_FRA(Wgdnv)
      ,CHFp_CONST_FRA(WLeft)
      ,CHFp_CONST_FRA(WRight)
      ,CHFp_CONST_INT(idir)
      ,CHFp_BOX(box) );

// Prototype for Fortran procedure GETFLUXF ...
//
#define FORT_GETFLUXF FORTRAN_NAME( GETFLUXF ,getfluxf )
void 
FORT_GETFLUXF(
      CHFp_FRA(F)
      ,CHFp_CONST_FRA(Wgdnv)
      ,CHFp_CONST_INT(idir)
      ,CHFp_BOX(box) );

// Prototype for Fortran procedure UPDATECONSF ...
//
#define FORT_UPDATECONSF FORTRAN_NAME( UPDATECONSF ,updateconsf )
void 
FORT_UPDATECONSF(
      CHFp_FRA(U)
      ,CHFp_CONST_FRA(F)
      ,CHFp_CONST_REAL(dtbydx)
      ,CHFp_CONST_INT(idir)
      ,CHFp_BOX(box) );

// Prototype for Fortran procedure GETRELGRADF ...
//
#define FORT_GETRELGRADF FORTRAN_NAME( GETRELGRADF ,getrelgradf )
void 
FORT_GETRELGRADF(
      CHFp_FRA1(du)
      ,CHFp_CONST_FRA1(u)
      ,CHFp_CONST_INT(idir)
      ,CHFp_BOX(loBox)
      ,CHFp_CONST_INT(hasLo)
      ,CHFp_BOX(hiBox)
      ,CHFp_CONST_INT(hasHi)
      ,CHFp_BOX(centerBox) );

// Prototype for Fortran procedure DIVERGENCEBF ...
//
#define FORT_DIVERGENCEBF FORTRAN_NAME( DIVERGENCEBF ,divergencebf )
void 
FORT_DIVERGENCEBF(
      CHFp_FRA(divb)
      ,CHFp_CONST_FRA(whalf)
      ,CHFp_CONST_REAL(dx)
      ,CHFp_CONST_INT(idir)
      ,CHFp_BOX(Box) );

// Prototype for Fortran procedure PROJECTBFIELDF ...
//
#define FORT_PROJECTBFIELDF FORTRAN_NAME( PROJECTBFIELDF ,projectbfieldf )
void 
FORT_PROJECTBFIELDF(
      CHFp_FRA(whalf)
      ,CHFp_CONST_FRA(phi)
      ,CHFp_CONST_REAL(dx)
      ,CHFp_CONST_INT(idir)
      ,CHFp_BOX(Box) );

// Prototype for Fortran procedure STONECORRECTION ...
//
#define FORT_STONECORRECTION FORTRAN_NAME( STONECORRECTION ,stonecorrection )
void 
FORT_STONECORRECTION(
      CHFp_FRA(whalf)
      ,CHFp_CONST_FRA(W)
      ,CHFp_BOX(loBox)
      ,CHFp_CONST_INT(hasLo)
      ,CHFp_BOX(hiBox)
      ,CHFp_CONST_INT(hasHi)
      ,CHFp_BOX(box)
      ,CHFp_CONST_INT(idir)
      ,CHFp_CONST_REAL(dtbydx) );

// Prototype for Fortran procedure GRADIENTBF ...
//
#define FORT_GRADIENTBF FORTRAN_NAME( GRADIENTBF ,gradientbf )
void 
FORT_GRADIENTBF(
      CHFp_FRA(gradB)
      ,CHFp_CONST_FRA(BFLD)
      ,CHFp_CONST_REAL(dx)
      ,CHFp_CONST_INT(icomp)
      ,CHFp_CONST_INT(idir)
      ,CHFp_BOX(loBox)
      ,CHFp_CONST_INT(hasLo)
      ,CHFp_BOX(hiBox)
      ,CHFp_CONST_INT(hasHi)
      ,CHFp_BOX(box) );

// Prototype for Fortran procedure DIVGRADBTF ...
//
#define FORT_DIVGRADBTF FORTRAN_NAME( DIVGRADBTF ,divgradbtf )
void 
FORT_DIVGRADBTF(
      CHFp_FRA(divgradBT)
      ,CHFp_CONST_FRA(gradB)
      ,CHFp_CONST_REAL(dx)
      ,CHFp_CONST_INT(idir)
      ,CHFp_BOX(loBox)
      ,CHFp_CONST_INT(hasLo)
      ,CHFp_BOX(hiBox)
      ,CHFp_CONST_INT(hasHi)
      ,CHFp_BOX(box) );

// Prototype for Fortran procedure BFILTERF ...
//
#define FORT_BFILTERF FORTRAN_NAME( BFILTERF ,bfilterf )
void 
FORT_BFILTERF(
      CHFp_FRA(BFld)
      ,CHFp_CONST_FRA(divgradBT)
      ,CHFp_CONST_REAL(dx)
      ,CHFp_CONST_REAL(dt)
      ,CHFp_BOX(box) );

// Prototype for Fortran procedure CONSTOPLOTF ...
//
#define FORT_CONSTOPLOTF FORTRAN_NAME( CONSTOPLOTF ,constoplotf )
void 
FORT_CONSTOPLOTF(
      CHFp_FRA(W)
      ,CHFp_CONST_FRA(U)
      ,CHFp_BOX(box) );

}

#endif

---