diff options
| author | schnetter <> | 2003-02-24 16:43:00 +0000 |
|---|---|---|
| committer | schnetter <> | 2003-02-24 16:43:00 +0000 |
| commit | e6ffa49d5de30f2b8701f22d617005cabeb14077 (patch) | |
| tree | ae924a6b4657f956061a7ab492e9b46e971bf72d /Carpet/CarpetLib/src/prolongate_3d_real8_2tl_o3.F77 | |
| parent | fff74a459cede041a4f793342add90de8bb5636a (diff) | |
Abort when the region is empty.
darcs-hash:20030224164310-07bb3-74aea71016b7064c9232175c804c72c3d697614e.gz
Diffstat (limited to 'Carpet/CarpetLib/src/prolongate_3d_real8_2tl_o3.F77')
| -rw-r--r-- | Carpet/CarpetLib/src/prolongate_3d_real8_2tl_o3.F77 | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_o3.F77 b/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_o3.F77 index fab696367..f48345562 100644 --- a/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_o3.F77 +++ b/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_o3.F77 @@ -1,5 +1,5 @@ c -*-Fortran-*- -c $Header: /home/eschnett/C/carpet/Carpet/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_o3.F77,v 1.9 2002/09/25 19:54:08 schnetter Exp $ +c $Header: /home/eschnett/C/carpet/Carpet/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_o3.F77,v 1.10 2003/02/24 17:43:10 schnetter Exp $ #include "cctk.h" @@ -82,6 +82,10 @@ c bbox(:,3) is stride $ .or. regbbox(d,2).gt.dstbbox(d,2)) then call CCTK_WARN (0, "Internal error: region extent is not contained in array extent") end if + if (regbbox(d,1).gt.regbbox(d,2)) then +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 end do if (srciext.ne.(srcbbox(1,2)-srcbbox(1,1))/srcbbox(1,3)+1 |