From ca2f25b9158c5b7f7837e02faa1b53022825a535 Mon Sep 17 00:00:00 2001
From: ryoji <ryoji@535fb057-194f-0410-b5a5-c63992f15602>
Date: Fri, 3 Mar 2000 11:45:39 +0000
Subject: one more type ...

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/RotatingDBHIVP/trunk@13 535fb057-194f-0410-b5a5-c63992f15602
---
 src/RotatingDBHIVP.F | 1 -
 1 file changed, 1 deletion(-)

(limited to 'src')

diff --git a/src/RotatingDBHIVP.F b/src/RotatingDBHIVP.F
index b74a3b9..0d40b0e 100644
--- a/src/RotatingDBHIVP.F
+++ b/src/RotatingDBHIVP.F
@@ -549,7 +549,6 @@ c
       do k = 1,np
          do j = 1,nq
             do i = 2,ne-1
-               eta = etagrd(i)
                detaetapsisph(i,j,k)=(psip(i+1,j,k)-2.*psip(i,j,k)+
      &              psip(i-1,j,k))/deta**2 + sqrt(0.25)*
      &              cosh(0.5*etagrd(i))
-- 
cgit v1.2.3