From 8edb59d50ca31087bc3b9a2018d098196565085b Mon Sep 17 00:00:00 2001 From: Franz Roters Date: Mon, 26 Sep 2011 09:55:38 +0000 Subject: [PATCH] removed some unused variables --- code/math.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/math.f90 b/code/math.f90 index fd9850d5e..d2a4810bc 100644 --- a/code/math.f90 +++ b/code/math.f90 @@ -2187,7 +2187,7 @@ end subroutine real(pReal), intent(in) :: M(3,3) real(pReal), dimension(3,3) :: EB1(3,3),EB2(3,3),EB3(3,3) real(pReal), dimension(3) :: math_eigenvalues3x3 - real(pReal) HI1M,HI2M,HI3M,TOL,R,S,T,P,Q,RHO,PHI,Y1,Y2,Y3,arg,EW1,EW2,EW3 + real(pReal) HI1M,HI2M,HI3M,TOL,R,S,T,P,Q,RHO,PHI,Y1,Y2,Y3,arg TOL=1.e-14_pReal CALL math_hi(M,HI1M,HI2M,HI3M) R=-HI1M