diff options
Diffstat (limited to 'Carpet/CarpetLib/src/prolongate_3d_cc_real8_tvd.F90')
| -rw-r--r-- | Carpet/CarpetLib/src/prolongate_3d_cc_real8_tvd.F90 | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/Carpet/CarpetLib/src/prolongate_3d_cc_real8_tvd.F90 b/Carpet/CarpetLib/src/prolongate_3d_cc_real8_tvd.F90 index b39f43766..c970e41e6 100644 --- a/Carpet/CarpetLib/src/prolongate_3d_cc_real8_tvd.F90 +++ b/Carpet/CarpetLib/src/prolongate_3d_cc_real8_tvd.F90 @@ -52,18 +52,21 @@ -subroutine prolongate_3d_cc_real8_tvd (src, srciext, srcjext, & - srckext, dst, dstiext, dstjext, dstkext, srcbbox, & - dstbbox, regbbox) +subroutine prolongate_3d_cc_real8_tvd ( & + src, srcipadext, srcjpadext, srckpadext, srciext, srcjext, srckext, & + dst, dstipadext, dstjpadext, dstkpadext, dstiext, dstjext, dstkext, & + srcbbox, dstbbox, regbbox) implicit none CCTK_REAL8, parameter :: one=1, fourth=one/4 + 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 |