CarpetLib: Remove unused variables from Fortran code

darcs-hash:20050101191544-891bb-4f1f960cbe9c99a9cdc42c1ba590ecdc6eb75f5f.gz

11 files changed, 2 insertions, 37 deletions

diff --git a/Carpet/CarpetLib/src/copy_3d_complex16.F77 b/Carpet/CarpetLib/src/copy_3d_complex16.F77
index e7988173e..9839de44e 100644
--- a/Carpet/CarpetLib/src/copy_3d_complex16.F77
+++ b/Carpet/CarpetLib/src/copy_3d_complex16.F77
@@ -31,8 +31,6 @@ c     bbox(:,3) is stride
       integer i, j, k
       integer d
       
-      character msg*1000
-      
       
       
       do d=1,3
diff --git a/Carpet/CarpetLib/src/copy_3d_int4.F77 b/Carpet/CarpetLib/src/copy_3d_int4.F77
index e64897ed7..4422421e7 100644
--- a/Carpet/CarpetLib/src/copy_3d_int4.F77
+++ b/Carpet/CarpetLib/src/copy_3d_int4.F77
@@ -31,8 +31,6 @@ c     bbox(:,3) is stride
       integer i, j, k
       integer d
       
-      character msg*1000
-      
       
       
       do d=1,3
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
diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_eno.F90 b/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_eno.F90
index fc5341fe2..9fa762a04 100644
--- a/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_eno.F90
+++ b/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_eno.F90
@@ -70,19 +70,14 @@ subroutine prolongate_3d_real8_2tl_eno (src1, t1, src2, t2, &
   integer srcioff, srcjoff, srckoff
   integer dstioff, dstjoff, dstkoff
       
-      CCTK_REAL8 s1fac, s2fac
+  CCTK_REAL8 s1fac, s2fac
 
   integer i, j, k
   integer i0, j0, k0
   integer fi, fj, fk
-  integer ifac(4), jfac(4), kfac(4)
   integer ii, jj, kk
-  integer fac
-  CCTK_REAL8 res
   integer d
 
-  character msg*1000
-
   CCTK_REAL8, dimension(0:3,0:3) :: tmp1
   CCTK_REAL8, dimension(0:3) :: tmp2
   CCTK_REAL8 :: dsttmp1, dsttmp2
diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_minmod.F77 b/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_minmod.F77
index 46a2c7417..1032bd2e4 100644
--- a/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_minmod.F77
+++ b/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_minmod.F77
@@ -70,14 +70,10 @@ c     bbox(:,3) is stride
       
       CCTK_REAL8 s1fac, s2fac
       
-      CCTK_REAL8 dstdiv
       integer i, j, k
       integer i0, j0, k0
       integer fi, fj, fk
-      integer ifac(4), jfac(4), kfac(4)
       integer ii, jj, kk
-      integer fac
-      CCTK_REAL8 res
       integer d
       
       character msg*1000
diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_o5.F77 b/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_o5.F77
index 4fbacda53..9b61ea0d6 100644
--- a/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_o5.F77
+++ b/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_o5.F77
@@ -50,7 +50,7 @@ c     bbox(:,3) is stride
       integer srcioff, srcjoff, srckoff
       integer dstioff, dstjoff, dstkoff
       
-      CCTK_REAL8 s1fac, s2fac, s3fac
+      CCTK_REAL8 s1fac, s2fac
       
       CCTK_REAL8 dstdiv
       integer i, j, k
diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_eno.F90 b/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_eno.F90
index a27d95872..03a8bac3a 100644
--- a/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_eno.F90
+++ b/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_eno.F90
@@ -74,14 +74,9 @@ subroutine prolongate_3d_real8_3tl_eno (src1, t1, src2, t2, &
   integer i, j, k
   integer i0, j0, k0
   integer fi, fj, fk
-  integer ifac(4), jfac(4), kfac(4)
   integer ii, jj, kk
-  integer fac
-  CCTK_REAL8 res
   integer d
 
-  character msg*1000
-
   CCTK_REAL8, dimension(0:3,0:3) :: tmp1
   CCTK_REAL8, dimension(0:3) :: tmp2
   CCTK_REAL8 :: dsttmp1, dsttmp2, dsttmp3
diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_minmod.F77 b/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_minmod.F77
index 499cb8de0..30c6116be 100644
--- a/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_minmod.F77
+++ b/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_minmod.F77
@@ -74,14 +74,10 @@ c     bbox(:,3) is stride
       
       CCTK_REAL8 s1fac, s2fac, s3fac
       
-      CCTK_REAL8 dstdiv
       integer i, j, k
       integer i0, j0, k0
       integer fi, fj, fk
-      integer ifac(4), jfac(4), kfac(4)
       integer ii, jj, kk
-      integer fac
-      CCTK_REAL8 res
       integer d
       
       character msg*1000
diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90 b/Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90
index c755256cc..e5f1c53ae 100644
--- a/Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90
+++ b/Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90
@@ -112,14 +112,9 @@ subroutine prolongate_3d_real8_eno (src, srciext, srcjext, &
   integer i, j, k
   integer i0, j0, k0
   integer fi, fj, fk
-  integer ifac(4), jfac(4), kfac(4)
   integer ii, jj, kk
-  integer fac
-  CCTK_REAL8 res
   integer d
 
-  character msg*1000
-
   CCTK_REAL8, dimension(0:3,0:3) :: tmp1
   CCTK_REAL8, dimension(0:3) :: tmp2
 
diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_minmod.F77 b/Carpet/CarpetLib/src/prolongate_3d_real8_minmod.F77
index 1dcc53e1b..8f880382e 100644
--- a/Carpet/CarpetLib/src/prolongate_3d_real8_minmod.F77
+++ b/Carpet/CarpetLib/src/prolongate_3d_real8_minmod.F77
@@ -83,10 +83,7 @@ c     bbox(:,3) is stride
       integer i, j, k
       integer i0, j0, k0
       integer fi, fj, fk
-      integer ifac(4), jfac(4), kfac(4)
       integer ii, jj, kk
-      integer fac
-      CCTK_REAL8 res
       integer d
       
       character msg*1000
diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_o5.F77 b/Carpet/CarpetLib/src/prolongate_3d_real8_o5.F77
index b10dca7dc..257ad96d0 100644
--- a/Carpet/CarpetLib/src/prolongate_3d_real8_o5.F77
+++ b/Carpet/CarpetLib/src/prolongate_3d_real8_o5.F77
@@ -29,7 +29,6 @@ c     -*-Fortran-*-
       CCTK_REAL8 src(srciext,srcjext,srckext)
       integer dstiext, dstjext, dstkext
       CCTK_REAL8 dst(dstiext,dstjext,dstkext)
-      CCTK_REAL8 t
 c     bbox(:,1) is lower boundary (inclusive)
 c     bbox(:,2) is upper boundary (inclusive)
 c     bbox(:,3) is stride
@@ -44,8 +43,6 @@ c     bbox(:,3) is stride
       integer srcioff, srcjoff, srckoff
       integer dstioff, dstjoff, dstkoff
       
-      CCTK_REAL8 s1fac, s2fac, s3fac
-      
       CCTK_REAL8 dstdiv
       integer i, j, k
       integer i0, j0, k0