From 98d02dcffb33aec4d2d6f6319e8a749fab4beb93 Mon Sep 17 00:00:00 2001 From: Christoph Kords Date: Fri, 7 Dec 2012 07:50:41 +0000 Subject: [PATCH] removed call to microstructure in stateJump function, since this is already done in the state integrator subroutine --- code/crystallite.f90 | 3 --- 1 file changed, 3 deletions(-) diff --git a/code/crystallite.f90 b/code/crystallite.f90 index 0b9facbf8..802fc2728 100644 --- a/code/crystallite.f90 +++ b/code/crystallite.f90 @@ -2906,9 +2906,6 @@ if (any(constitutive_deltaState(g,i,e)%p(1:mySizeDotState) /= 0.0_pReal) & endif #endif -call constitutive_microstructure(crystallite_Temperature(g,i,e), crystallite_Fe(1:3,1:3,g,i,e), & - crystallite_Fp(1:3,1:3,g,i,e), g, i, e) ! update dependent state variables to be consistent with basic states - crystallite_stateJump = .true. end function crystallite_stateJump