Remove unused local variables

git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@97 f69c4107-0314-4c4f-9ad4-17e986b73f4a

8 files changed, 9 insertions, 14 deletions

diff --git a/src/Dissipation_2_1_alt.F90 b/src/Dissipation_2_1_alt.F90
index 3ee91b4..9992b6c 100644
--- a/src/Dissipation_2_1_alt.F90
+++ b/src/Dissipation_2_1_alt.F90
@@ -19,7 +19,6 @@ subroutine dissipation_2_1_alt (var, ni, nj, nk, bb, gsize, delta, epsilon, rhs)
 
   CCTK_REAL :: zero = 0.0
   integer, parameter :: wp = kind(zero)
-  integer :: i, j, k
   CCTK_REAL, dimension(4,2) :: a
   CCTK_REAL :: idel
 
diff --git a/src/Dissipation_4_2.F90 b/src/Dissipation_4_2.F90
index 95f7fde..5b419c9 100644
--- a/src/Dissipation_4_2.F90
+++ b/src/Dissipation_4_2.F90
@@ -19,7 +19,6 @@ subroutine dissipation_4_2 (var, ni, nj, nk, bb, gsize, delta, epsilon, rhs)
 
   CCTK_REAL :: zero = 0.0
   integer, parameter :: wp = kind(zero)
-  integer :: i, j, k
   CCTK_REAL, dimension(6,4) :: a
   CCTK_REAL :: idel
 
diff --git a/src/Dissipation_4_2_alt.F90 b/src/Dissipation_4_2_alt.F90
index 884f6b3..feef10b 100644
--- a/src/Dissipation_4_2_alt.F90
+++ b/src/Dissipation_4_2_alt.F90
@@ -19,7 +19,6 @@ subroutine dissipation_4_2_alt (var, ni, nj, nk, bb, gsize, delta, epsilon, rhs)
 
   CCTK_REAL :: zero = 0.0
   integer, parameter :: wp = kind(zero)
-  integer :: i, j, k
   CCTK_REAL, dimension(7,4) :: a
   CCTK_REAL :: idel
 
diff --git a/src/Dissipation_4_3_min_err_coeff_alt.F90 b/src/Dissipation_4_3_min_err_coeff_alt.F90
index 4a4a0d9..6dfb0b6 100644
--- a/src/Dissipation_4_3_min_err_coeff_alt.F90
+++ b/src/Dissipation_4_3_min_err_coeff_alt.F90
@@ -632,9 +632,9 @@ contains
     CCTK_INT, dimension(2), intent(in) :: bb
     CCTK_INT, intent(in) :: lsh, gsh, lbnd
     CCTK_REAL, intent(in) :: h, dfl
-    CCTK_INT :: n, nwt
+    CCTK_INT :: n
     CCTK_INT :: i
-    CCTK_REAL :: xp, xmax
+    CCTK_REAL :: xp
 
     CCTK_REAL :: zero = 0.0
     integer, parameter :: wp = kind(zero)
diff --git a/src/Dissipation_6_3.F90 b/src/Dissipation_6_3.F90
index a93f84d..af47329 100644
--- a/src/Dissipation_6_3.F90
+++ b/src/Dissipation_6_3.F90
@@ -19,7 +19,6 @@ subroutine dissipation_6_3 (var, ni, nj, nk, bb, gsize, delta, epsilon, rhs)
 
   CCTK_REAL :: zero = 0.0
   integer, parameter :: wp = kind(zero)
-  integer :: i, j, k
   CCTK_REAL, dimension(9,6) :: a
   CCTK_REAL :: idel
 
diff --git a/src/Dissipation_6_5_min_err_coeff.F90 b/src/Dissipation_6_5_min_err_coeff.F90
index 4fe6120..1ce64f9 100644
--- a/src/Dissipation_6_5_min_err_coeff.F90
+++ b/src/Dissipation_6_5_min_err_coeff.F90
@@ -780,9 +780,9 @@ contains
     CCTK_INT, dimension(2), intent(in) :: bb
     CCTK_INT, intent(in) :: lsh, gsh, lbnd
     CCTK_REAL, intent(in) :: h, dfl
-    CCTK_INT :: n, nwt
+    CCTK_INT :: n
     CCTK_INT :: i
-    CCTK_REAL :: xp, xmax
+    CCTK_REAL :: xp
 
     CCTK_REAL :: zero = 0.0
     integer, parameter :: wp = kind(zero)
diff --git a/src/Dissipation_6_5_min_err_coeff_alt.F90 b/src/Dissipation_6_5_min_err_coeff_alt.F90
index c84bca9..fa99633 100644
--- a/src/Dissipation_6_5_min_err_coeff_alt.F90
+++ b/src/Dissipation_6_5_min_err_coeff_alt.F90
@@ -28,7 +28,7 @@ subroutine dissipation_6_5_alt (var, lsh, gsh, lbnd, bb, gsize, &
 
   CCTK_REAL :: zero = 0.0
   integer, parameter :: wp = kind(zero)
-  integer :: i, j, k, center
+  integer :: i, j, k
   CCTK_REAL, dimension(:,:), allocatable :: atmp, d, b, h
   CCTK_REAL, dimension(:,:), pointer :: a
   CCTK_REAL :: idel
@@ -656,9 +656,9 @@ contains
     CCTK_INT, dimension(2), intent(in) :: bb
     CCTK_INT, intent(in) :: lsh, gsh, lbnd
     CCTK_REAL, intent(in) :: h, dfl
-    CCTK_INT :: n, nwt
+    CCTK_INT :: n
     CCTK_INT :: i
-    CCTK_REAL :: xp, xmax
+    CCTK_REAL :: xp
 
     CCTK_REAL :: zero = 0.0
     integer, parameter :: wp = kind(zero)
diff --git a/src/call_up_derivs.c b/src/call_up_derivs.c
index fbae767..f4a89ef 100644
--- a/src/call_up_derivs.c
+++ b/src/call_up_derivs.c
@@ -19,10 +19,9 @@ void DiffUpGv ( const CCTK_POINTER_TO_CONST cctkGH_, const CCTK_INT dir,
   DECLARE_CCTK_PARAMETERS
   DECLARE_CCTK_ARGUMENTS
 
-  CCTK_INT ni, nj, nk, gsize, ic, loc_order;
+  CCTK_INT ni, nj, nk, gsize, loc_order;
   CCTK_REAL delta;
-  CCTK_INT ierr;
-  CCTK_INT lsh[3], bb[2], nghostzones[3];
+  CCTK_INT bb[2];
   int onesided[6];
 
   int nelements;