From 53d07215a9b04907eb1095e810c06ed76a881930 Mon Sep 17 00:00:00 2001 From: Tias Maiti Date: Sat, 9 Jan 2016 15:03:18 +0000 Subject: [PATCH] reverting back to converged Lp as the initial guess for next iteration --- code/homogenization.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/homogenization.f90 b/code/homogenization.f90 index 3108f74f4..1fc4f6598 100644 --- a/code/homogenization.f90 +++ b/code/homogenization.f90 @@ -612,7 +612,7 @@ subroutine materialpoint_stressAndItsTangent(updateJaco,dt) enddo crystallite_partionedFp0(1:3,1:3,g,i,e) = crystallite_Fp0(1:3,1:3,g,i,e) ! ...plastic def grads - crystallite_partionedLp0(1:3,1:3,g,i,e) = crystallite_Lp(1:3,1:3,g,i,e) ! ...plastic velocity grads + crystallite_partionedLp0(1:3,1:3,g,i,e) = crystallite_Lp0(1:3,1:3,g,i,e) ! ...plastic velocity grads crystallite_partionedFi0(1:3,1:3,g,i,e) = crystallite_Fi0(1:3,1:3,g,i,e) ! ...intermediate def grads crystallite_partionedLi0(1:3,1:3,g,i,e) = crystallite_Li0(1:3,1:3,g,i,e) ! ...intermediate velocity grads crystallite_partioneddPdF0(1:3,1:3,1:3,1:3,g,i,e) = crystallite_dPdF0(1:3,1:3,1:3,1:3,g,i,e) ! ...stiffness