diff options
| author | Erik Schnetter <schnetter@gmail.com> | 2012-11-16 18:55:47 -0500 |
|---|---|---|
| committer | Erik Schnetter <schnetter@gmail.com> | 2012-11-22 09:59:16 -0500 |
| commit | 53a1c146bc09c67ea709c14dab4c73ebebed86dc (patch) | |
| tree | b5bd034cf3c0e6de4cb422ceffe52e01de06f505 /Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90 | |
| parent | df843816d07d18e2c0407915d1b8113bfe7ab720 (diff) | |
Allow padding in transport operators
Rewrite padding infrastructure.
Add padded array extents to transport operator APIs.
Diffstat (limited to 'Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90')
| -rw-r--r-- | Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90 | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90 b/Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90 index fbff861c4..94a9e60f1 100644 --- a/Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90 +++ b/Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90 @@ -75,19 +75,22 @@ function eno1d(q) end function eno1d -subroutine prolongate_3d_real8_eno (src, srciext, srcjext, & - srckext, dst, dstiext, dstjext, dstkext, srcbbox, & - dstbbox, regbbox) +subroutine prolongate_3d_real8_eno ( & + src, srcipadext, srcjpadext, srckpadext, srciext, srcjext, srckext, & + dst, dstipadext, dstjpadext, dstkpadext, dstiext, dstjext, dstkext, & + srcbbox, dstbbox, regbbox) implicit none CCTK_REAL8 one parameter (one = 1) + integer srcipadext, srcjpadext, srckpadext integer srciext, srcjext, srckext - CCTK_REAL8 src(srciext,srcjext,srckext) + CCTK_REAL8 src(srcipadext,srcjpadext,srckpadext) + integer dstipadext, dstjpadext, dstkpadext integer dstiext, dstjext, dstkext - CCTK_REAL8 dst(dstiext,dstjext,dstkext) + CCTK_REAL8 dst(dstipadext,dstjpadext,dstkpadext) !!$ bbox(:,1) is lower boundary (inclusive) !!$ bbox(:,2) is upper boundary (inclusive) !!$ bbox(:,3) is stride |