bug introduced during merge

This commit is contained in:
Martin Diehl 2017-05-18 11:33:11 +02:00
parent 9be3cac947
commit 12f66fd806
2 changed files with 3 additions and 4 deletions

View File

@ -3353,8 +3353,7 @@ logical function crystallite_integrateStress(&
NiterationStressLi = 0_pInt NiterationStressLi = 0_pInt
jacoCounterLi = 0_pInt jacoCounterLi = 0_pInt
steplengthLi0 = 1.0_pReal steplengthLi = 1.0_pReal
steplengthLi = steplengthLi0
residuumLi_old = 0.0_pReal residuumLi_old = 0.0_pReal
LiLoop: do LiLoop: do

View File

@ -923,10 +923,10 @@ subroutine materialpoint_postResults
material_phase, & material_phase, &
homogenization_Ngrains, & homogenization_Ngrains, &
microstructure_crystallite microstructure_crystallite
use constitutive, only: &
#ifdef FEM #ifdef FEM
use constitutive, only: &
constitutive_plasticity_maxSizePostResults, & constitutive_plasticity_maxSizePostResults, &
constitutive_source_maxSizePostResults, & constitutive_source_maxSizePostResults
#endif #endif
use crystallite, only: & use crystallite, only: &
#ifdef FEM #ifdef FEM