00001 #ifndef _EBPATCHGODUNOVF_F_H_
00002 #define _EBPATCHGODUNOVF_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 GUARDMINFLAT
00012 #define GUARDMINFLAT
00013
00014
00015 void FORTRAN_NAME( MINFLAT ,minflat )(
00016 CHFp_FRA1(flattening)
00017 ,CHFp_CONST_FRA(zetadir)
00018 ,CHFp_CONST_FRA(du)
00019 ,CHFp_BOX(box) );
00020
00021 #define FORT_MINFLAT FORTRAN_NAME( inlineMINFLAT, inlineMINFLAT)
00022 #define FORTNT_MINFLAT FORTRAN_NAME( MINFLAT, minflat)
00023
00024 inline void FORTRAN_NAME(inlineMINFLAT, inlineMINFLAT)(
00025 CHFp_FRA1(flattening)
00026 ,CHFp_CONST_FRA(zetadir)
00027 ,CHFp_CONST_FRA(du)
00028 ,CHFp_BOX(box) )
00029 {
00030 CH_TIMELEAF("FORT_MINFLAT");
00031 FORTRAN_NAME( MINFLAT ,minflat )(
00032 CHFt_FRA1(flattening)
00033 ,CHFt_CONST_FRA(zetadir)
00034 ,CHFt_CONST_FRA(du)
00035 ,CHFt_BOX(box) );
00036 }
00037 #endif // GUARDMINFLAT
00038
00039 #ifndef GUARDGETDPTWO
00040 #define GUARDGETDPTWO
00041
00042
00043 void FORTRAN_NAME( GETDPTWO ,getdptwo )(
00044 CHFp_FRA1(delta2p)
00045 ,CHFp_CONST_FRA1(delta1p)
00046 ,CHFp_CONST_INT(idir)
00047 ,CHFp_BOX(lobox)
00048 ,CHFp_CONST_INT(haslo)
00049 ,CHFp_BOX(hibox)
00050 ,CHFp_CONST_INT(hashi)
00051 ,CHFp_BOX(centerbox) );
00052
00053 #define FORT_GETDPTWO FORTRAN_NAME( inlineGETDPTWO, inlineGETDPTWO)
00054 #define FORTNT_GETDPTWO FORTRAN_NAME( GETDPTWO, getdptwo)
00055
00056 inline void FORTRAN_NAME(inlineGETDPTWO, inlineGETDPTWO)(
00057 CHFp_FRA1(delta2p)
00058 ,CHFp_CONST_FRA1(delta1p)
00059 ,CHFp_CONST_INT(idir)
00060 ,CHFp_BOX(lobox)
00061 ,CHFp_CONST_INT(haslo)
00062 ,CHFp_BOX(hibox)
00063 ,CHFp_CONST_INT(hashi)
00064 ,CHFp_BOX(centerbox) )
00065 {
00066 CH_TIMELEAF("FORT_GETDPTWO");
00067 FORTRAN_NAME( GETDPTWO ,getdptwo )(
00068 CHFt_FRA1(delta2p)
00069 ,CHFt_CONST_FRA1(delta1p)
00070 ,CHFt_CONST_INT(idir)
00071 ,CHFt_BOX(lobox)
00072 ,CHFt_CONST_INT(haslo)
00073 ,CHFt_BOX(hibox)
00074 ,CHFt_CONST_INT(hashi)
00075 ,CHFt_BOX(centerbox) );
00076 }
00077 #endif // GUARDGETDPTWO
00078
00079 #ifndef GUARDGETFLAT
00080 #define GUARDGETFLAT
00081
00082
00083 void FORTRAN_NAME( GETFLAT ,getflat )(
00084 CHFp_FRA1(zetatwiddle)
00085 ,CHFp_CONST_FRA1(delta1p)
00086 ,CHFp_CONST_FRA1(delta2p)
00087 ,CHFp_CONST_FRA1(bulkmin)
00088 ,CHFp_BOX(box) );
00089
00090 #define FORT_GETFLAT FORTRAN_NAME( inlineGETFLAT, inlineGETFLAT)
00091 #define FORTNT_GETFLAT FORTRAN_NAME( GETFLAT, getflat)
00092
00093 inline void FORTRAN_NAME(inlineGETFLAT, inlineGETFLAT)(
00094 CHFp_FRA1(zetatwiddle)
00095 ,CHFp_CONST_FRA1(delta1p)
00096 ,CHFp_CONST_FRA1(delta2p)
00097 ,CHFp_CONST_FRA1(bulkmin)
00098 ,CHFp_BOX(box) )
00099 {
00100 CH_TIMELEAF("FORT_GETFLAT");
00101 FORTRAN_NAME( GETFLAT ,getflat )(
00102 CHFt_FRA1(zetatwiddle)
00103 ,CHFt_CONST_FRA1(delta1p)
00104 ,CHFt_CONST_FRA1(delta2p)
00105 ,CHFt_CONST_FRA1(bulkmin)
00106 ,CHFt_BOX(box) );
00107 }
00108 #endif // GUARDGETFLAT
00109
00110 #ifndef GUARDGETGRAD
00111 #define GUARDGETGRAD
00112
00113
00114 void FORTRAN_NAME( GETGRAD ,getgrad )(
00115 CHFp_FRA1(du)
00116 ,CHFp_CONST_FRA1(u)
00117 ,CHFp_CONST_INT(idir)
00118 ,CHFp_BOX(lobox)
00119 ,CHFp_CONST_INT(haslo)
00120 ,CHFp_BOX(hibox)
00121 ,CHFp_CONST_INT(hashi)
00122 ,CHFp_BOX(centerbox) );
00123
00124 #define FORT_GETGRAD FORTRAN_NAME( inlineGETGRAD, inlineGETGRAD)
00125 #define FORTNT_GETGRAD FORTRAN_NAME( GETGRAD, getgrad)
00126
00127 inline void FORTRAN_NAME(inlineGETGRAD, inlineGETGRAD)(
00128 CHFp_FRA1(du)
00129 ,CHFp_CONST_FRA1(u)
00130 ,CHFp_CONST_INT(idir)
00131 ,CHFp_BOX(lobox)
00132 ,CHFp_CONST_INT(haslo)
00133 ,CHFp_BOX(hibox)
00134 ,CHFp_CONST_INT(hashi)
00135 ,CHFp_BOX(centerbox) )
00136 {
00137 CH_TIMELEAF("FORT_GETGRAD");
00138 FORTRAN_NAME( GETGRAD ,getgrad )(
00139 CHFt_FRA1(du)
00140 ,CHFt_CONST_FRA1(u)
00141 ,CHFt_CONST_INT(idir)
00142 ,CHFt_BOX(lobox)
00143 ,CHFt_CONST_INT(haslo)
00144 ,CHFt_BOX(hibox)
00145 ,CHFt_CONST_INT(hashi)
00146 ,CHFt_BOX(centerbox) );
00147 }
00148 #endif // GUARDGETGRAD
00149
00150 #ifndef GUARDGETRELATIVEGRAD
00151 #define GUARDGETRELATIVEGRAD
00152
00153
00154 void FORTRAN_NAME( GETRELATIVEGRAD ,getrelativegrad )(
00155 CHFp_FRA1(du)
00156 ,CHFp_CONST_FRA1(u)
00157 ,CHFp_CONST_INT(idir)
00158 ,CHFp_BOX(lobox)
00159 ,CHFp_CONST_INT(haslo)
00160 ,CHFp_BOX(hibox)
00161 ,CHFp_CONST_INT(hashi)
00162 ,CHFp_BOX(centerbox) );
00163
00164 #define FORT_GETRELATIVEGRAD FORTRAN_NAME( inlineGETRELATIVEGRAD, inlineGETRELATIVEGRAD)
00165 #define FORTNT_GETRELATIVEGRAD FORTRAN_NAME( GETRELATIVEGRAD, getrelativegrad)
00166
00167 inline void FORTRAN_NAME(inlineGETRELATIVEGRAD, inlineGETRELATIVEGRAD)(
00168 CHFp_FRA1(du)
00169 ,CHFp_CONST_FRA1(u)
00170 ,CHFp_CONST_INT(idir)
00171 ,CHFp_BOX(lobox)
00172 ,CHFp_CONST_INT(haslo)
00173 ,CHFp_BOX(hibox)
00174 ,CHFp_CONST_INT(hashi)
00175 ,CHFp_BOX(centerbox) )
00176 {
00177 CH_TIMELEAF("FORT_GETRELATIVEGRAD");
00178 FORTRAN_NAME( GETRELATIVEGRAD ,getrelativegrad )(
00179 CHFt_FRA1(du)
00180 ,CHFt_CONST_FRA1(u)
00181 ,CHFt_CONST_INT(idir)
00182 ,CHFt_BOX(lobox)
00183 ,CHFt_CONST_INT(haslo)
00184 ,CHFt_BOX(hibox)
00185 ,CHFt_CONST_INT(hashi)
00186 ,CHFt_BOX(centerbox) );
00187 }
00188 #endif // GUARDGETRELATIVEGRAD
00189
00190 #ifndef GUARDMAGNITUDE
00191 #define GUARDMAGNITUDE
00192
00193
00194 void FORTRAN_NAME( MAGNITUDE ,magnitude )(
00195 CHFp_FRA1(magdata)
00196 ,CHFp_CONST_FRA(data)
00197 ,CHFp_BOX(box) );
00198
00199 #define FORT_MAGNITUDE FORTRAN_NAME( inlineMAGNITUDE, inlineMAGNITUDE)
00200 #define FORTNT_MAGNITUDE FORTRAN_NAME( MAGNITUDE, magnitude)
00201
00202 inline void FORTRAN_NAME(inlineMAGNITUDE, inlineMAGNITUDE)(
00203 CHFp_FRA1(magdata)
00204 ,CHFp_CONST_FRA(data)
00205 ,CHFp_BOX(box) )
00206 {
00207 CH_TIMELEAF("FORT_MAGNITUDE");
00208 FORTRAN_NAME( MAGNITUDE ,magnitude )(
00209 CHFt_FRA1(magdata)
00210 ,CHFt_CONST_FRA(data)
00211 ,CHFt_BOX(box) );
00212 }
00213 #endif // GUARDMAGNITUDE
00214
00215 #ifndef GUARDMIN3PTS
00216 #define GUARDMIN3PTS
00217
00218
00219 void FORTRAN_NAME( MIN3PTS ,min3pts )(
00220 CHFp_FRA1(mindata)
00221 ,CHFp_CONST_FRA1(data)
00222 ,CHFp_CONST_INT(idir)
00223 ,CHFp_BOX(lobox)
00224 ,CHFp_CONST_INT(haslo)
00225 ,CHFp_BOX(hibox)
00226 ,CHFp_CONST_INT(hashi)
00227 ,CHFp_BOX(centerbox) );
00228
00229 #define FORT_MIN3PTS FORTRAN_NAME( inlineMIN3PTS, inlineMIN3PTS)
00230 #define FORTNT_MIN3PTS FORTRAN_NAME( MIN3PTS, min3pts)
00231
00232 inline void FORTRAN_NAME(inlineMIN3PTS, inlineMIN3PTS)(
00233 CHFp_FRA1(mindata)
00234 ,CHFp_CONST_FRA1(data)
00235 ,CHFp_CONST_INT(idir)
00236 ,CHFp_BOX(lobox)
00237 ,CHFp_CONST_INT(haslo)
00238 ,CHFp_BOX(hibox)
00239 ,CHFp_CONST_INT(hashi)
00240 ,CHFp_BOX(centerbox) )
00241 {
00242 CH_TIMELEAF("FORT_MIN3PTS");
00243 FORTRAN_NAME( MIN3PTS ,min3pts )(
00244 CHFt_FRA1(mindata)
00245 ,CHFt_CONST_FRA1(data)
00246 ,CHFt_CONST_INT(idir)
00247 ,CHFt_BOX(lobox)
00248 ,CHFt_CONST_INT(haslo)
00249 ,CHFt_BOX(hibox)
00250 ,CHFt_CONST_INT(hashi)
00251 ,CHFt_BOX(centerbox) );
00252 }
00253 #endif // GUARDMIN3PTS
00254
00255 #ifndef GUARDSECONDSLOPEDIFFS
00256 #define GUARDSECONDSLOPEDIFFS
00257
00258
00259 void FORTRAN_NAME( SECONDSLOPEDIFFS ,secondslopediffs )(
00260 CHFp_FRA(deltawc)
00261 ,CHFp_FRA(deltawl)
00262 ,CHFp_FRA(deltawr)
00263 ,CHFp_CONST_FRA(w)
00264 ,CHFp_CONST_INT(numslopes)
00265 ,CHFp_CONST_INT(idir)
00266 ,CHFp_BOX(lobox)
00267 ,CHFp_CONST_INT(haslo)
00268 ,CHFp_BOX(hibox)
00269 ,CHFp_CONST_INT(hashi)
00270 ,CHFp_BOX(centerbox) );
00271
00272 #define FORT_SECONDSLOPEDIFFS FORTRAN_NAME( inlineSECONDSLOPEDIFFS, inlineSECONDSLOPEDIFFS)
00273 #define FORTNT_SECONDSLOPEDIFFS FORTRAN_NAME( SECONDSLOPEDIFFS, secondslopediffs)
00274
00275 inline void FORTRAN_NAME(inlineSECONDSLOPEDIFFS, inlineSECONDSLOPEDIFFS)(
00276 CHFp_FRA(deltawc)
00277 ,CHFp_FRA(deltawl)
00278 ,CHFp_FRA(deltawr)
00279 ,CHFp_CONST_FRA(w)
00280 ,CHFp_CONST_INT(numslopes)
00281 ,CHFp_CONST_INT(idir)
00282 ,CHFp_BOX(lobox)
00283 ,CHFp_CONST_INT(haslo)
00284 ,CHFp_BOX(hibox)
00285 ,CHFp_CONST_INT(hashi)
00286 ,CHFp_BOX(centerbox) )
00287 {
00288 CH_TIMELEAF("FORT_SECONDSLOPEDIFFS");
00289 FORTRAN_NAME( SECONDSLOPEDIFFS ,secondslopediffs )(
00290 CHFt_FRA(deltawc)
00291 ,CHFt_FRA(deltawl)
00292 ,CHFt_FRA(deltawr)
00293 ,CHFt_CONST_FRA(w)
00294 ,CHFt_CONST_INT(numslopes)
00295 ,CHFt_CONST_INT(idir)
00296 ,CHFt_BOX(lobox)
00297 ,CHFt_CONST_INT(haslo)
00298 ,CHFt_BOX(hibox)
00299 ,CHFt_CONST_INT(hashi)
00300 ,CHFt_BOX(centerbox) );
00301 }
00302 #endif // GUARDSECONDSLOPEDIFFS
00303
00304 #ifndef GUARDFORTHSLOPEDIFFS
00305 #define GUARDFORTHSLOPEDIFFS
00306
00307
00308 void FORTRAN_NAME( FORTHSLOPEDIFFS ,forthslopediffs )(
00309 CHFp_FRA(delta4wc)
00310 ,CHFp_CONST_FRA(w)
00311 ,CHFp_CONST_FRA(delta2w)
00312 ,CHFp_CONST_INT(numslopes)
00313 ,CHFp_CONST_INT(idir)
00314 ,CHFp_BOX(lobox)
00315 ,CHFp_CONST_INT(haslo)
00316 ,CHFp_BOX(hibox)
00317 ,CHFp_CONST_INT(hashi)
00318 ,CHFp_BOX(centerbox) );
00319
00320 #define FORT_FORTHSLOPEDIFFS FORTRAN_NAME( inlineFORTHSLOPEDIFFS, inlineFORTHSLOPEDIFFS)
00321 #define FORTNT_FORTHSLOPEDIFFS FORTRAN_NAME( FORTHSLOPEDIFFS, forthslopediffs)
00322
00323 inline void FORTRAN_NAME(inlineFORTHSLOPEDIFFS, inlineFORTHSLOPEDIFFS)(
00324 CHFp_FRA(delta4wc)
00325 ,CHFp_CONST_FRA(w)
00326 ,CHFp_CONST_FRA(delta2w)
00327 ,CHFp_CONST_INT(numslopes)
00328 ,CHFp_CONST_INT(idir)
00329 ,CHFp_BOX(lobox)
00330 ,CHFp_CONST_INT(haslo)
00331 ,CHFp_BOX(hibox)
00332 ,CHFp_CONST_INT(hashi)
00333 ,CHFp_BOX(centerbox) )
00334 {
00335 CH_TIMELEAF("FORT_FORTHSLOPEDIFFS");
00336 FORTRAN_NAME( FORTHSLOPEDIFFS ,forthslopediffs )(
00337 CHFt_FRA(delta4wc)
00338 ,CHFt_CONST_FRA(w)
00339 ,CHFt_CONST_FRA(delta2w)
00340 ,CHFt_CONST_INT(numslopes)
00341 ,CHFt_CONST_INT(idir)
00342 ,CHFt_BOX(lobox)
00343 ,CHFt_CONST_INT(haslo)
00344 ,CHFt_BOX(hibox)
00345 ,CHFt_CONST_INT(hashi)
00346 ,CHFt_BOX(centerbox) );
00347 }
00348 #endif // GUARDFORTHSLOPEDIFFS
00349
00350 #ifndef GUARDAPPLYFLAT
00351 #define GUARDAPPLYFLAT
00352
00353
00354 void FORTRAN_NAME( APPLYFLAT ,applyflat )(
00355 CHFp_FRA(dw)
00356 ,CHFp_CONST_FRA1(flattening)
00357 ,CHFp_CONST_INT(numslopes)
00358 ,CHFp_BOX(box) );
00359
00360 #define FORT_APPLYFLAT FORTRAN_NAME( inlineAPPLYFLAT, inlineAPPLYFLAT)
00361 #define FORTNT_APPLYFLAT FORTRAN_NAME( APPLYFLAT, applyflat)
00362
00363 inline void FORTRAN_NAME(inlineAPPLYFLAT, inlineAPPLYFLAT)(
00364 CHFp_FRA(dw)
00365 ,CHFp_CONST_FRA1(flattening)
00366 ,CHFp_CONST_INT(numslopes)
00367 ,CHFp_BOX(box) )
00368 {
00369 CH_TIMELEAF("FORT_APPLYFLAT");
00370 FORTRAN_NAME( APPLYFLAT ,applyflat )(
00371 CHFt_FRA(dw)
00372 ,CHFt_CONST_FRA1(flattening)
00373 ,CHFt_CONST_INT(numslopes)
00374 ,CHFt_BOX(box) );
00375 }
00376 #endif // GUARDAPPLYFLAT
00377
00378 #ifndef GUARDINCSOURCE
00379 #define GUARDINCSOURCE
00380
00381
00382 void FORTRAN_NAME( INCSOURCE ,incsource )(
00383 CHFp_FRA(prim)
00384 ,CHFp_CONST_FRA(source)
00385 ,CHFp_CONST_REAL(scale)
00386 ,CHFp_BOX(dcalc) );
00387
00388 #define FORT_INCSOURCE FORTRAN_NAME( inlineINCSOURCE, inlineINCSOURCE)
00389 #define FORTNT_INCSOURCE FORTRAN_NAME( INCSOURCE, incsource)
00390
00391 inline void FORTRAN_NAME(inlineINCSOURCE, inlineINCSOURCE)(
00392 CHFp_FRA(prim)
00393 ,CHFp_CONST_FRA(source)
00394 ,CHFp_CONST_REAL(scale)
00395 ,CHFp_BOX(dcalc) )
00396 {
00397 CH_TIMELEAF("FORT_INCSOURCE");
00398 FORTRAN_NAME( INCSOURCE ,incsource )(
00399 CHFt_FRA(prim)
00400 ,CHFt_CONST_FRA(source)
00401 ,CHFt_CONST_REAL(scale)
00402 ,CHFt_BOX(dcalc) );
00403 }
00404 #endif // GUARDINCSOURCE
00405
00406 #ifndef GUARDVLLIMITER
00407 #define GUARDVLLIMITER
00408
00409
00410 void FORTRAN_NAME( VLLIMITER ,vllimiter )(
00411 CHFp_FRA(slopeprim)
00412 ,CHFp_CONST_FRA(slopeleft)
00413 ,CHFp_CONST_FRA(sloperigh)
00414 ,CHFp_BOX(dcalc) );
00415
00416 #define FORT_VLLIMITER FORTRAN_NAME( inlineVLLIMITER, inlineVLLIMITER)
00417 #define FORTNT_VLLIMITER FORTRAN_NAME( VLLIMITER, vllimiter)
00418
00419 inline void FORTRAN_NAME(inlineVLLIMITER, inlineVLLIMITER)(
00420 CHFp_FRA(slopeprim)
00421 ,CHFp_CONST_FRA(slopeleft)
00422 ,CHFp_CONST_FRA(sloperigh)
00423 ,CHFp_BOX(dcalc) )
00424 {
00425 CH_TIMELEAF("FORT_VLLIMITER");
00426 FORTRAN_NAME( VLLIMITER ,vllimiter )(
00427 CHFt_FRA(slopeprim)
00428 ,CHFt_CONST_FRA(slopeleft)
00429 ,CHFt_CONST_FRA(sloperigh)
00430 ,CHFt_BOX(dcalc) );
00431 }
00432 #endif // GUARDVLLIMITER
00433
00434 #ifndef GUARDPOINTVLLIMITER
00435 #define GUARDPOINTVLLIMITER
00436
00437
00438 void FORTRAN_NAME( POINTVLLIMITER ,pointvllimiter )(
00439 CHFp_REAL(dqlim)
00440 ,CHFp_CONST_REAL(dql)
00441 ,CHFp_CONST_REAL(dqr) );
00442
00443 #define FORT_POINTVLLIMITER FORTRAN_NAME( inlinePOINTVLLIMITER, inlinePOINTVLLIMITER)
00444 #define FORTNT_POINTVLLIMITER FORTRAN_NAME( POINTVLLIMITER, pointvllimiter)
00445
00446 inline void FORTRAN_NAME(inlinePOINTVLLIMITER, inlinePOINTVLLIMITER)(
00447 CHFp_REAL(dqlim)
00448 ,CHFp_CONST_REAL(dql)
00449 ,CHFp_CONST_REAL(dqr) )
00450 {
00451 CH_TIMELEAF("FORT_POINTVLLIMITER");
00452 FORTRAN_NAME( POINTVLLIMITER ,pointvllimiter )(
00453 CHFt_REAL(dqlim)
00454 ,CHFt_CONST_REAL(dql)
00455 ,CHFt_CONST_REAL(dqr) );
00456 }
00457 #endif // GUARDPOINTVLLIMITER
00458
00459 #ifndef GUARDDIVUEDGE
00460 #define GUARDDIVUEDGE
00461
00462
00463 void FORTRAN_NAME( DIVUEDGE ,divuedge )(
00464 CHFp_FRA1(divu)
00465 ,CHFp_CONST_INT(facedir)
00466 ,CHFp_BOX(lobox)
00467 ,CHFp_CONST_INT(haslo)
00468 ,CHFp_BOX(hibox)
00469 ,CHFp_CONST_INT(hashi) );
00470
00471 #define FORT_DIVUEDGE FORTRAN_NAME( inlineDIVUEDGE, inlineDIVUEDGE)
00472 #define FORTNT_DIVUEDGE FORTRAN_NAME( DIVUEDGE, divuedge)
00473
00474 inline void FORTRAN_NAME(inlineDIVUEDGE, inlineDIVUEDGE)(
00475 CHFp_FRA1(divu)
00476 ,CHFp_CONST_INT(facedir)
00477 ,CHFp_BOX(lobox)
00478 ,CHFp_CONST_INT(haslo)
00479 ,CHFp_BOX(hibox)
00480 ,CHFp_CONST_INT(hashi) )
00481 {
00482 CH_TIMELEAF("FORT_DIVUEDGE");
00483 FORTRAN_NAME( DIVUEDGE ,divuedge )(
00484 CHFt_FRA1(divu)
00485 ,CHFt_CONST_INT(facedir)
00486 ,CHFt_BOX(lobox)
00487 ,CHFt_CONST_INT(haslo)
00488 ,CHFt_BOX(hibox)
00489 ,CHFt_CONST_INT(hashi) );
00490 }
00491 #endif // GUARDDIVUEDGE
00492
00493 #ifndef GUARDAVEFLUXTOFACE
00494 #define GUARDAVEFLUXTOFACE
00495
00496
00497 void FORTRAN_NAME( AVEFLUXTOFACE ,avefluxtoface )(
00498 CHFp_FRA1(faceflux)
00499 ,CHFp_CONST_FRA1(ccflux)
00500 ,CHFp_CONST_INT(facedir)
00501 ,CHFp_BOX(facebox) );
00502
00503 #define FORT_AVEFLUXTOFACE FORTRAN_NAME( inlineAVEFLUXTOFACE, inlineAVEFLUXTOFACE)
00504 #define FORTNT_AVEFLUXTOFACE FORTRAN_NAME( AVEFLUXTOFACE, avefluxtoface)
00505
00506 inline void FORTRAN_NAME(inlineAVEFLUXTOFACE, inlineAVEFLUXTOFACE)(
00507 CHFp_FRA1(faceflux)
00508 ,CHFp_CONST_FRA1(ccflux)
00509 ,CHFp_CONST_INT(facedir)
00510 ,CHFp_BOX(facebox) )
00511 {
00512 CH_TIMELEAF("FORT_AVEFLUXTOFACE");
00513 FORTRAN_NAME( AVEFLUXTOFACE ,avefluxtoface )(
00514 CHFt_FRA1(faceflux)
00515 ,CHFt_CONST_FRA1(ccflux)
00516 ,CHFt_CONST_INT(facedir)
00517 ,CHFt_BOX(facebox) );
00518 }
00519 #endif // GUARDAVEFLUXTOFACE
00520
00521 #ifndef GUARDDIVUONED
00522 #define GUARDDIVUONED
00523
00524
00525 void FORTRAN_NAME( DIVUONED ,divuoned )(
00526 CHFp_FRA1(divu)
00527 ,CHFp_CONST_FRA1(velnorm)
00528 ,CHFp_CONST_INT(facedir)
00529 ,CHFp_BOX(centerbox) );
00530
00531 #define FORT_DIVUONED FORTRAN_NAME( inlineDIVUONED, inlineDIVUONED)
00532 #define FORTNT_DIVUONED FORTRAN_NAME( DIVUONED, divuoned)
00533
00534 inline void FORTRAN_NAME(inlineDIVUONED, inlineDIVUONED)(
00535 CHFp_FRA1(divu)
00536 ,CHFp_CONST_FRA1(velnorm)
00537 ,CHFp_CONST_INT(facedir)
00538 ,CHFp_BOX(centerbox) )
00539 {
00540 CH_TIMELEAF("FORT_DIVUONED");
00541 FORTRAN_NAME( DIVUONED ,divuoned )(
00542 CHFt_FRA1(divu)
00543 ,CHFt_CONST_FRA1(velnorm)
00544 ,CHFt_CONST_INT(facedir)
00545 ,CHFt_BOX(centerbox) );
00546 }
00547 #endif // GUARDDIVUONED
00548
00549 #ifndef GUARDDIVUTRAN
00550 #define GUARDDIVUTRAN
00551
00552
00553 void FORTRAN_NAME( DIVUTRAN ,divutran )(
00554 CHFp_FRA1(divu)
00555 ,CHFp_CONST_FRA1(slopevel)
00556 ,CHFp_CONST_INT(facedir)
00557 ,CHFp_BOX(centerbox) );
00558
00559 #define FORT_DIVUTRAN FORTRAN_NAME( inlineDIVUTRAN, inlineDIVUTRAN)
00560 #define FORTNT_DIVUTRAN FORTRAN_NAME( DIVUTRAN, divutran)
00561
00562 inline void FORTRAN_NAME(inlineDIVUTRAN, inlineDIVUTRAN)(
00563 CHFp_FRA1(divu)
00564 ,CHFp_CONST_FRA1(slopevel)
00565 ,CHFp_CONST_INT(facedir)
00566 ,CHFp_BOX(centerbox) )
00567 {
00568 CH_TIMELEAF("FORT_DIVUTRAN");
00569 FORTRAN_NAME( DIVUTRAN ,divutran )(
00570 CHFt_FRA1(divu)
00571 ,CHFt_CONST_FRA1(slopevel)
00572 ,CHFt_CONST_INT(facedir)
00573 ,CHFt_BOX(centerbox) );
00574 }
00575 #endif // GUARDDIVUTRAN
00576
00577 #ifndef GUARDARTVISC
00578 #define GUARDARTVISC
00579
00580
00581 void FORTRAN_NAME( ARTVISC ,artvisc )(
00582 CHFp_FRA(f)
00583 ,CHFp_CONST_FRA(u)
00584 ,CHFp_CONST_FRA1(divu)
00585 ,CHFp_CONST_REAL(coeff)
00586 ,CHFp_CONST_INT(idir)
00587 ,CHFp_BOX(box)
00588 ,CHFp_CONST_INT(numcons)
00589 ,CHFp_CONST_REAL(dx) );
00590
00591 #define FORT_ARTVISC FORTRAN_NAME( inlineARTVISC, inlineARTVISC)
00592 #define FORTNT_ARTVISC FORTRAN_NAME( ARTVISC, artvisc)
00593
00594 inline void FORTRAN_NAME(inlineARTVISC, inlineARTVISC)(
00595 CHFp_FRA(f)
00596 ,CHFp_CONST_FRA(u)
00597 ,CHFp_CONST_FRA1(divu)
00598 ,CHFp_CONST_REAL(coeff)
00599 ,CHFp_CONST_INT(idir)
00600 ,CHFp_BOX(box)
00601 ,CHFp_CONST_INT(numcons)
00602 ,CHFp_CONST_REAL(dx) )
00603 {
00604 CH_TIMELEAF("FORT_ARTVISC");
00605 FORTRAN_NAME( ARTVISC ,artvisc )(
00606 CHFt_FRA(f)
00607 ,CHFt_CONST_FRA(u)
00608 ,CHFt_CONST_FRA1(divu)
00609 ,CHFt_CONST_REAL(coeff)
00610 ,CHFt_CONST_INT(idir)
00611 ,CHFt_BOX(box)
00612 ,CHFt_CONST_INT(numcons)
00613 ,CHFt_CONST_REAL(dx) );
00614 }
00615 #endif // GUARDARTVISC
00616
00617 #ifndef GUARDUPDATE
00618 #define GUARDUPDATE
00619
00620
00621 void FORTRAN_NAME( UPDATE ,update )(
00622 CHFp_BOX(dcalc)
00623 ,CHFp_FRA(state)
00624 ,CHFp_CONST_FRA(flux)
00625 ,CHFp_CONST_INT(facedir)
00626 ,CHFp_CONST_INT(nconserved)
00627 ,CHFp_CONST_REAL(dtbydx) );
00628
00629 #define FORT_UPDATE FORTRAN_NAME( inlineUPDATE, inlineUPDATE)
00630 #define FORTNT_UPDATE FORTRAN_NAME( UPDATE, update)
00631
00632 inline void FORTRAN_NAME(inlineUPDATE, inlineUPDATE)(
00633 CHFp_BOX(dcalc)
00634 ,CHFp_FRA(state)
00635 ,CHFp_CONST_FRA(flux)
00636 ,CHFp_CONST_INT(facedir)
00637 ,CHFp_CONST_INT(nconserved)
00638 ,CHFp_CONST_REAL(dtbydx) )
00639 {
00640 CH_TIMELEAF("FORT_UPDATE");
00641 FORTRAN_NAME( UPDATE ,update )(
00642 CHFt_BOX(dcalc)
00643 ,CHFt_FRA(state)
00644 ,CHFt_CONST_FRA(flux)
00645 ,CHFt_CONST_INT(facedir)
00646 ,CHFt_CONST_INT(nconserved)
00647 ,CHFt_CONST_REAL(dtbydx) );
00648 }
00649 #endif // GUARDUPDATE
00650
00651 #ifndef GUARDDIVERGEF
00652 #define GUARDDIVERGEF
00653
00654
00655 void FORTRAN_NAME( DIVERGEF ,divergef )(
00656 CHFp_BOX(dcalc)
00657 ,CHFp_FRA(divf)
00658 ,CHFp_CONST_FRA(flux)
00659 ,CHFp_CONST_INT(facedir)
00660 ,CHFp_CONST_INT(nconserved)
00661 ,CHFp_CONST_REAL(dx) );
00662
00663 #define FORT_DIVERGEF FORTRAN_NAME( inlineDIVERGEF, inlineDIVERGEF)
00664 #define FORTNT_DIVERGEF FORTRAN_NAME( DIVERGEF, divergef)
00665
00666 inline void FORTRAN_NAME(inlineDIVERGEF, inlineDIVERGEF)(
00667 CHFp_BOX(dcalc)
00668 ,CHFp_FRA(divf)
00669 ,CHFp_CONST_FRA(flux)
00670 ,CHFp_CONST_INT(facedir)
00671 ,CHFp_CONST_INT(nconserved)
00672 ,CHFp_CONST_REAL(dx) )
00673 {
00674 CH_TIMELEAF("FORT_DIVERGEF");
00675 FORTRAN_NAME( DIVERGEF ,divergef )(
00676 CHFt_BOX(dcalc)
00677 ,CHFt_FRA(divf)
00678 ,CHFt_CONST_FRA(flux)
00679 ,CHFt_CONST_INT(facedir)
00680 ,CHFt_CONST_INT(nconserved)
00681 ,CHFt_CONST_REAL(dx) );
00682 }
00683 #endif // GUARDDIVERGEF
00684
00685 #ifndef GUARDREGUPDATE
00686 #define GUARDREGUPDATE
00687
00688
00689 void FORTRAN_NAME( REGUPDATE ,regupdate )(
00690 CHFp_BOX(dcalc)
00691 ,CHFp_FRA(consstate)
00692 ,CHFp_CONST_FRA(divf)
00693 ,CHFp_CONST_INT(nconserved)
00694 ,CHFp_CONST_REAL(dt) );
00695
00696 #define FORT_REGUPDATE FORTRAN_NAME( inlineREGUPDATE, inlineREGUPDATE)
00697 #define FORTNT_REGUPDATE FORTRAN_NAME( REGUPDATE, regupdate)
00698
00699 inline void FORTRAN_NAME(inlineREGUPDATE, inlineREGUPDATE)(
00700 CHFp_BOX(dcalc)
00701 ,CHFp_FRA(consstate)
00702 ,CHFp_CONST_FRA(divf)
00703 ,CHFp_CONST_INT(nconserved)
00704 ,CHFp_CONST_REAL(dt) )
00705 {
00706 CH_TIMELEAF("FORT_REGUPDATE");
00707 FORTRAN_NAME( REGUPDATE ,regupdate )(
00708 CHFt_BOX(dcalc)
00709 ,CHFt_FRA(consstate)
00710 ,CHFt_CONST_FRA(divf)
00711 ,CHFt_CONST_INT(nconserved)
00712 ,CHFt_CONST_REAL(dt) );
00713 }
00714 #endif // GUARDREGUPDATE
00715
00716 }
00717
00718 #endif
