From 7ee368f324c7316af7711365be07476f2b0b24d3 Mon Sep 17 00:00:00 2001 From: Franz Roters Date: Fri, 11 May 2012 07:38:20 +0000 Subject: [PATCH] check whether there is any constitutive output --- code/crystallite.f90 | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/code/crystallite.f90 b/code/crystallite.f90 index e97ceb34c..b900b2194 100644 --- a/code/crystallite.f90 +++ b/code/crystallite.f90 @@ -3335,10 +3335,11 @@ function crystallite_postResults(& crystallite_postResults(c+1) = real(constitutive_sizePostResults(g,i,e),pReal) ! size of constitutive results c = c + 1_pInt - crystallite_postResults(c+1:c+constitutive_sizePostResults(g,i,e)) = constitutive_postResults(crystallite_Tstar_v(1:6,g,i,e), & - crystallite_Fe, & - crystallite_Temperature(g,i,e), & - dt, g, i, e) + if (constitutive_sizePostResults(g,i,e) > 0_pInt) & + crystallite_postResults(c+1:c+constitutive_sizePostResults(g,i,e)) = constitutive_postResults(crystallite_Tstar_v(1:6,g,i,e), & + crystallite_Fe, & + crystallite_Temperature(g,i,e), & + dt, g, i, e) c = c + constitutive_sizePostResults(g,i,e) end function crystallite_postResults