PatchIdealMHDF_F.H Source File

00001 #ifndef _PatchIdealMHDF_F_H_
00002 #define _PatchIdealMHDF_F_H_
00003 
00004 #include "FORT_PROTO.H"
00005 #include "REAL.H"
00006 
00007 extern "C"
00008 {
00009 
00010 // Prototype for Fortran procedure MAXWAVESPEED ...
00011 //
00012 #define FORT_MAXWAVESPEED FORTRAN_NAME( MAXWAVESPEED ,maxwavespeed )
00013 void 
00014 FORT_MAXWAVESPEED(
00015       CHFp_REAL(cmax)
00016       ,CHFp_CONST_FRA(cons)
00017       ,CHFp_BOX(box) );
00018 
00019 // Prototype for Fortran procedure CONSTOPRIM ...
00020 //
00021 #define FORT_CONSTOPRIM FORTRAN_NAME( CONSTOPRIM ,constoprim )
00022 void 
00023 FORT_CONSTOPRIM(
00024       CHFp_FRA(W)
00025       ,CHFp_CONST_FRA(U)
00026       ,CHFp_BOX(box) );
00027 
00028 // Prototype for Fortran procedure PRIMTOCONS ...
00029 //
00030 #define FORT_PRIMTOCONS FORTRAN_NAME( PRIMTOCONS ,primtocons )
00031 void 
00032 FORT_PRIMTOCONS(
00033       CHFp_FRA(U)
00034       ,CHFp_CONST_FRA(W)
00035       ,CHFp_BOX(box) );
00036 
00037 // Prototype for Fortran procedure NORMALPRED ...
00038 //
00039 #define FORT_NORMALPRED FORTRAN_NAME( NORMALPRED ,normalpred )
00040 void 
00041 FORT_NORMALPRED(
00042       CHFp_FRA(WMinus)
00043       ,CHFp_FRA(WPlus)
00044       ,CHFp_CONST_FRA(W)
00045       ,CHFp_CONST_FRA(dW)
00046       ,CHFp_CONST_REAL(dtbydx)
00047       ,CHFp_CONST_INT(normdir)
00048       ,CHFp_BOX(box) );
00049 
00050 // Prototype for Fortran procedure RIEMANN ...
00051 //
00052 #define FORT_RIEMANN FORTRAN_NAME( RIEMANN ,riemann )
00053 void 
00054 FORT_RIEMANN(
00055       CHFp_FRA(Wgdnv)
00056       ,CHFp_CONST_FRA(WLeft)
00057       ,CHFp_CONST_FRA(WRight)
00058       ,CHFp_CONST_INT(idir)
00059       ,CHFp_BOX(box) );
00060 
00061 // Prototype for Fortran procedure GETFLUX ...
00062 //
00063 #define FORT_GETFLUX FORTRAN_NAME( GETFLUX ,getflux )
00064 void 
00065 FORT_GETFLUX(
00066       CHFp_FRA(F)
00067       ,CHFp_CONST_FRA(Wgdnv)
00068       ,CHFp_CONST_INT(idir)
00069       ,CHFp_BOX(box) );
00070 
00071 // Prototype for Fortran procedure UPDATECONS ...
00072 //
00073 #define FORT_UPDATECONS FORTRAN_NAME( UPDATECONS ,updatecons )
00074 void 
00075 FORT_UPDATECONS(
00076       CHFp_FRA(U)
00077       ,CHFp_CONST_FRA(F)
00078       ,CHFp_CONST_REAL(dtbydx)
00079       ,CHFp_CONST_INT(idir)
00080       ,CHFp_BOX(box) );
00081 
00082 // Prototype for Fortran procedure FILTERCONS ...
00083 //
00084 #define FORT_FILTERCONS FORTRAN_NAME( FILTERCONS ,filtercons )
00085 void 
00086 FORT_FILTERCONS(
00087       CHFp_FRA(U)
00088       ,CHFp_CONST_FRA(Uold)
00089       ,CHFp_CONST_REAL(dt)
00090       ,CHFp_CONST_REAL(dx)
00091       ,CHFp_BOX(box) );
00092 
00093 }
00094 #endif