From 7e632e81320403ca727ffdfa25c34390945a3f9c Mon Sep 17 00:00:00 2001 From: Franz Roters Date: Thu, 18 Feb 2010 14:43:40 +0000 Subject: [PATCH] corrcected definition of forceLocalStiffnessCalculation --- code/crystallite.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/code/crystallite.f90 b/code/crystallite.f90 index 629d51b39..648a1fdeb 100644 --- a/code/crystallite.f90 +++ b/code/crystallite.f90 @@ -342,7 +342,8 @@ subroutine crystallite_stressAndItsTangent(updateJaco) logical, dimension(homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems) :: & storedConvergenceFlag logical, dimension(3,3) :: mask - logical forceLocalStiffnessCalculation = .true. ! flag indicating that stiffness calculation is always done locally + logical forceLocalStiffnessCalculation + forceLocalStiffnessCalculation = .true. ! flag indicating that stiffness calculation is always done locally ! ------ initialize to starting condition ------