From 239c86a33eaa5c8f37553c070060d68db030ac34 Mon Sep 17 00:00:00 2001 From: Erik Schnetter Date: Mon, 25 Sep 2006 21:39:00 +0000 Subject: 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 --- Carpet/CarpetLib/src/copy_3d_real8.F77 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'Carpet/CarpetLib/src/copy_3d_real8.F77') 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 -- cgit v1.2.3