diff options
author | Erik Schnetter <schnetter@aei.mpg.de> | 2005-01-01 19:15:00 +0000 |
---|---|---|
committer | Erik Schnetter <schnetter@aei.mpg.de> | 2005-01-01 19:15:00 +0000 |
commit | 174928d579951712e21a361706c3c3188634e5af (patch) | |
tree | 1135c9c9663fe5f04bc72202ff1b47e426f99363 /Carpet/CarpetLib/src/copy_3d_real8.F77 | |
parent | 71ecb08ec0aabb118d086b85ecaa2e1bc392cd6f (diff) |
CarpetLib: Remove unused variables from Fortran code
darcs-hash:20050101191544-891bb-4f1f960cbe9c99a9cdc42c1ba590ecdc6eb75f5f.gz
Diffstat (limited to 'Carpet/CarpetLib/src/copy_3d_real8.F77')
-rw-r--r-- | Carpet/CarpetLib/src/copy_3d_real8.F77 | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/Carpet/CarpetLib/src/copy_3d_real8.F77 b/Carpet/CarpetLib/src/copy_3d_real8.F77 index e764f8af8..efd91d8f2 100644 --- a/Carpet/CarpetLib/src/copy_3d_real8.F77 +++ b/Carpet/CarpetLib/src/copy_3d_real8.F77 @@ -31,8 +31,6 @@ c bbox(:,3) is stride integer i, j, k integer d - character msg*1000 - do d=1,3 |