00001 #ifndef _EBAMRPOISSONOPF_F_H_
00002 #define _EBAMRPOISSONOPF_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 GUARDEBAMRPDOTPROD
00012 #define GUARDEBAMRPDOTPROD
00013
00014
00015 void FORTRAN_NAME( EBAMRPDOTPROD ,ebamrpdotprod )(
00016 CHFp_REAL(sum)
00017 ,CHFp_CONST_FRA1(aone)
00018 ,CHFp_CONST_FRA1(atwo)
00019 ,CHFp_BOX(box) );
00020
00021 #define FORT_EBAMRPDOTPROD FORTRAN_NAME( inlineEBAMRPDOTPROD, inlineEBAMRPDOTPROD)
00022 #define FORTNT_EBAMRPDOTPROD FORTRAN_NAME( EBAMRPDOTPROD, ebamrpdotprod)
00023
00024 inline void FORTRAN_NAME(inlineEBAMRPDOTPROD, inlineEBAMRPDOTPROD)(
00025 CHFp_REAL(sum)
00026 ,CHFp_CONST_FRA1(aone)
00027 ,CHFp_CONST_FRA1(atwo)
00028 ,CHFp_BOX(box) )
00029 {
00030 CH_TIMELEAF("FORT_EBAMRPDOTPROD");
00031 FORTRAN_NAME( EBAMRPDOTPROD ,ebamrpdotprod )(
00032 CHFt_REAL(sum)
00033 ,CHFt_CONST_FRA1(aone)
00034 ,CHFt_CONST_FRA1(atwo)
00035 ,CHFt_BOX(box) );
00036 }
00037 #endif // GUARDEBAMRPDOTPROD
00038
00039 #ifndef GUARDGETINVDIAGRHS
00040 #define GUARDGETINVDIAGRHS
00041
00042
00043 void FORTRAN_NAME( GETINVDIAGRHS ,getinvdiagrhs )(
00044 CHFp_FRA(lhs)
00045 ,CHFp_CONST_FRA(rhs)
00046 ,CHFp_REAL(scale)
00047 ,CHFp_CONST_INT(ncomp)
00048 ,CHFp_BOX(box) );
00049
00050 #define FORT_GETINVDIAGRHS FORTRAN_NAME( inlineGETINVDIAGRHS, inlineGETINVDIAGRHS)
00051 #define FORTNT_GETINVDIAGRHS FORTRAN_NAME( GETINVDIAGRHS, getinvdiagrhs)
00052
00053 inline void FORTRAN_NAME(inlineGETINVDIAGRHS, inlineGETINVDIAGRHS)(
00054 CHFp_FRA(lhs)
00055 ,CHFp_CONST_FRA(rhs)
00056 ,CHFp_REAL(scale)
00057 ,CHFp_CONST_INT(ncomp)
00058 ,CHFp_BOX(box) )
00059 {
00060 CH_TIMELEAF("FORT_GETINVDIAGRHS");
00061 FORTRAN_NAME( GETINVDIAGRHS ,getinvdiagrhs )(
00062 CHFt_FRA(lhs)
00063 ,CHFt_CONST_FRA(rhs)
00064 ,CHFt_REAL(scale)
00065 ,CHFt_CONST_INT(ncomp)
00066 ,CHFt_BOX(box) );
00067 }
00068 #endif // GUARDGETINVDIAGRHS
00069
00070 #ifndef GUARDMAXNORM
00071 #define GUARDMAXNORM
00072
00073
00074 void FORTRAN_NAME( MAXNORM ,maxnorm )(
00075 CHFp_REAL(max)
00076 ,CHFp_CONST_FRA1(vel)
00077 ,CHFp_BOX(box) );
00078
00079 #define FORT_MAXNORM FORTRAN_NAME( inlineMAXNORM, inlineMAXNORM)
00080 #define FORTNT_MAXNORM FORTRAN_NAME( MAXNORM, maxnorm)
00081
00082 inline void FORTRAN_NAME(inlineMAXNORM, inlineMAXNORM)(
00083 CHFp_REAL(max)
00084 ,CHFp_CONST_FRA1(vel)
00085 ,CHFp_BOX(box) )
00086 {
00087 CH_TIMELEAF("FORT_MAXNORM");
00088 FORTRAN_NAME( MAXNORM ,maxnorm )(
00089 CHFt_REAL(max)
00090 ,CHFt_CONST_FRA1(vel)
00091 ,CHFt_BOX(box) );
00092 }
00093 #endif // GUARDMAXNORM
00094
00095 #ifndef GUARDMAXNORMMASK
00096 #define GUARDMAXNORMMASK
00097
00098
00099 void FORTRAN_NAME( MAXNORMMASK ,maxnormmask )(
00100 CHFp_REAL(max)
00101 ,CHFp_CONST_FRA1(vel)
00102 ,CHFp_BOX(box)
00103 ,CHFp_CONST_FIA1(mask) );
00104
00105 #define FORT_MAXNORMMASK FORTRAN_NAME( inlineMAXNORMMASK, inlineMAXNORMMASK)
00106 #define FORTNT_MAXNORMMASK FORTRAN_NAME( MAXNORMMASK, maxnormmask)
00107
00108 inline void FORTRAN_NAME(inlineMAXNORMMASK, inlineMAXNORMMASK)(
00109 CHFp_REAL(max)
00110 ,CHFp_CONST_FRA1(vel)
00111 ,CHFp_BOX(box)
00112 ,CHFp_CONST_FIA1(mask) )
00113 {
00114 CH_TIMELEAF("FORT_MAXNORMMASK");
00115 FORTRAN_NAME( MAXNORMMASK ,maxnormmask )(
00116 CHFt_REAL(max)
00117 ,CHFt_CONST_FRA1(vel)
00118 ,CHFt_BOX(box)
00119 ,CHFt_CONST_FIA1(mask) );
00120 }
00121 #endif // GUARDMAXNORMMASK
00122
00123 #ifndef GUARDMAXNORMHYBRID
00124 #define GUARDMAXNORMHYBRID
00125
00126
00127 void FORTRAN_NAME( MAXNORMHYBRID ,maxnormhybrid )(
00128 CHFp_REAL(max)
00129 ,CHFp_CONST_FRA1(vel)
00130 ,CHFp_CONST_FRA1(tau)
00131 ,CHFp_CONST_REAL(asquared)
00132 ,CHFp_CONST_REAL(density)
00133 ,CHFp_BOX(box) );
00134
00135 #define FORT_MAXNORMHYBRID FORTRAN_NAME( inlineMAXNORMHYBRID, inlineMAXNORMHYBRID)
00136 #define FORTNT_MAXNORMHYBRID FORTRAN_NAME( MAXNORMHYBRID, maxnormhybrid)
00137
00138 inline void FORTRAN_NAME(inlineMAXNORMHYBRID, inlineMAXNORMHYBRID)(
00139 CHFp_REAL(max)
00140 ,CHFp_CONST_FRA1(vel)
00141 ,CHFp_CONST_FRA1(tau)
00142 ,CHFp_CONST_REAL(asquared)
00143 ,CHFp_CONST_REAL(density)
00144 ,CHFp_BOX(box) )
00145 {
00146 CH_TIMELEAF("FORT_MAXNORMHYBRID");
00147 FORTRAN_NAME( MAXNORMHYBRID ,maxnormhybrid )(
00148 CHFt_REAL(max)
00149 ,CHFt_CONST_FRA1(vel)
00150 ,CHFt_CONST_FRA1(tau)
00151 ,CHFt_CONST_REAL(asquared)
00152 ,CHFt_CONST_REAL(density)
00153 ,CHFt_BOX(box) );
00154 }
00155 #endif // GUARDMAXNORMHYBRID
00156
00157 #ifndef GUARDMAXNORMMASKHYBRID
00158 #define GUARDMAXNORMMASKHYBRID
00159
00160
00161 void FORTRAN_NAME( MAXNORMMASKHYBRID ,maxnormmaskhybrid )(
00162 CHFp_REAL(max)
00163 ,CHFp_CONST_FRA1(vel)
00164 ,CHFp_CONST_FRA1(tau)
00165 ,CHFp_CONST_REAL(asquared)
00166 ,CHFp_CONST_REAL(density)
00167 ,CHFp_BOX(box)
00168 ,CHFp_CONST_FIA1(mask) );
00169
00170 #define FORT_MAXNORMMASKHYBRID FORTRAN_NAME( inlineMAXNORMMASKHYBRID, inlineMAXNORMMASKHYBRID)
00171 #define FORTNT_MAXNORMMASKHYBRID FORTRAN_NAME( MAXNORMMASKHYBRID, maxnormmaskhybrid)
00172
00173 inline void FORTRAN_NAME(inlineMAXNORMMASKHYBRID, inlineMAXNORMMASKHYBRID)(
00174 CHFp_REAL(max)
00175 ,CHFp_CONST_FRA1(vel)
00176 ,CHFp_CONST_FRA1(tau)
00177 ,CHFp_CONST_REAL(asquared)
00178 ,CHFp_CONST_REAL(density)
00179 ,CHFp_BOX(box)
00180 ,CHFp_CONST_FIA1(mask) )
00181 {
00182 CH_TIMELEAF("FORT_MAXNORMMASKHYBRID");
00183 FORTRAN_NAME( MAXNORMMASKHYBRID ,maxnormmaskhybrid )(
00184 CHFt_REAL(max)
00185 ,CHFt_CONST_FRA1(vel)
00186 ,CHFt_CONST_FRA1(tau)
00187 ,CHFt_CONST_REAL(asquared)
00188 ,CHFt_CONST_REAL(density)
00189 ,CHFt_BOX(box)
00190 ,CHFt_CONST_FIA1(mask) );
00191 }
00192 #endif // GUARDMAXNORMMASKHYBRID
00193
00194 #ifndef GUARDMINNORM
00195 #define GUARDMINNORM
00196
00197
00198 void FORTRAN_NAME( MINNORM ,minnorm )(
00199 CHFp_REAL(min)
00200 ,CHFp_CONST_FRA1(vel)
00201 ,CHFp_BOX(box) );
00202
00203 #define FORT_MINNORM FORTRAN_NAME( inlineMINNORM, inlineMINNORM)
00204 #define FORTNT_MINNORM FORTRAN_NAME( MINNORM, minnorm)
00205
00206 inline void FORTRAN_NAME(inlineMINNORM, inlineMINNORM)(
00207 CHFp_REAL(min)
00208 ,CHFp_CONST_FRA1(vel)
00209 ,CHFp_BOX(box) )
00210 {
00211 CH_TIMELEAF("FORT_MINNORM");
00212 FORTRAN_NAME( MINNORM ,minnorm )(
00213 CHFt_REAL(min)
00214 ,CHFt_CONST_FRA1(vel)
00215 ,CHFt_BOX(box) );
00216 }
00217 #endif // GUARDMINNORM
00218
00219 #ifndef GUARDMINNORMMASK
00220 #define GUARDMINNORMMASK
00221
00222
00223 void FORTRAN_NAME( MINNORMMASK ,minnormmask )(
00224 CHFp_REAL(min)
00225 ,CHFp_CONST_FRA1(vel)
00226 ,CHFp_BOX(box)
00227 ,CHFp_CONST_FIA1(mask) );
00228
00229 #define FORT_MINNORMMASK FORTRAN_NAME( inlineMINNORMMASK, inlineMINNORMMASK)
00230 #define FORTNT_MINNORMMASK FORTRAN_NAME( MINNORMMASK, minnormmask)
00231
00232 inline void FORTRAN_NAME(inlineMINNORMMASK, inlineMINNORMMASK)(
00233 CHFp_REAL(min)
00234 ,CHFp_CONST_FRA1(vel)
00235 ,CHFp_BOX(box)
00236 ,CHFp_CONST_FIA1(mask) )
00237 {
00238 CH_TIMELEAF("FORT_MINNORMMASK");
00239 FORTRAN_NAME( MINNORMMASK ,minnormmask )(
00240 CHFt_REAL(min)
00241 ,CHFt_CONST_FRA1(vel)
00242 ,CHFt_BOX(box)
00243 ,CHFt_CONST_FIA1(mask) );
00244 }
00245 #endif // GUARDMINNORMMASK
00246
00247 #ifndef GUARDAMRPZEROSUB
00248 #define GUARDAMRPZEROSUB
00249
00250
00251 void FORTRAN_NAME( AMRPZEROSUB ,amrpzerosub )(
00252 CHFp_FRA(phi)
00253 ,CHFp_BOX(overlaybox)
00254 ,CHFp_INT(ncomp) );
00255
00256 #define FORT_AMRPZEROSUB FORTRAN_NAME( inlineAMRPZEROSUB, inlineAMRPZEROSUB)
00257 #define FORTNT_AMRPZEROSUB FORTRAN_NAME( AMRPZEROSUB, amrpzerosub)
00258
00259 inline void FORTRAN_NAME(inlineAMRPZEROSUB, inlineAMRPZEROSUB)(
00260 CHFp_FRA(phi)
00261 ,CHFp_BOX(overlaybox)
00262 ,CHFp_INT(ncomp) )
00263 {
00264 CH_TIMELEAF("FORT_AMRPZEROSUB");
00265 FORTRAN_NAME( AMRPZEROSUB ,amrpzerosub )(
00266 CHFt_FRA(phi)
00267 ,CHFt_BOX(overlaybox)
00268 ,CHFt_INT(ncomp) );
00269 }
00270 #endif // GUARDAMRPZEROSUB
00271
00272 #ifndef GUARDDOALLREGULARMULTICOLOR
00273 #define GUARDDOALLREGULARMULTICOLOR
00274
00275
00276 void FORTRAN_NAME( DOALLREGULARMULTICOLOR ,doallregularmulticolor )(
00277 CHFp_FRA1(phi)
00278 ,CHFp_CONST_FRA1(rhs)
00279 ,CHFp_CONST_REAL(weight)
00280 ,CHFp_CONST_REAL(alpha)
00281 ,CHFp_CONST_REAL(beta)
00282 ,CHFp_CONST_REALVECT(dx)
00283 ,CHFp_BOX(coloredbox) );
00284
00285 #define FORT_DOALLREGULARMULTICOLOR FORTRAN_NAME( inlineDOALLREGULARMULTICOLOR, inlineDOALLREGULARMULTICOLOR)
00286 #define FORTNT_DOALLREGULARMULTICOLOR FORTRAN_NAME( DOALLREGULARMULTICOLOR, doallregularmulticolor)
00287
00288 inline void FORTRAN_NAME(inlineDOALLREGULARMULTICOLOR, inlineDOALLREGULARMULTICOLOR)(
00289 CHFp_FRA1(phi)
00290 ,CHFp_CONST_FRA1(rhs)
00291 ,CHFp_CONST_REAL(weight)
00292 ,CHFp_CONST_REAL(alpha)
00293 ,CHFp_CONST_REAL(beta)
00294 ,CHFp_CONST_REALVECT(dx)
00295 ,CHFp_BOX(coloredbox) )
00296 {
00297 CH_TIMELEAF("FORT_DOALLREGULARMULTICOLOR");
00298 FORTRAN_NAME( DOALLREGULARMULTICOLOR ,doallregularmulticolor )(
00299 CHFt_FRA1(phi)
00300 ,CHFt_CONST_FRA1(rhs)
00301 ,CHFt_CONST_REAL(weight)
00302 ,CHFt_CONST_REAL(alpha)
00303 ,CHFt_CONST_REAL(beta)
00304 ,CHFt_CONST_REALVECT(dx)
00305 ,CHFt_BOX(coloredbox) );
00306 }
00307 #endif // GUARDDOALLREGULARMULTICOLOR
00308
00309 #ifndef GUARDDOALLREGULARUPDATE
00310 #define GUARDDOALLREGULARUPDATE
00311
00312
00313 void FORTRAN_NAME( DOALLREGULARUPDATE ,doallregularupdate )(
00314 CHFp_FRA1(phinew)
00315 ,CHFp_CONST_FRA1(phi)
00316 ,CHFp_CONST_FRA1(rhs)
00317 ,CHFp_CONST_REAL(weight)
00318 ,CHFp_CONST_REAL(alpha)
00319 ,CHFp_CONST_REAL(beta)
00320 ,CHFp_CONST_REALVECT(dx)
00321 ,CHFp_BOX(coloredbox) );
00322
00323 #define FORT_DOALLREGULARUPDATE FORTRAN_NAME( inlineDOALLREGULARUPDATE, inlineDOALLREGULARUPDATE)
00324 #define FORTNT_DOALLREGULARUPDATE FORTRAN_NAME( DOALLREGULARUPDATE, doallregularupdate)
00325
00326 inline void FORTRAN_NAME(inlineDOALLREGULARUPDATE, inlineDOALLREGULARUPDATE)(
00327 CHFp_FRA1(phinew)
00328 ,CHFp_CONST_FRA1(phi)
00329 ,CHFp_CONST_FRA1(rhs)
00330 ,CHFp_CONST_REAL(weight)
00331 ,CHFp_CONST_REAL(alpha)
00332 ,CHFp_CONST_REAL(beta)
00333 ,CHFp_CONST_REALVECT(dx)
00334 ,CHFp_BOX(coloredbox) )
00335 {
00336 CH_TIMELEAF("FORT_DOALLREGULARUPDATE");
00337 FORTRAN_NAME( DOALLREGULARUPDATE ,doallregularupdate )(
00338 CHFt_FRA1(phinew)
00339 ,CHFt_CONST_FRA1(phi)
00340 ,CHFt_CONST_FRA1(rhs)
00341 ,CHFt_CONST_REAL(weight)
00342 ,CHFt_CONST_REAL(alpha)
00343 ,CHFt_CONST_REAL(beta)
00344 ,CHFt_CONST_REALVECT(dx)
00345 ,CHFt_BOX(coloredbox) );
00346 }
00347 #endif // GUARDDOALLREGULARUPDATE
00348
00349 #ifndef GUARDDOALLREGULARGSRB
00350 #define GUARDDOALLREGULARGSRB
00351
00352
00353 void FORTRAN_NAME( DOALLREGULARGSRB ,doallregulargsrb )(
00354 CHFp_FRA1(phi)
00355 ,CHFp_CONST_FRA1(rhs)
00356 ,CHFp_CONST_REAL(weight)
00357 ,CHFp_CONST_REAL(alpha)
00358 ,CHFp_CONST_REAL(beta)
00359 ,CHFp_CONST_REALVECT(dx)
00360 ,CHFp_BOX(region)
00361 ,CHFp_CONST_INT(redBlack) );
00362
00363 #define FORT_DOALLREGULARGSRB FORTRAN_NAME( inlineDOALLREGULARGSRB, inlineDOALLREGULARGSRB)
00364 #define FORTNT_DOALLREGULARGSRB FORTRAN_NAME( DOALLREGULARGSRB, doallregulargsrb)
00365
00366 inline void FORTRAN_NAME(inlineDOALLREGULARGSRB, inlineDOALLREGULARGSRB)(
00367 CHFp_FRA1(phi)
00368 ,CHFp_CONST_FRA1(rhs)
00369 ,CHFp_CONST_REAL(weight)
00370 ,CHFp_CONST_REAL(alpha)
00371 ,CHFp_CONST_REAL(beta)
00372 ,CHFp_CONST_REALVECT(dx)
00373 ,CHFp_BOX(region)
00374 ,CHFp_CONST_INT(redBlack) )
00375 {
00376 CH_TIMELEAF("FORT_DOALLREGULARGSRB");
00377 FORTRAN_NAME( DOALLREGULARGSRB ,doallregulargsrb )(
00378 CHFt_FRA1(phi)
00379 ,CHFt_CONST_FRA1(rhs)
00380 ,CHFt_CONST_REAL(weight)
00381 ,CHFt_CONST_REAL(alpha)
00382 ,CHFt_CONST_REAL(beta)
00383 ,CHFt_CONST_REALVECT(dx)
00384 ,CHFt_BOX(region)
00385 ,CHFt_CONST_INT(redBlack) );
00386 }
00387 #endif // GUARDDOALLREGULARGSRB
00388
00389 #ifndef GUARDSLOWGSRBEBAMRPO
00390 #define GUARDSLOWGSRBEBAMRPO
00391
00392
00393 void FORTRAN_NAME( SLOWGSRBEBAMRPO ,slowgsrbebamrpo )(
00394 CHFp_FRA1(phi)
00395 ,CHFp_CONST_FRA1(lph)
00396 ,CHFp_CONST_FRA1(rhs)
00397 ,CHFp_CONST_FRA1(lam)
00398 ,CHFp_BOX(coloredbox) );
00399
00400 #define FORT_SLOWGSRBEBAMRPO FORTRAN_NAME( inlineSLOWGSRBEBAMRPO, inlineSLOWGSRBEBAMRPO)
00401 #define FORTNT_SLOWGSRBEBAMRPO FORTRAN_NAME( SLOWGSRBEBAMRPO, slowgsrbebamrpo)
00402
00403 inline void FORTRAN_NAME(inlineSLOWGSRBEBAMRPO, inlineSLOWGSRBEBAMRPO)(
00404 CHFp_FRA1(phi)
00405 ,CHFp_CONST_FRA1(lph)
00406 ,CHFp_CONST_FRA1(rhs)
00407 ,CHFp_CONST_FRA1(lam)
00408 ,CHFp_BOX(coloredbox) )
00409 {
00410 CH_TIMELEAF("FORT_SLOWGSRBEBAMRPO");
00411 FORTRAN_NAME( SLOWGSRBEBAMRPO ,slowgsrbebamrpo )(
00412 CHFt_FRA1(phi)
00413 ,CHFt_CONST_FRA1(lph)
00414 ,CHFt_CONST_FRA1(rhs)
00415 ,CHFt_CONST_FRA1(lam)
00416 ,CHFt_BOX(coloredbox) );
00417 }
00418 #endif // GUARDSLOWGSRBEBAMRPO
00419
00420 #ifndef GUARDDOALLREGULARJACOBI
00421 #define GUARDDOALLREGULARJACOBI
00422
00423
00424 void FORTRAN_NAME( DOALLREGULARJACOBI ,doallregularjacobi )(
00425 CHFp_FRA1(phi)
00426 ,CHFp_CONST_FRA1(rhs)
00427 ,CHFp_CONST_REAL(weight)
00428 ,CHFp_CONST_REAL(alpha)
00429 ,CHFp_CONST_REAL(beta)
00430 ,CHFp_CONST_REALVECT(dx)
00431 ,CHFp_BOX(box) );
00432
00433 #define FORT_DOALLREGULARJACOBI FORTRAN_NAME( inlineDOALLREGULARJACOBI, inlineDOALLREGULARJACOBI)
00434 #define FORTNT_DOALLREGULARJACOBI FORTRAN_NAME( DOALLREGULARJACOBI, doallregularjacobi)
00435
00436 inline void FORTRAN_NAME(inlineDOALLREGULARJACOBI, inlineDOALLREGULARJACOBI)(
00437 CHFp_FRA1(phi)
00438 ,CHFp_CONST_FRA1(rhs)
00439 ,CHFp_CONST_REAL(weight)
00440 ,CHFp_CONST_REAL(alpha)
00441 ,CHFp_CONST_REAL(beta)
00442 ,CHFp_CONST_REALVECT(dx)
00443 ,CHFp_BOX(box) )
00444 {
00445 CH_TIMELEAF("FORT_DOALLREGULARJACOBI");
00446 FORTRAN_NAME( DOALLREGULARJACOBI ,doallregularjacobi )(
00447 CHFt_FRA1(phi)
00448 ,CHFt_CONST_FRA1(rhs)
00449 ,CHFt_CONST_REAL(weight)
00450 ,CHFt_CONST_REAL(alpha)
00451 ,CHFt_CONST_REAL(beta)
00452 ,CHFt_CONST_REALVECT(dx)
00453 ,CHFt_BOX(box) );
00454 }
00455 #endif // GUARDDOALLREGULARJACOBI
00456
00457 #ifndef GUARDUNDOREGULARGS
00458 #define GUARDUNDOREGULARGS
00459
00460
00461 void FORTRAN_NAME( UNDOREGULARGS ,undoregulargs )(
00462 CHFp_FRA1(phi)
00463 ,CHFp_CONST_FRA1(rhs)
00464 ,CHFp_CONST_REAL(weight)
00465 ,CHFp_CONST_REAL(alpha)
00466 ,CHFp_CONST_REAL(beta)
00467 ,CHFp_CONST_REALVECT(dx)
00468 ,CHFp_CONST_INTVECT(iv) );
00469
00470 #define FORT_UNDOREGULARGS FORTRAN_NAME( inlineUNDOREGULARGS, inlineUNDOREGULARGS)
00471 #define FORTNT_UNDOREGULARGS FORTRAN_NAME( UNDOREGULARGS, undoregulargs)
00472
00473 inline void FORTRAN_NAME(inlineUNDOREGULARGS, inlineUNDOREGULARGS)(
00474 CHFp_FRA1(phi)
00475 ,CHFp_CONST_FRA1(rhs)
00476 ,CHFp_CONST_REAL(weight)
00477 ,CHFp_CONST_REAL(alpha)
00478 ,CHFp_CONST_REAL(beta)
00479 ,CHFp_CONST_REALVECT(dx)
00480 ,CHFp_CONST_INTVECT(iv) )
00481 {
00482 CH_TIMELEAF("FORT_UNDOREGULARGS");
00483 FORTRAN_NAME( UNDOREGULARGS ,undoregulargs )(
00484 CHFt_FRA1(phi)
00485 ,CHFt_CONST_FRA1(rhs)
00486 ,CHFt_CONST_REAL(weight)
00487 ,CHFt_CONST_REAL(alpha)
00488 ,CHFt_CONST_REAL(beta)
00489 ,CHFt_CONST_REALVECT(dx)
00490 ,CHFt_CONST_INTVECT(iv) );
00491 }
00492 #endif // GUARDUNDOREGULARGS
00493
00494 #ifndef GUARDREGAPPLYDOMAINFLUX_INPLACE
00495 #define GUARDREGAPPLYDOMAINFLUX_INPLACE
00496
00497
00498 void FORTRAN_NAME( REGAPPLYDOMAINFLUX_INPLACE ,regapplydomainflux_inplace )(
00499 CHFp_FRA1(phi)
00500 ,CHFp_CONST_FRA1(faceflux)
00501 ,CHFp_CONST_REAL(dx)
00502 ,CHFp_CONST_INT(side)
00503 ,CHFp_CONST_INT(idir)
00504 ,CHFp_BOX(box) );
00505
00506 #define FORT_REGAPPLYDOMAINFLUX_INPLACE FORTRAN_NAME( inlineREGAPPLYDOMAINFLUX_INPLACE, inlineREGAPPLYDOMAINFLUX_INPLACE)
00507 #define FORTNT_REGAPPLYDOMAINFLUX_INPLACE FORTRAN_NAME( REGAPPLYDOMAINFLUX_INPLACE, regapplydomainflux_inplace)
00508
00509 inline void FORTRAN_NAME(inlineREGAPPLYDOMAINFLUX_INPLACE, inlineREGAPPLYDOMAINFLUX_INPLACE)(
00510 CHFp_FRA1(phi)
00511 ,CHFp_CONST_FRA1(faceflux)
00512 ,CHFp_CONST_REAL(dx)
00513 ,CHFp_CONST_INT(side)
00514 ,CHFp_CONST_INT(idir)
00515 ,CHFp_BOX(box) )
00516 {
00517 CH_TIMELEAF("FORT_REGAPPLYDOMAINFLUX_INPLACE");
00518 FORTRAN_NAME( REGAPPLYDOMAINFLUX_INPLACE ,regapplydomainflux_inplace )(
00519 CHFt_FRA1(phi)
00520 ,CHFt_CONST_FRA1(faceflux)
00521 ,CHFt_CONST_REAL(dx)
00522 ,CHFt_CONST_INT(side)
00523 ,CHFt_CONST_INT(idir)
00524 ,CHFt_BOX(box) );
00525 }
00526 #endif // GUARDREGAPPLYDOMAINFLUX_INPLACE
00527
00528 #ifndef GUARDREGGET1DLAPLACIAN_INPLACE
00529 #define GUARDREGGET1DLAPLACIAN_INPLACE
00530
00531
00532 void FORTRAN_NAME( REGGET1DLAPLACIAN_INPLACE ,regget1dlaplacian_inplace )(
00533 CHFp_FRA1(opphidir)
00534 ,CHFp_CONST_FRA1(phi)
00535 ,CHFp_CONST_REAL(beta)
00536 ,CHFp_CONST_REALVECT(dx)
00537 ,CHFp_BOX(box) );
00538
00539 #define FORT_REGGET1DLAPLACIAN_INPLACE FORTRAN_NAME( inlineREGGET1DLAPLACIAN_INPLACE, inlineREGGET1DLAPLACIAN_INPLACE)
00540 #define FORTNT_REGGET1DLAPLACIAN_INPLACE FORTRAN_NAME( REGGET1DLAPLACIAN_INPLACE, regget1dlaplacian_inplace)
00541
00542 inline void FORTRAN_NAME(inlineREGGET1DLAPLACIAN_INPLACE, inlineREGGET1DLAPLACIAN_INPLACE)(
00543 CHFp_FRA1(opphidir)
00544 ,CHFp_CONST_FRA1(phi)
00545 ,CHFp_CONST_REAL(beta)
00546 ,CHFp_CONST_REALVECT(dx)
00547 ,CHFp_BOX(box) )
00548 {
00549 CH_TIMELEAF("FORT_REGGET1DLAPLACIAN_INPLACE");
00550 FORTRAN_NAME( REGGET1DLAPLACIAN_INPLACE ,regget1dlaplacian_inplace )(
00551 CHFt_FRA1(opphidir)
00552 ,CHFt_CONST_FRA1(phi)
00553 ,CHFt_CONST_REAL(beta)
00554 ,CHFt_CONST_REALVECT(dx)
00555 ,CHFt_BOX(box) );
00556 }
00557 #endif // GUARDREGGET1DLAPLACIAN_INPLACE
00558
00559 #ifndef GUARDREGGET1DLAPLACIAN
00560 #define GUARDREGGET1DLAPLACIAN
00561
00562
00563 void FORTRAN_NAME( REGGET1DLAPLACIAN ,regget1dlaplacian )(
00564 CHFp_FRA1(opphidir)
00565 ,CHFp_CONST_FRA1(phi)
00566 ,CHFp_CONST_REAL(dx)
00567 ,CHFp_CONST_REAL(beta)
00568 ,CHFp_CONST_INT(idir)
00569 ,CHFp_BOX(lobox)
00570 ,CHFp_CONST_INT(haslo)
00571 ,CHFp_BOX(hibox)
00572 ,CHFp_CONST_INT(hashi)
00573 ,CHFp_BOX(centerbox) );
00574
00575 #define FORT_REGGET1DLAPLACIAN FORTRAN_NAME( inlineREGGET1DLAPLACIAN, inlineREGGET1DLAPLACIAN)
00576 #define FORTNT_REGGET1DLAPLACIAN FORTRAN_NAME( REGGET1DLAPLACIAN, regget1dlaplacian)
00577
00578 inline void FORTRAN_NAME(inlineREGGET1DLAPLACIAN, inlineREGGET1DLAPLACIAN)(
00579 CHFp_FRA1(opphidir)
00580 ,CHFp_CONST_FRA1(phi)
00581 ,CHFp_CONST_REAL(dx)
00582 ,CHFp_CONST_REAL(beta)
00583 ,CHFp_CONST_INT(idir)
00584 ,CHFp_BOX(lobox)
00585 ,CHFp_CONST_INT(haslo)
00586 ,CHFp_BOX(hibox)
00587 ,CHFp_CONST_INT(hashi)
00588 ,CHFp_BOX(centerbox) )
00589 {
00590 CH_TIMELEAF("FORT_REGGET1DLAPLACIAN");
00591 FORTRAN_NAME( REGGET1DLAPLACIAN ,regget1dlaplacian )(
00592 CHFt_FRA1(opphidir)
00593 ,CHFt_CONST_FRA1(phi)
00594 ,CHFt_CONST_REAL(dx)
00595 ,CHFt_CONST_REAL(beta)
00596 ,CHFt_CONST_INT(idir)
00597 ,CHFt_BOX(lobox)
00598 ,CHFt_CONST_INT(haslo)
00599 ,CHFt_BOX(hibox)
00600 ,CHFt_CONST_INT(hashi)
00601 ,CHFt_BOX(centerbox) );
00602 }
00603 #endif // GUARDREGGET1DLAPLACIAN
00604
00605 #ifndef GUARDREGAPPLYDOMAINFLUX
00606 #define GUARDREGAPPLYDOMAINFLUX
00607
00608
00609 void FORTRAN_NAME( REGAPPLYDOMAINFLUX ,regapplydomainflux )(
00610 CHFp_FRA1(opphidir)
00611 ,CHFp_CONST_FRA1(faceflux)
00612 ,CHFp_CONST_REAL(dx)
00613 ,CHFp_CONST_REAL(beta)
00614 ,CHFp_CONST_INT(idir)
00615 ,CHFp_CONST_INT(side)
00616 ,CHFp_BOX(lobox) );
00617
00618 #define FORT_REGAPPLYDOMAINFLUX FORTRAN_NAME( inlineREGAPPLYDOMAINFLUX, inlineREGAPPLYDOMAINFLUX)
00619 #define FORTNT_REGAPPLYDOMAINFLUX FORTRAN_NAME( REGAPPLYDOMAINFLUX, regapplydomainflux)
00620
00621 inline void FORTRAN_NAME(inlineREGAPPLYDOMAINFLUX, inlineREGAPPLYDOMAINFLUX)(
00622 CHFp_FRA1(opphidir)
00623 ,CHFp_CONST_FRA1(faceflux)
00624 ,CHFp_CONST_REAL(dx)
00625 ,CHFp_CONST_REAL(beta)
00626 ,CHFp_CONST_INT(idir)
00627 ,CHFp_CONST_INT(side)
00628 ,CHFp_BOX(lobox) )
00629 {
00630 CH_TIMELEAF("FORT_REGAPPLYDOMAINFLUX");
00631 FORTRAN_NAME( REGAPPLYDOMAINFLUX ,regapplydomainflux )(
00632 CHFt_FRA1(opphidir)
00633 ,CHFt_CONST_FRA1(faceflux)
00634 ,CHFt_CONST_REAL(dx)
00635 ,CHFt_CONST_REAL(beta)
00636 ,CHFt_CONST_INT(idir)
00637 ,CHFt_CONST_INT(side)
00638 ,CHFt_BOX(lobox) );
00639 }
00640 #endif // GUARDREGAPPLYDOMAINFLUX
00641
00642 #ifndef GUARDREGSUMLAPLACIAN
00643 #define GUARDREGSUMLAPLACIAN
00644
00645
00646 void FORTRAN_NAME( REGSUMLAPLACIAN ,regsumlaplacian )(
00647 CHFp_FRA1(opphi)
00648 ,CHFp_CONST_FRA1(opphidir)
00649 ,CHFp_BOX(opphibox) );
00650
00651 #define FORT_REGSUMLAPLACIAN FORTRAN_NAME( inlineREGSUMLAPLACIAN, inlineREGSUMLAPLACIAN)
00652 #define FORTNT_REGSUMLAPLACIAN FORTRAN_NAME( REGSUMLAPLACIAN, regsumlaplacian)
00653
00654 inline void FORTRAN_NAME(inlineREGSUMLAPLACIAN, inlineREGSUMLAPLACIAN)(
00655 CHFp_FRA1(opphi)
00656 ,CHFp_CONST_FRA1(opphidir)
00657 ,CHFp_BOX(opphibox) )
00658 {
00659 CH_TIMELEAF("FORT_REGSUMLAPLACIAN");
00660 FORTRAN_NAME( REGSUMLAPLACIAN ,regsumlaplacian )(
00661 CHFt_FRA1(opphi)
00662 ,CHFt_CONST_FRA1(opphidir)
00663 ,CHFt_BOX(opphibox) );
00664 }
00665 #endif // GUARDREGSUMLAPLACIAN
00666
00667 #ifndef GUARDREGMULTICOLORGS
00668 #define GUARDREGMULTICOLORGS
00669
00670
00671 void FORTRAN_NAME( REGMULTICOLORGS ,regmulticolorgs )(
00672 CHFp_FRA1(newphi)
00673 ,CHFp_CONST_REAL(weight)
00674 ,CHFp_CONST_FRA1(resid)
00675 ,CHFp_BOX(coloredbox) );
00676
00677 #define FORT_REGMULTICOLORGS FORTRAN_NAME( inlineREGMULTICOLORGS, inlineREGMULTICOLORGS)
00678 #define FORTNT_REGMULTICOLORGS FORTRAN_NAME( REGMULTICOLORGS, regmulticolorgs)
00679
00680 inline void FORTRAN_NAME(inlineREGMULTICOLORGS, inlineREGMULTICOLORGS)(
00681 CHFp_FRA1(newphi)
00682 ,CHFp_CONST_REAL(weight)
00683 ,CHFp_CONST_FRA1(resid)
00684 ,CHFp_BOX(coloredbox) )
00685 {
00686 CH_TIMELEAF("FORT_REGMULTICOLORGS");
00687 FORTRAN_NAME( REGMULTICOLORGS ,regmulticolorgs )(
00688 CHFt_FRA1(newphi)
00689 ,CHFt_CONST_REAL(weight)
00690 ,CHFt_CONST_FRA1(resid)
00691 ,CHFt_BOX(coloredbox) );
00692 }
00693 #endif // GUARDREGMULTICOLORGS
00694
00695 #ifndef GUARDREGGSRB
00696 #define GUARDREGGSRB
00697
00698
00699 void FORTRAN_NAME( REGGSRB ,reggsrb )(
00700 CHFp_FRA1(newphi)
00701 ,CHFp_CONST_FRA1(resid)
00702 ,CHFp_CONST_REAL(weight)
00703 ,CHFp_BOX(box)
00704 ,CHFp_CONST_INT(color) );
00705
00706 #define FORT_REGGSRB FORTRAN_NAME( inlineREGGSRB, inlineREGGSRB)
00707 #define FORTNT_REGGSRB FORTRAN_NAME( REGGSRB, reggsrb)
00708
00709 inline void FORTRAN_NAME(inlineREGGSRB, inlineREGGSRB)(
00710 CHFp_FRA1(newphi)
00711 ,CHFp_CONST_FRA1(resid)
00712 ,CHFp_CONST_REAL(weight)
00713 ,CHFp_BOX(box)
00714 ,CHFp_CONST_INT(color) )
00715 {
00716 CH_TIMELEAF("FORT_REGGSRB");
00717 FORTRAN_NAME( REGGSRB ,reggsrb )(
00718 CHFt_FRA1(newphi)
00719 ,CHFt_CONST_FRA1(resid)
00720 ,CHFt_CONST_REAL(weight)
00721 ,CHFt_BOX(box)
00722 ,CHFt_CONST_INT(color) );
00723 }
00724 #endif // GUARDREGGSRB
00725
00726 #ifndef GUARDREGGETFLUX
00727 #define GUARDREGGETFLUX
00728
00729
00730 void FORTRAN_NAME( REGGETFLUX ,reggetflux )(
00731 CHFp_FRA(flux)
00732 ,CHFp_CONST_FRA(phi)
00733 ,CHFp_BOX(opphibox)
00734 ,CHFp_CONST_REAL(beta)
00735 ,CHFp_CONST_REALVECT(dx)
00736 ,CHFp_CONST_INT(idir)
00737 ,CHFp_CONST_INT(ncomp) );
00738
00739 #define FORT_REGGETFLUX FORTRAN_NAME( inlineREGGETFLUX, inlineREGGETFLUX)
00740 #define FORTNT_REGGETFLUX FORTRAN_NAME( REGGETFLUX, reggetflux)
00741
00742 inline void FORTRAN_NAME(inlineREGGETFLUX, inlineREGGETFLUX)(
00743 CHFp_FRA(flux)
00744 ,CHFp_CONST_FRA(phi)
00745 ,CHFp_BOX(opphibox)
00746 ,CHFp_CONST_REAL(beta)
00747 ,CHFp_CONST_REALVECT(dx)
00748 ,CHFp_CONST_INT(idir)
00749 ,CHFp_CONST_INT(ncomp) )
00750 {
00751 CH_TIMELEAF("FORT_REGGETFLUX");
00752 FORTRAN_NAME( REGGETFLUX ,reggetflux )(
00753 CHFt_FRA(flux)
00754 ,CHFt_CONST_FRA(phi)
00755 ,CHFt_BOX(opphibox)
00756 ,CHFt_CONST_REAL(beta)
00757 ,CHFt_CONST_REALVECT(dx)
00758 ,CHFt_CONST_INT(idir)
00759 ,CHFt_CONST_INT(ncomp) );
00760 }
00761 #endif // GUARDREGGETFLUX
00762
00763 }
00764
00765 #endif
