diff options
| author | schnetter <> | 2001-12-09 15:43:00 +0000 |
|---|---|---|
| committer | schnetter <> | 2001-12-09 15:43:00 +0000 |
| commit | 3319d0c8afdfe7e599b005be6f76656019f9b833 (patch) | |
| tree | 602721e707302a87bbde0a05138409129a55e97b /Carpet/CarpetLib/src/restrict_3d_real8.F77 | |
| parent | 2082bb5099476279b53877b27d9df295ab62ca2f (diff) | |
Changed handling of interpolation orders; they are now stored in the
Changed handling of interpolation orders; they are now stored in the
grid functions and don't have to be passed around.
Speeded up some prolongation operators. They are still slow.
darcs-hash:20011209154308-07bb3-caa74a89a87c290852f2b59160ed26d9361f3cf1.gz
Diffstat (limited to 'Carpet/CarpetLib/src/restrict_3d_real8.F77')
| -rw-r--r-- | Carpet/CarpetLib/src/restrict_3d_real8.F77 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Carpet/CarpetLib/src/restrict_3d_real8.F77 b/Carpet/CarpetLib/src/restrict_3d_real8.F77 index d580f423c..a8ba6c64c 100644 --- a/Carpet/CarpetLib/src/restrict_3d_real8.F77 +++ b/Carpet/CarpetLib/src/restrict_3d_real8.F77 @@ -1,5 +1,5 @@ c -*-Fortran-*- -c $Header: /home/eschnett/C/carpet/Carpet/Carpet/CarpetLib/src/restrict_3d_real8.F77,v 1.3 2001/03/24 22:38:48 eschnett Exp $ +c $Header: /home/eschnett/C/carpet/Carpet/Carpet/CarpetLib/src/restrict_3d_real8.F77,v 1.4 2001/12/09 16:43:11 schnetter Exp $ #include "cctk.h" @@ -44,7 +44,7 @@ c bbox(:,3) is stride call CCTK_WARN (0, "Internal error: source strides are not integer multiples of the destination strides") end if if (mod(srcbbox(d,1), srcbbox(d,3)).ne.0 - $ .or. mod(dstbbox(d,1), dstbbox(d,3)).ne.0 + $ .or. mod(dstbbox(d,1), dstbbox(d,3)).ne.0 $ .or. mod(regbbox(d,1), regbbox(d,3)).ne.0) then call CCTK_WARN (0, "Internal error: array origins are not integer multiples of the strides") end if @@ -52,7 +52,7 @@ c bbox(:,3) is stride $ .or. regbbox(d,1).lt.dstbbox(d,1) $ .or. regbbox(d,2).gt.srcbbox(d,2) $ .or. regbbox(d,2).gt.dstbbox(d,2)) then - call CCTK_WARN (0, "Internal error: region extent is not contained in array extents") + call CCTK_WARN (0, "Internal error: region extent is not contained in array extent") end if end do |