diff options
author | diener <diener@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2005-11-29 22:53:49 +0000 |
---|---|---|
committer | diener <diener@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2005-11-29 22:53:49 +0000 |
commit | dd935ef8145f80f5e6b9f265c14e735bb5d2f6cf (patch) | |
tree | d05f4ebb89201a08d5c2e6d28b0d4672b4454adf | |
parent | 6d0ad655f1e071bfa54e371a8921b9435c735edb (diff) |
Remove declaration of unused variables nwt and xmax.
git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@47 f69c4107-0314-4c4f-9ad4-17e986b73f4a
-rw-r--r-- | src/Dissipation_4_3_min_err_coeff.F90 | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Dissipation_4_3_min_err_coeff.F90 b/src/Dissipation_4_3_min_err_coeff.F90 index df70422..b4b6ba3 100644 --- a/src/Dissipation_4_3_min_err_coeff.F90 +++ b/src/Dissipation_4_3_min_err_coeff.F90 @@ -346,9 +346,8 @@ 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 :: i - CCTK_REAL :: xp, xmax + CCTK_INT :: n, i + CCTK_REAL :: xp CCTK_REAL :: zero = 0.0 integer, parameter :: wp = kind(zero) |