From 760af1fbbfbec96bf52e78cb563ca056d2251b92 Mon Sep 17 00:00:00 2001 From: Christoph Kords Date: Mon, 19 Nov 2012 15:13:48 +0000 Subject: [PATCH] crystallite_requested now masked by execIP, now elemhomogeneous works again --- code/crystallite.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/crystallite.f90 b/code/crystallite.f90 index 08cb550ee..b46fae4d4 100644 --- a/code/crystallite.f90 +++ b/code/crystallite.f90 @@ -321,13 +321,13 @@ do e = FEsolving_execElem(1),FEsolving_execElem(2) crystallite_localPlasticity(g,i,e) = phase_localPlasticity(material_phase(g,i,e)) crystallite_Fe(1:3,1:3,g,i,e) = math_transpose33(crystallite_Fp0(1:3,1:3,g,i,e)) crystallite_Fp(1:3,1:3,g,i,e) = crystallite_Fp0(1:3,1:3,g,i,e) + crystallite_requested(g,i,e) = .true. endforall enddo crystallite_partionedTemperature0 = Temperature ! isothermal assumption crystallite_partionedFp0 = crystallite_Fp0 crystallite_partionedF0 = crystallite_F0 crystallite_partionedF = crystallite_F0 -crystallite_requested = .true. ! Initialize crystallite_symmetryID(g,i,e)