From 171f5375f15013c01be658e4f674ba912cb2e56c Mon Sep 17 00:00:00 2001 From: Philip Eisenlohr Date: Fri, 11 Feb 2011 10:19:41 +0000 Subject: [PATCH] shearrate output now with sign (no |abs| as before) --- code/constitutive_nonlocal.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/constitutive_nonlocal.f90 b/code/constitutive_nonlocal.f90 index 24780781c..228aa3826 100644 --- a/code/constitutive_nonlocal.f90 +++ b/code/constitutive_nonlocal.f90 @@ -2285,7 +2285,7 @@ do o = 1,phase_Noutput(material_phase(g,ip,el)) cs = cs + ns case ('shearrate') - constitutive_nonlocal_postResults(cs+1:cs+ns) = sum(abs(gdot),2) + constitutive_nonlocal_postResults(cs+1:cs+ns) = sum(gdot,2) cs = cs + ns case ('resolvedstress')