diff options
| author | diener <diener@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2005-11-29 22:52:41 +0000 |
|---|---|---|
| committer | diener <diener@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2005-11-29 22:52:41 +0000 |
| commit | 6d0ad655f1e071bfa54e371a8921b9435c735edb (patch) | |
| tree | 566f94516d041024e3799a92fd1be4c87a553076 | |
| parent | 84549a3f9d1783f6cf12211b63b4e95a6918d911 (diff) | |
Remove declaration of unused variables i,j,k.
git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@46 f69c4107-0314-4c4f-9ad4-17e986b73f4a
| -rw-r--r-- | src/Dissipation_8_4.F90 | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/src/Dissipation_8_4.F90 b/src/Dissipation_8_4.F90 index b622736..bc225af 100644 --- a/src/Dissipation_8_4.F90 +++ b/src/Dissipation_8_4.F90 @@ -16,7 +16,6 @@ subroutine dissipation_8_4 (var, ni, nj, nk, bb, gsize, delta, epsdis, rhs) CCTK_REAL :: zero = 0.0 integer, parameter :: wp = kind(zero) - integer :: i, j, k CCTK_REAL, dimension(12,8) :: a CCTK_REAL :: idel |