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       ,CHFp_FRA1(dUpS) );
00045 
00046 // Prototype for Fortran procedure TRANSVERSECROSS ...
00047 //
00048 #define FORT_TRANSVERSECROSS FORTRAN_NAME( TRANSVERSECROSS ,transversecross )
00049 void 
00050 FORT_TRANSVERSECROSS(
00051       CHFp_FRA1(sHat)
00052       ,CHFp_CONST_FRA1(s)
00053       ,CHFp_CONST_FRA(vel)
00054       ,CHFp_BOX(gridBox)
00055       ,CHFp_CONST_REAL(dt)
00056       ,CHFp_CONST_REAL(dx)
00057       ,CHFp_CONST_INT(dir) );
00058 
00059 // Prototype for Fortran procedure PREDICT ...
00060 //
00061 #define FORT_PREDICT FORTRAN_NAME( PREDICT ,predict )
00062 void 
00063 FORT_PREDICT(
00064       CHFp_FRA1(sHalf)
00065       ,CHFp_CONST_FRA1(sHat)
00066       ,CHFp_CONST_FRA1(delS)
00067       ,CHFp_CONST_FRA1(vel)
00068       ,CHFp_CONST_FRA1(advVel)
00069       ,CHFp_BOX(edgeBox)
00070       ,CHFp_CONST_REAL(dt)
00071       ,CHFp_CONST_REAL(dx)
00072       ,CHFp_CONST_INT(dir) );
00073 
00074 }
00075 #endif