From a6f94efa51048ab7e22fa3e4b00168d62c0344fa Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Wed, 25 Mar 2020 13:17:48 +0100 Subject: [PATCH] bugfix, introduced when making nonlocal explicit --- src/crystallite.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/crystallite.f90 b/src/crystallite.f90 index 214b482ba..467c18796 100644 --- a/src/crystallite.f90 +++ b/src/crystallite.f90 @@ -1048,7 +1048,7 @@ subroutine integrateStateFPI sourceState(p)%p(s)%previousDotState (:,c) = sourceState(p)%p(s)%dotState(:,c) enddo - call constitutive_dependentState(crystallite_Fe(1:3,1:3,g,i,e), & + call constitutive_dependentState(crystallite_partionedF(1:3,1:3,g,i,e), & crystallite_Fp(1:3,1:3,g,i,e), & g, i, e) @@ -1579,7 +1579,7 @@ subroutine update_dependentState do i = FEsolving_execIP(1),FEsolving_execIP(2) do g = 1,homogenization_Ngrains(material_homogenizationAt(e)) if (crystallite_todo(g,i,e) .and. .not. crystallite_converged(g,i,e)) & - call constitutive_dependentState(crystallite_Fe(1:3,1:3,g,i,e), & + call constitutive_dependentState(crystallite_partionedF(1:3,1:3,g,i,e), & crystallite_Fp(1:3,1:3,g,i,e), & g, i, e) enddo; enddo; enddo