From 3f0284496687471360ade4866da052d84805972e Mon Sep 17 00:00:00 2001 From: Fengbo Han Date: Thu, 27 Jul 2017 16:24:56 +0200 Subject: [PATCH] implemented yield stop criteria --- src/DAMASK_spectral.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/DAMASK_spectral.f90 b/src/DAMASK_spectral.f90 index bffc89790..29d9b672a 100755 --- a/src/DAMASK_spectral.f90 +++ b/src/DAMASK_spectral.f90 @@ -696,7 +696,8 @@ program DAMASK_spectral eqPlasticStrainOld = eqPlasticStrainNew plasticWorkOld = plasticWorkNew - call utilities_calcPlasticity(yieldStressNew, plasticStrainNew, eqStressNew, eqTotalStrainNew, eqPlasticStrainNew, plasticWorkNew) + call utilities_calcPlasticity(yieldStressNew, plasticStrainNew, eqStressNew, eqTotalStrainNew, & + eqPlasticStrainNew, plasticWorkNew) if(stopFlag .eq. 'totalStrain') then if(eqTotalStrainNew > yieldStopValue) then