00001 #ifndef _ADVECTPHYSICSF_F_H_
00002 #define _ADVECTPHYSICSF_F_H_
00003
00004 #include "FORT_PROTO.H"
00005 #include "CH_Timer.H"
00006 #include "REAL.H"
00007
00008 extern "C"
00009 {
00010
00011 #ifndef GUARDAVEFACESCALTOFACEVECT
00012 #define GUARDAVEFACESCALTOFACEVECT
00013
00014
00015 void FORTRAN_NAME( AVEFACESCALTOFACEVECT ,avefacescaltofacevect )(
00016 CHFp_FRA(facevect)
00017 ,CHFp_CONST_FRA1(facescal)
00018 ,CHFp_CONST_INT(facedir)
00019 ,CHFp_CONST_INT(vectdir)
00020 ,CHFp_BOX(dcalcface)
00021 ,CHFp_BOX(offbox) );
00022
00023 #define FORT_AVEFACESCALTOFACEVECT FORTRAN_NAME( inlineAVEFACESCALTOFACEVECT, inlineAVEFACESCALTOFACEVECT)
00024 #define FORTNT_AVEFACESCALTOFACEVECT FORTRAN_NAME( AVEFACESCALTOFACEVECT, avefacescaltofacevect)
00025
00026 inline void FORTRAN_NAME(inlineAVEFACESCALTOFACEVECT, inlineAVEFACESCALTOFACEVECT)(
00027 CHFp_FRA(facevect)
00028 ,CHFp_CONST_FRA1(facescal)
00029 ,CHFp_CONST_INT(facedir)
00030 ,CHFp_CONST_INT(vectdir)
00031 ,CHFp_BOX(dcalcface)
00032 ,CHFp_BOX(offbox) )
00033 {
00034 CH_TIMELEAF("FORT_AVEFACESCALTOFACEVECT");
00035 FORTRAN_NAME( AVEFACESCALTOFACEVECT ,avefacescaltofacevect )(
00036 CHFt_FRA(facevect)
00037 ,CHFt_CONST_FRA1(facescal)
00038 ,CHFt_CONST_INT(facedir)
00039 ,CHFt_CONST_INT(vectdir)
00040 ,CHFt_BOX(dcalcface)
00041 ,CHFt_BOX(offbox) );
00042 }
00043 #endif // GUARDAVEFACESCALTOFACEVECT
00044
00045 #ifndef GUARDAVESCALTOFACE
00046 #define GUARDAVESCALTOFACE
00047
00048
00049 void FORTRAN_NAME( AVESCALTOFACE ,avescaltoface )(
00050 CHFp_FRA1(facescal)
00051 ,CHFp_CONST_FRA1(cellscal)
00052 ,CHFp_CONST_INT(idir)
00053 ,CHFp_BOX(dcalcface) );
00054
00055 #define FORT_AVESCALTOFACE FORTRAN_NAME( inlineAVESCALTOFACE, inlineAVESCALTOFACE)
00056 #define FORTNT_AVESCALTOFACE FORTRAN_NAME( AVESCALTOFACE, avescaltoface)
00057
00058 inline void FORTRAN_NAME(inlineAVESCALTOFACE, inlineAVESCALTOFACE)(
00059 CHFp_FRA1(facescal)
00060 ,CHFp_CONST_FRA1(cellscal)
00061 ,CHFp_CONST_INT(idir)
00062 ,CHFp_BOX(dcalcface) )
00063 {
00064 CH_TIMELEAF("FORT_AVESCALTOFACE");
00065 FORTRAN_NAME( AVESCALTOFACE ,avescaltoface )(
00066 CHFt_FRA1(facescal)
00067 ,CHFt_CONST_FRA1(cellscal)
00068 ,CHFt_CONST_INT(idir)
00069 ,CHFt_BOX(dcalcface) );
00070 }
00071 #endif // GUARDAVESCALTOFACE
00072
00073 #ifndef GUARDAVECELLTOFACE
00074 #define GUARDAVECELLTOFACE
00075
00076
00077 void FORTRAN_NAME( AVECELLTOFACE ,avecelltoface )(
00078 CHFp_FRA1(facevel)
00079 ,CHFp_CONST_FRA(cellvel)
00080 ,CHFp_CONST_INT(idir)
00081 ,CHFp_BOX(dcalcface) );
00082
00083 #define FORT_AVECELLTOFACE FORTRAN_NAME( inlineAVECELLTOFACE, inlineAVECELLTOFACE)
00084 #define FORTNT_AVECELLTOFACE FORTRAN_NAME( AVECELLTOFACE, avecelltoface)
00085
00086 inline void FORTRAN_NAME(inlineAVECELLTOFACE, inlineAVECELLTOFACE)(
00087 CHFp_FRA1(facevel)
00088 ,CHFp_CONST_FRA(cellvel)
00089 ,CHFp_CONST_INT(idir)
00090 ,CHFp_BOX(dcalcface) )
00091 {
00092 CH_TIMELEAF("FORT_AVECELLTOFACE");
00093 FORTRAN_NAME( AVECELLTOFACE ,avecelltoface )(
00094 CHFt_FRA1(facevel)
00095 ,CHFt_CONST_FRA(cellvel)
00096 ,CHFt_CONST_INT(idir)
00097 ,CHFt_BOX(dcalcface) );
00098 }
00099 #endif // GUARDAVECELLTOFACE
00100
00101 #ifndef GUARDAVEFACETOCELL
00102 #define GUARDAVEFACETOCELL
00103
00104
00105 void FORTRAN_NAME( AVEFACETOCELL ,avefacetocell )(
00106 CHFp_FRA(cellvel)
00107 ,CHFp_CONST_FRA1(facevel)
00108 ,CHFp_CONST_INT(idir)
00109 ,CHFp_BOX(dcalccell) );
00110
00111 #define FORT_AVEFACETOCELL FORTRAN_NAME( inlineAVEFACETOCELL, inlineAVEFACETOCELL)
00112 #define FORTNT_AVEFACETOCELL FORTRAN_NAME( AVEFACETOCELL, avefacetocell)
00113
00114 inline void FORTRAN_NAME(inlineAVEFACETOCELL, inlineAVEFACETOCELL)(
00115 CHFp_FRA(cellvel)
00116 ,CHFp_CONST_FRA1(facevel)
00117 ,CHFp_CONST_INT(idir)
00118 ,CHFp_BOX(dcalccell) )
00119 {
00120 CH_TIMELEAF("FORT_AVEFACETOCELL");
00121 FORTRAN_NAME( AVEFACETOCELL ,avefacetocell )(
00122 CHFt_FRA(cellvel)
00123 ,CHFt_CONST_FRA1(facevel)
00124 ,CHFt_CONST_INT(idir)
00125 ,CHFt_BOX(dcalccell) );
00126 }
00127 #endif // GUARDAVEFACETOCELL
00128
00129 #ifndef GUARDMAGNITUDEF
00130 #define GUARDMAGNITUDEF
00131
00132
00133 void FORTRAN_NAME( MAGNITUDEF ,magnitudef )(
00134 CHFp_FRA1(magdata)
00135 ,CHFp_CONST_FRA(data)
00136 ,CHFp_BOX(box) );
00137
00138 #define FORT_MAGNITUDEF FORTRAN_NAME( inlineMAGNITUDEF, inlineMAGNITUDEF)
00139 #define FORTNT_MAGNITUDEF FORTRAN_NAME( MAGNITUDEF, magnitudef)
00140
00141 inline void FORTRAN_NAME(inlineMAGNITUDEF, inlineMAGNITUDEF)(
00142 CHFp_FRA1(magdata)
00143 ,CHFp_CONST_FRA(data)
00144 ,CHFp_BOX(box) )
00145 {
00146 CH_TIMELEAF("FORT_MAGNITUDEF");
00147 FORTRAN_NAME( MAGNITUDEF ,magnitudef )(
00148 CHFt_FRA1(magdata)
00149 ,CHFt_CONST_FRA(data)
00150 ,CHFt_BOX(box) );
00151 }
00152 #endif // GUARDMAGNITUDEF
00153
00154 #ifndef GUARDGETRELGRADF
00155 #define GUARDGETRELGRADF
00156
00157
00158 void FORTRAN_NAME( GETRELGRADF ,getrelgradf )(
00159 CHFp_FRA1(du)
00160 ,CHFp_CONST_FRA1(u)
00161 ,CHFp_CONST_INT(idir)
00162 ,CHFp_BOX(loBox)
00163 ,CHFp_CONST_INT(hasLo)
00164 ,CHFp_BOX(hiBox)
00165 ,CHFp_CONST_INT(hasHi)
00166 ,CHFp_BOX(centerBox) );
00167
00168 #define FORT_GETRELGRADF FORTRAN_NAME( inlineGETRELGRADF, inlineGETRELGRADF)
00169 #define FORTNT_GETRELGRADF FORTRAN_NAME( GETRELGRADF, getrelgradf)
00170
00171 inline void FORTRAN_NAME(inlineGETRELGRADF, inlineGETRELGRADF)(
00172 CHFp_FRA1(du)
00173 ,CHFp_CONST_FRA1(u)
00174 ,CHFp_CONST_INT(idir)
00175 ,CHFp_BOX(loBox)
00176 ,CHFp_CONST_INT(hasLo)
00177 ,CHFp_BOX(hiBox)
00178 ,CHFp_CONST_INT(hasHi)
00179 ,CHFp_BOX(centerBox) )
00180 {
00181 CH_TIMELEAF("FORT_GETRELGRADF");
00182 FORTRAN_NAME( GETRELGRADF ,getrelgradf )(
00183 CHFt_FRA1(du)
00184 ,CHFt_CONST_FRA1(u)
00185 ,CHFt_CONST_INT(idir)
00186 ,CHFt_BOX(loBox)
00187 ,CHFt_CONST_INT(hasLo)
00188 ,CHFt_BOX(hiBox)
00189 ,CHFt_CONST_INT(hasHi)
00190 ,CHFt_BOX(centerBox) );
00191 }
00192 #endif // GUARDGETRELGRADF
00193
00194 #ifndef GUARDPOSTNORMALSOURCE
00195 #define GUARDPOSTNORMALSOURCE
00196
00197
00198 void FORTRAN_NAME( POSTNORMALSOURCE ,postnormalsource )(
00199 CHFp_FRA(dWminus)
00200 ,CHFp_FRA(dWplus)
00201 ,CHFp_CONST_FRA(W)
00202 ,CHFp_CONST_FRA1(advVel)
00203 ,CHFp_CONST_REAL(dt)
00204 ,CHFp_CONST_REAL(dx)
00205 ,CHFp_CONST_INT(idir)
00206 ,CHFp_BOX(box) );
00207
00208 #define FORT_POSTNORMALSOURCE FORTRAN_NAME( inlinePOSTNORMALSOURCE, inlinePOSTNORMALSOURCE)
00209 #define FORTNT_POSTNORMALSOURCE FORTRAN_NAME( POSTNORMALSOURCE, postnormalsource)
00210
00211 inline void FORTRAN_NAME(inlinePOSTNORMALSOURCE, inlinePOSTNORMALSOURCE)(
00212 CHFp_FRA(dWminus)
00213 ,CHFp_FRA(dWplus)
00214 ,CHFp_CONST_FRA(W)
00215 ,CHFp_CONST_FRA1(advVel)
00216 ,CHFp_CONST_REAL(dt)
00217 ,CHFp_CONST_REAL(dx)
00218 ,CHFp_CONST_INT(idir)
00219 ,CHFp_BOX(box) )
00220 {
00221 CH_TIMELEAF("FORT_POSTNORMALSOURCE");
00222 FORTRAN_NAME( POSTNORMALSOURCE ,postnormalsource )(
00223 CHFt_FRA(dWminus)
00224 ,CHFt_FRA(dWplus)
00225 ,CHFt_CONST_FRA(W)
00226 ,CHFt_CONST_FRA1(advVel)
00227 ,CHFt_CONST_REAL(dt)
00228 ,CHFt_CONST_REAL(dx)
00229 ,CHFt_CONST_INT(idir)
00230 ,CHFt_BOX(box) );
00231 }
00232 #endif // GUARDPOSTNORMALSOURCE
00233
00234 #ifndef GUARDRIEMANNF
00235 #define GUARDRIEMANNF
00236
00237
00238 void FORTRAN_NAME( RIEMANNF ,riemannf )(
00239 CHFp_FRA(Wgdnv)
00240 ,CHFp_CONST_FRA(WLeft)
00241 ,CHFp_CONST_FRA(WRight)
00242 ,CHFp_CONST_FRA1(advVel)
00243 ,CHFp_CONST_INT(idir)
00244 ,CHFp_BOX(box) );
00245
00246 #define FORT_RIEMANNF FORTRAN_NAME( inlineRIEMANNF, inlineRIEMANNF)
00247 #define FORTNT_RIEMANNF FORTRAN_NAME( RIEMANNF, riemannf)
00248
00249 inline void FORTRAN_NAME(inlineRIEMANNF, inlineRIEMANNF)(
00250 CHFp_FRA(Wgdnv)
00251 ,CHFp_CONST_FRA(WLeft)
00252 ,CHFp_CONST_FRA(WRight)
00253 ,CHFp_CONST_FRA1(advVel)
00254 ,CHFp_CONST_INT(idir)
00255 ,CHFp_BOX(box) )
00256 {
00257 CH_TIMELEAF("FORT_RIEMANNF");
00258 FORTRAN_NAME( RIEMANNF ,riemannf )(
00259 CHFt_FRA(Wgdnv)
00260 ,CHFt_CONST_FRA(WLeft)
00261 ,CHFt_CONST_FRA(WRight)
00262 ,CHFt_CONST_FRA1(advVel)
00263 ,CHFt_CONST_INT(idir)
00264 ,CHFt_BOX(box) );
00265 }
00266 #endif // GUARDRIEMANNF
00267
00268 #ifndef GUARDQUASILINEARUPDATE
00269 #define GUARDQUASILINEARUPDATE
00270
00271
00272 void FORTRAN_NAME( QUASILINEARUPDATE ,quasilinearupdate )(
00273 CHFp_FRA(AdWdx)
00274 ,CHFp_CONST_FRA(WHalf)
00275 ,CHFp_CONST_FRA1(cellVel)
00276 ,CHFp_CONST_REAL(scale)
00277 ,CHFp_CONST_INT(idir)
00278 ,CHFp_BOX(box) );
00279
00280 #define FORT_QUASILINEARUPDATE FORTRAN_NAME( inlineQUASILINEARUPDATE, inlineQUASILINEARUPDATE)
00281 #define FORTNT_QUASILINEARUPDATE FORTRAN_NAME( QUASILINEARUPDATE, quasilinearupdate)
00282
00283 inline void FORTRAN_NAME(inlineQUASILINEARUPDATE, inlineQUASILINEARUPDATE)(
00284 CHFp_FRA(AdWdx)
00285 ,CHFp_CONST_FRA(WHalf)
00286 ,CHFp_CONST_FRA1(cellVel)
00287 ,CHFp_CONST_REAL(scale)
00288 ,CHFp_CONST_INT(idir)
00289 ,CHFp_BOX(box) )
00290 {
00291 CH_TIMELEAF("FORT_QUASILINEARUPDATE");
00292 FORTRAN_NAME( QUASILINEARUPDATE ,quasilinearupdate )(
00293 CHFt_FRA(AdWdx)
00294 ,CHFt_CONST_FRA(WHalf)
00295 ,CHFt_CONST_FRA1(cellVel)
00296 ,CHFt_CONST_REAL(scale)
00297 ,CHFt_CONST_INT(idir)
00298 ,CHFt_BOX(box) );
00299 }
00300 #endif // GUARDQUASILINEARUPDATE
00301
00302 #ifndef GUARDAVECELLVECTOFACEVEC
00303 #define GUARDAVECELLVECTOFACEVEC
00304
00305
00306 void FORTRAN_NAME( AVECELLVECTOFACEVEC ,avecellvectofacevec )(
00307 CHFp_FRA(facevec)
00308 ,CHFp_CONST_FRA(cellvec)
00309 ,CHFp_CONST_INT(facedir)
00310 ,CHFp_BOX(dcalcface) );
00311
00312 #define FORT_AVECELLVECTOFACEVEC FORTRAN_NAME( inlineAVECELLVECTOFACEVEC, inlineAVECELLVECTOFACEVEC)
00313 #define FORTNT_AVECELLVECTOFACEVEC FORTRAN_NAME( AVECELLVECTOFACEVEC, avecellvectofacevec)
00314
00315 inline void FORTRAN_NAME(inlineAVECELLVECTOFACEVEC, inlineAVECELLVECTOFACEVEC)(
00316 CHFp_FRA(facevec)
00317 ,CHFp_CONST_FRA(cellvec)
00318 ,CHFp_CONST_INT(facedir)
00319 ,CHFp_BOX(dcalcface) )
00320 {
00321 CH_TIMELEAF("FORT_AVECELLVECTOFACEVEC");
00322 FORTRAN_NAME( AVECELLVECTOFACEVEC ,avecellvectofacevec )(
00323 CHFt_FRA(facevec)
00324 ,CHFt_CONST_FRA(cellvec)
00325 ,CHFt_CONST_INT(facedir)
00326 ,CHFt_BOX(dcalcface) );
00327 }
00328 #endif // GUARDAVECELLVECTOFACEVEC
00329
00330 }
00331
00332 #endif
