diff options
author | Erik Schnetter <schnetter@cct.lsu.edu> | 2006-09-25 21:39:00 +0000 |
---|---|---|
committer | Erik Schnetter <schnetter@cct.lsu.edu> | 2006-09-25 21:39:00 +0000 |
commit | 239c86a33eaa5c8f37553c070060d68db030ac34 (patch) | |
tree | 89b2c013d3943a273f37294fca2400a438b119f8 /Carpet/CarpetLib/src/copy_3d_real8.F77 | |
parent | b55f4f6c2aa4c0d2774a6c83186ac696552e4d97 (diff) |
CarpetLib: Correct errors in array index checking code
Correct errors in array index checking code for the copy operators.
darcs-hash:20060925213952-dae7b-632a2159ea9f676e88ec4e27d16d2c5134b09f4f.gz
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 |