diff options
author | schnetter <> | 2004-02-09 13:58:00 +0000 |
---|---|---|
committer | schnetter <> | 2004-02-09 13:58:00 +0000 |
commit | aa4c8cbc03946e1bf95c9641abd8e05900a66308 (patch) | |
tree | 8cb70b6b68687170cf44a35bc512a2b6473b38ee /Carpet/CarpetLib/src/copy_3d_complex16.F77 | |
parent | 52b68a704d1b4b24a9d62610767a050f4ba2b7ff (diff) |
Add support for copying (i.e. synchronising) complex variables.
darcs-hash:20040209135807-07bb3-0cd2c04df4f1ef2fa2e5d31f956c8b57b38a38b2.gz
Diffstat (limited to 'Carpet/CarpetLib/src/copy_3d_complex16.F77')
-rw-r--r-- | Carpet/CarpetLib/src/copy_3d_complex16.F77 | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/Carpet/CarpetLib/src/copy_3d_complex16.F77 b/Carpet/CarpetLib/src/copy_3d_complex16.F77 index 2432e900c..931307102 100644 --- a/Carpet/CarpetLib/src/copy_3d_complex16.F77 +++ b/Carpet/CarpetLib/src/copy_3d_complex16.F77 @@ -1,5 +1,5 @@ c -*-Fortran-*- -c $Header: /home/eschnett/C/carpet/Carpet/Carpet/CarpetLib/src/copy_3d_complex16.F77,v 1.2 2004/03/11 12:01:34 schnetter Exp $ +c $Header: /home/eschnett/C/carpet/Carpet/Carpet/CarpetLib/src/copy_3d_complex16.F77,v 1.1 2004/02/09 14:58:07 schnetter Exp $ #include "cctk.h" #include "cctk_Parameters.h" @@ -54,11 +54,6 @@ 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) |