From 12f66fd806fc6a97617b9a73c1d1e2feec4320b2 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 18 May 2017 11:33:11 +0200 Subject: [PATCH] bug introduced during merge --- src/crystallite.f90 | 3 +-- src/homogenization.f90 | 4 ++-- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/src/crystallite.f90 b/src/crystallite.f90 index 8601697ba..c5bd4d979 100644 --- a/src/crystallite.f90 +++ b/src/crystallite.f90 @@ -3353,8 +3353,7 @@ logical function crystallite_integrateStress(& NiterationStressLi = 0_pInt jacoCounterLi = 0_pInt - steplengthLi0 = 1.0_pReal - steplengthLi = steplengthLi0 + steplengthLi = 1.0_pReal residuumLi_old = 0.0_pReal LiLoop: do diff --git a/src/homogenization.f90 b/src/homogenization.f90 index b70eacc56..c8c5fad01 100644 --- a/src/homogenization.f90 +++ b/src/homogenization.f90 @@ -923,10 +923,10 @@ subroutine materialpoint_postResults material_phase, & homogenization_Ngrains, & microstructure_crystallite - use constitutive, only: & #ifdef FEM + use constitutive, only: & constitutive_plasticity_maxSizePostResults, & - constitutive_source_maxSizePostResults, & + constitutive_source_maxSizePostResults #endif use crystallite, only: & #ifdef FEM