From bf04ee60f0aa274c797d37c7b9c7c316e99b3796 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Tue, 2 Feb 2016 08:45:47 +0100 Subject: [PATCH] polishing --- code/math.f90 | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/code/math.f90 b/code/math.f90 index fe457f3b5..028432871 100644 --- a/code/math.f90 +++ b/code/math.f90 @@ -2066,7 +2066,7 @@ function math_eigenvaluesSym33(m) c(2) = - math_trace33(m) c(1) = m(1,1)*m(2,2) + m(1,1)*m(3,3) + m(2,2)*m(3,3) & - -(m(1,2)**2 + m(2,3)**2 + m(1,3)**2) + -(m(1,2)**2 + m(1,3)**2 + m(2,3)**2) c(0) = m(1,1)*m(2,3)**2 + m(2,2)*m(1,3)**2 + m(3,3)*m(1,2)**2 & -(m(1,1)*m(2,2)*m(3,3) + 2.0_pReal * m(1,3)*m(1,2)*m(2,3)) @@ -2081,8 +2081,6 @@ function math_eigenvaluesSym33(m) -cos(phi)+sqrt(1.0_pReal/3.0_pReal)*sin(phi) & ] * sqrt(p) -c(2))/3.0_pReal - - end function math_eigenvaluesSym33 !--------------------------------------------------------------------------------------------------