From 6d0ad655f1e071bfa54e371a8921b9435c735edb Mon Sep 17 00:00:00 2001
From: diener <diener@f69c4107-0314-4c4f-9ad4-17e986b73f4a>
Date: Tue, 29 Nov 2005 22:52:41 +0000
Subject: 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
---
 src/Dissipation_8_4.F90 | 1 -
 1 file changed, 1 deletion(-)

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
 
-- 
cgit v1.2.3