From d51fa10ae55453338b58fabec62932dddd80ccc6 Mon Sep 17 00:00:00 2001
From: Fengbo Han <f.han@mpie.de>
Date: Thu, 27 Jul 2017 16:33:05 +0200
Subject: [PATCH] implemented yield stop criteria

---
 src/spectral_utilities.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/spectral_utilities.f90 b/src/spectral_utilities.f90
index d0d720155..a1795c485 100755
--- a/src/spectral_utilities.f90
+++ b/src/spectral_utilities.f90
@@ -1174,7 +1174,7 @@ function Mises(m, mType)
  trace = math_trace33(m)
  dev = m - trace/3.0*eye
  symdev = 0.5*(dev+transpose(dev))
- if (mType .eq. 'stress') then
+ if (mType == 'stress') then
   Mises = sqrt(3.0/2.0*sum(symdev*transpose(symdev)))
  else
   Mises = sqrt(2.0/3.0*sum(symdev*transpose(symdev)))