GodunovTraceF_F.H Source File

00001 #ifndef _GODUNOVTRACEF_F_H_
00002 #define _GODUNOVTRACEF_F_H_
00003 
00004 #include "FORT_PROTO.H"
00005 #include "REAL.H"
00006 
00007 extern "C"
00008 {
00009 
00010 // Prototype for Fortran procedure UPWINDCELLTOEDGE ...
00011 //
00012 #define FORT_UPWINDCELLTOEDGE FORTRAN_NAME( UPWINDCELLTOEDGE ,upwindcelltoedge )
00013 void 
00014 FORT_UPWINDCELLTOEDGE(
00015       CHFp_FRA1(edgeState)
00016       ,CHFp_CONST_FRA1(cellState)
00017       ,CHFp_CONST_FRA(edgeVel)
00018       ,CHFp_BOX(edgeBox)
00019       ,CHFp_CONST_INT(dir) );
00020 
00021 // Prototype for Fortran procedure SLOPES ...
00022 //
00023 #define FORT_SLOPES FORTRAN_NAME( SLOPES ,slopes )
00024 void 
00025 FORT_SLOPES(
00026       CHFp_FRA1(delS)
00027       ,CHFp_CONST_FRA1(s)
00028       ,CHFp_BOX(gridBox)
00029       ,CHFp_CONST_INT(dir)
00030       ,CHFp_CONST_INT(doLimit) );
00031 
00032 // Prototype for Fortran procedure TRANSVERSE ...
00033 //
00034 #define FORT_TRANSVERSE FORTRAN_NAME( TRANSVERSE ,transverse )
00035 void 
00036 FORT_TRANSVERSE(
00037       CHFp_FRA1(sHat)
00038       ,CHFp_CONST_FRA1(s)
00039       ,CHFp_CONST_FRA1(vel)
00040       ,CHFp_BOX(gridBox)
00041       ,CHFp_CONST_REAL(dt)
00042       ,CHFp_CONST_REAL(dx)
00043       ,CHFp_CONST_INT(dir) );
00044 
00045 // Prototype for Fortran procedure TRANSVERSECROSS ...
00046 //
00047 #define FORT_TRANSVERSECROSS FORTRAN_NAME( TRANSVERSECROSS ,transversecross )
00048 void 
00049 FORT_TRANSVERSECROSS(
00050       CHFp_FRA1(sHat)
00051       ,CHFp_CONST_FRA1(s)
00052       ,CHFp_CONST_FRA(vel)
00053       ,CHFp_BOX(gridBox)
00054       ,CHFp_CONST_REAL(dt)
00055       ,CHFp_CONST_REAL(dx)
00056       ,CHFp_CONST_INT(dir) );
00057 
00058 // Prototype for Fortran procedure PREDICT ...
00059 //
00060 #define FORT_PREDICT FORTRAN_NAME( PREDICT ,predict )
00061 void 
00062 FORT_PREDICT(
00063       CHFp_FRA1(sHalf)
00064       ,CHFp_CONST_FRA1(sHat)
00065       ,CHFp_CONST_FRA1(delS)
00066       ,CHFp_CONST_FRA1(vel)
00067       ,CHFp_CONST_FRA1(advVel)
00068       ,CHFp_BOX(edgeBox)
00069       ,CHFp_CONST_REAL(dt)
00070       ,CHFp_CONST_REAL(dx)
00071       ,CHFp_CONST_INT(dir) );
00072 
00073 }
00074 
00075 #endif