PatchAdvectionF_F.H Source File

00001 #ifndef _PATCHADVECTIONF_F_H_
00002 #define _PATCHADVECTIONF_F_H_
00003 
00004 #include "FORT_PROTO.H"
00005 #include "REAL.H"
00006 
00007 extern "C"
00008 {
00009 
00010 // Prototype for Fortran procedure NORMALPREDF ...
00011 //
00012 #define FORT_NORMALPREDF FORTRAN_NAME( NORMALPREDF ,normalpredf )
00013 void 
00014 FORT_NORMALPREDF(
00015       CHFp_FRA(WMinus)
00016       ,CHFp_FRA(WPlus)
00017       ,CHFp_CONST_FRA(W)
00018       ,CHFp_CONST_FRA(dW)
00019       ,CHFp_CONST_FRA(cellVel)
00020       ,CHFp_CONST_REAL(dtbydx)
00021       ,CHFp_CONST_INT(normdir)
00022       ,CHFp_BOX(box) );
00023 
00024 // Prototype for Fortran procedure RIEMANNF ...
00025 //
00026 #define FORT_RIEMANNF FORTRAN_NAME( RIEMANNF ,riemannf )
00027 void 
00028 FORT_RIEMANNF(
00029       CHFp_FRA(Wgdnv)
00030       ,CHFp_CONST_FRA(WLeft)
00031       ,CHFp_CONST_FRA(WRight)
00032       ,CHFp_CONST_FRA1(advVel)
00033       ,CHFp_CONST_INT(idir)
00034       ,CHFp_BOX(box) );
00035 
00036 // Prototype for Fortran procedure UPDATECONSADF ...
00037 //
00038 #define FORT_UPDATECONSADF FORTRAN_NAME( UPDATECONSADF ,updateconsadf )
00039 void 
00040 FORT_UPDATECONSADF(
00041       CHFp_FRA(U)
00042       ,CHFp_CONST_FRA(F)
00043       ,CHFp_CONST_FRA(vel)
00044       ,CHFp_CONST_REAL(dtbydx)
00045       ,CHFp_CONST_INT(idir)
00046       ,CHFp_BOX(box) );
00047 
00048 }
00049 
00050 #endif