diff options
Diffstat (limited to 'Carpet/CarpetLib/src/copy_3d_real8.F77')
-rw-r--r-- | Carpet/CarpetLib/src/copy_3d_real8.F77 | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Carpet/CarpetLib/src/copy_3d_real8.F77 b/Carpet/CarpetLib/src/copy_3d_real8.F77 index a017dabc6..535c1aab9 100644 --- a/Carpet/CarpetLib/src/copy_3d_real8.F77 +++ b/Carpet/CarpetLib/src/copy_3d_real8.F77 @@ -121,9 +121,11 @@ c Loop over region do i = 1, regiext if (check_array_accesses.ne.0) then - call checkindex (srcioff+i, srcjoff+j+1, srckoff+k+1, 1,1,1, + call checkindex (srcioff+i, srcjoff+j, srckoff+k, 1,1,1, + $ srciext, srcjext, srckext, $ "source") - call checkindex (dstioff+i, dstjoff+j+1, dstkoff+k+1, 1,1,1, + call checkindex (dstioff+i, dstjoff+j, dstkoff+k, 1,1,1, + $ dstiext, dstjext, dstkext, $ "destination") end if |