From d6ef489557896e95f3e544f021f94df4be214294 Mon Sep 17 00:00:00 2001
From: schnetter <>
Date: Thu, 11 Mar 2004 10:01:00 +0000
Subject: Ensure that the array extents are multiples of the array strides

darcs-hash:20040311100134-07bb3-941d3d682503b7dc4066a4ab7aaf05ba1951d0a0.gz
---
 Carpet/CarpetLib/src/prolongate_3d_real8_3tl_rf2.F77 | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'Carpet/CarpetLib/src/prolongate_3d_real8_3tl_rf2.F77')

diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_rf2.F77 b/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_rf2.F77
index cf0b596b1..a77498fef 100644
--- a/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_rf2.F77
+++ b/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_rf2.F77
@@ -1,5 +1,5 @@
 c     -*-Fortran-*-
-c     $Header: /home/eschnett/C/carpet/Carpet/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_rf2.F77,v 1.2 2004/01/09 13:21:20 schnetter Exp $
+c     $Header: /home/eschnett/C/carpet/Carpet/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_rf2.F77,v 1.3 2004/03/11 12:03:09 schnetter Exp $
       
 #include "cctk.h"
 #include "cctk_Parameters.h"
@@ -77,6 +77,11 @@ c     bbox(:,3) is stride
 c     This could be handled, but is likely to point to an error elsewhere
             call CCTK_WARN (0, "Internal error: region extent is empty")
          end if
+         if (mod(srcbbox(d,2) - srcbbox(d,1), srcbbox(d,3)).ne.0
+     $        .or. mod(dstbbox(d,2) - dstbbox(d,1), dstbbox(d,3)).ne.0
+     $        .or. mod(regbbox(d,2) - regbbox(d,1), regbbox(d,3)).ne.0) then
+            call CCTK_WARN (0, "Internal error: array extents are not integer multiples of the strides")
+         end if
          if (regbbox(d,1).lt.srcbbox(d,1)
      $        .or. regbbox(d,1).lt.dstbbox(d,1)
      $        .or. regbbox(d,2).gt.srcbbox(d,2)
-- 
cgit v1.2.3