From 0078b1f1263882f78bca41aa7d624f6bc65435b9 Mon Sep 17 00:00:00 2001 From: schnetter Date: Tue, 8 Apr 2008 23:12:16 +0000 Subject: Remove unused local variables git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@97 f69c4107-0314-4c4f-9ad4-17e986b73f4a --- src/Dissipation_2_1_alt.F90 | 1 - src/Dissipation_4_2.F90 | 1 - src/Dissipation_4_2_alt.F90 | 1 - src/Dissipation_4_3_min_err_coeff_alt.F90 | 4 ++-- src/Dissipation_6_3.F90 | 1 - src/Dissipation_6_5_min_err_coeff.F90 | 4 ++-- src/Dissipation_6_5_min_err_coeff_alt.F90 | 6 +++--- src/call_up_derivs.c | 5 ++--- 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; -- cgit v1.2.3