From 5f7e5b8409cb943a90359868ee2173e97ca0e5d3 Mon Sep 17 00:00:00 2001 From: Denny Tjahjanto Date: Thu, 3 Sep 2009 20:26:20 +0000 Subject: [PATCH] homogenization_RGC.f90 << correction for a very stupid mistake. replacing stress P with the absolute value of stress abs(P) during convergence check. it should work upon deep-drawing. --- code/homogenization_RGC.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/code/homogenization_RGC.f90 b/code/homogenization_RGC.f90 index fcc764359..dd5f54ec6 100644 --- a/code/homogenization_RGC.f90 +++ b/code/homogenization_RGC.f90 @@ -343,10 +343,10 @@ function homogenization_RGC_updateState(& enddo !* Convergence check for stress residual - stresMax = maxval(P) - stresLoc = maxloc(P) - residMax = maxval(tract) - residLoc = maxloc(tract) + stresMax = maxval(abs(P)) + stresLoc = maxloc(abs(P)) + residMax = maxval(abs(tract)) + residLoc = maxloc(abs(tract)) !* Debugging the convergent criteria if (RGCdebug) then write(1978,'(x,a)')' '