corrcected definition of forceLocalStiffnessCalculation

This commit is contained in:
Franz Roters 2010-02-18 14:43:40 +00:00
parent e1a25e0f73
commit 7e632e8132
1 changed files with 2 additions and 1 deletions

View File

@ -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 ------