PatchGodunovF_F.H Source File

00001 #ifndef _PatchGodunovF_F_H_
00002 #define _PatchGodunovF_F_H_
00003 
00004 #include "FORT_PROTO.H"
00005 #include "REAL.H"
00006 
00007 extern "C"
00008 {
00009 
00010 // Prototype for Fortran procedure MINFLAT ...
00011 //
00012 #define FORT_MINFLAT FORTRAN_NAME( MINFLAT ,minflat )
00013 void 
00014 FORT_MINFLAT(
00015       CHFp_FRA1(flattening)
00016       ,CHFp_CONST_FRA(zetaDir)
00017       ,CHFp_CONST_FRA(du)
00018       ,CHFp_BOX(box) );
00019 
00020 // Prototype for Fortran procedure GETDPTWO ...
00021 //
00022 #define FORT_GETDPTWO FORTRAN_NAME( GETDPTWO ,getdptwo )
00023 void 
00024 FORT_GETDPTWO(
00025       CHFp_FRA1(delta2p)
00026       ,CHFp_CONST_FRA1(delta1p)
00027       ,CHFp_CONST_INT(idir)
00028       ,CHFp_BOX(loBox)
00029       ,CHFp_CONST_INT(hasLo)
00030       ,CHFp_BOX(hiBox)
00031       ,CHFp_CONST_INT(hasHi)
00032       ,CHFp_BOX(centerBox) );
00033 
00034 // Prototype for Fortran procedure GETFLAT ...
00035 //
00036 #define FORT_GETFLAT FORTRAN_NAME( GETFLAT ,getflat )
00037 void 
00038 FORT_GETFLAT(
00039       CHFp_FRA1(zetaTwiddle)
00040       ,CHFp_CONST_FRA1(delta1p)
00041       ,CHFp_CONST_FRA1(delta2p)
00042       ,CHFp_CONST_FRA1(bulkMin)
00043       ,CHFp_BOX(box) );
00044 
00045 // Prototype for Fortran procedure GETGRAD ...
00046 //
00047 #define FORT_GETGRAD FORTRAN_NAME( GETGRAD ,getgrad )
00048 void 
00049 FORT_GETGRAD(
00050       CHFp_FRA1(du)
00051       ,CHFp_CONST_FRA1(u)
00052       ,CHFp_CONST_INT(idir)
00053       ,CHFp_BOX(loBox)
00054       ,CHFp_CONST_INT(hasLo)
00055       ,CHFp_BOX(hiBox)
00056       ,CHFp_CONST_INT(hasHi)
00057       ,CHFp_BOX(centerBox) );
00058 
00059 // Prototype for Fortran procedure MAGNITUDE ...
00060 //
00061 #define FORT_MAGNITUDE FORTRAN_NAME( MAGNITUDE ,magnitude )
00062 void 
00063 FORT_MAGNITUDE(
00064       CHFp_FRA1(magdata)
00065       ,CHFp_CONST_FRA(data)
00066       ,CHFp_BOX(box) );
00067 
00068 // Prototype for Fortran procedure MIN3PTS ...
00069 //
00070 #define FORT_MIN3PTS FORTRAN_NAME( MIN3PTS ,min3pts )
00071 void 
00072 FORT_MIN3PTS(
00073       CHFp_FRA1(mindata)
00074       ,CHFp_CONST_FRA1(data)
00075       ,CHFp_CONST_INT(idir)
00076       ,CHFp_BOX(loBox)
00077       ,CHFp_CONST_INT(hasLo)
00078       ,CHFp_BOX(hiBox)
00079       ,CHFp_CONST_INT(hasHi)
00080       ,CHFp_BOX(centerBox) );
00081 
00082 // Prototype for Fortran procedure SECONDSLOPEDIFFS ...
00083 //
00084 #define FORT_SECONDSLOPEDIFFS FORTRAN_NAME( SECONDSLOPEDIFFS ,secondslopediffs )
00085 void 
00086 FORT_SECONDSLOPEDIFFS(
00087       CHFp_FRA(deltaWC)
00088       ,CHFp_FRA(deltaWL)
00089       ,CHFp_FRA(deltaWR)
00090       ,CHFp_CONST_FRA(W)
00091       ,CHFp_CONST_INT(numSlopes)
00092       ,CHFp_CONST_INT(idir)
00093       ,CHFp_BOX(loBox)
00094       ,CHFp_CONST_INT(hasLo)
00095       ,CHFp_BOX(hiBox)
00096       ,CHFp_CONST_INT(hasHi)
00097       ,CHFp_BOX(centerBox) );
00098 
00099 // Prototype for Fortran procedure FOURTHSLOPEDIFFS ...
00100 //
00101 #define FORT_FOURTHSLOPEDIFFS FORTRAN_NAME( FOURTHSLOPEDIFFS ,fourthslopediffs )
00102 void 
00103 FORT_FOURTHSLOPEDIFFS(
00104       CHFp_FRA(delta4WC)
00105       ,CHFp_CONST_FRA(W)
00106       ,CHFp_CONST_FRA(delta2W)
00107       ,CHFp_CONST_INT(numSlopes)
00108       ,CHFp_CONST_INT(idir)
00109       ,CHFp_BOX(loBox)
00110       ,CHFp_CONST_INT(hasLo)
00111       ,CHFp_BOX(hiBox)
00112       ,CHFp_CONST_INT(hasHi)
00113       ,CHFp_BOX(centerBox) );
00114 
00115 // Prototype for Fortran procedure APPLYFLAT ...
00116 //
00117 #define FORT_APPLYFLAT FORTRAN_NAME( APPLYFLAT ,applyflat )
00118 void 
00119 FORT_APPLYFLAT(
00120       CHFp_FRA(dW)
00121       ,CHFp_CONST_FRA1(flattening)
00122       ,CHFp_CONST_INT(numSlopes)
00123       ,CHFp_BOX(box) );
00124 
00125 // Prototype for Fortran procedure VANLEERLIMITER ...
00126 //
00127 #define FORT_VANLEERLIMITER FORTRAN_NAME( VANLEERLIMITER ,vanleerlimiter )
00128 void 
00129 FORT_VANLEERLIMITER(
00130       CHFp_FRA(dW)
00131       ,CHFp_CONST_FRA(dWleft)
00132       ,CHFp_CONST_FRA(dWright)
00133       ,CHFp_CONST_INT(idir)
00134       ,CHFp_BOX(box) );
00135 
00136 // Prototype for Fortran procedure DIVUEDGE ...
00137 //
00138 #define FORT_DIVUEDGE FORTRAN_NAME( DIVUEDGE ,divuedge )
00139 void 
00140 FORT_DIVUEDGE(
00141       CHFp_FRA1(divu)
00142       ,CHFp_CONST_FRA1(uNorm)
00143       ,CHFp_CONST_FRA(duTan)
00144       ,CHFp_CONST_INT(idir)
00145       ,CHFp_BOX(loBox)
00146       ,CHFp_CONST_INT(hasLo)
00147       ,CHFp_BOX(hiBox)
00148       ,CHFp_CONST_INT(hasHi)
00149       ,CHFp_BOX(box) );
00150 
00151 // Prototype for Fortran procedure ARTVISC ...
00152 //
00153 #define FORT_ARTVISC FORTRAN_NAME( ARTVISC ,artvisc )
00154 void 
00155 FORT_ARTVISC(
00156       CHFp_FRA(F)
00157       ,CHFp_CONST_FRA(U)
00158       ,CHFp_CONST_FRA1(divu)
00159       ,CHFp_CONST_REAL(coeff)
00160       ,CHFp_CONST_INT(idir)
00161       ,CHFp_BOX(box) );
00162 
00163 }
00164 #endif