diff options
| author | schnetter <schnetter@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2008-04-08 23:12:16 +0000 |
|---|---|---|
| committer | schnetter <schnetter@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2008-04-08 23:12:16 +0000 |
| commit | 0078b1f1263882f78bca41aa7d624f6bc65435b9 (patch) | |
| tree | b5cbc1ebf8b1fac8c6524ea6ce7c5b9c6988187d /src/Dissipation_6_5_min_err_coeff_alt.F90 | |
| parent | c084ab2dd816d0e5bf0c02f9e3626b1ad297274d (diff) | |
Remove unused local variables
git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@97 f69c4107-0314-4c4f-9ad4-17e986b73f4a
Diffstat (limited to 'src/Dissipation_6_5_min_err_coeff_alt.F90')
| -rw-r--r-- | src/Dissipation_6_5_min_err_coeff_alt.F90 | 6 |
1 files changed, 3 insertions, 3 deletions
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) |