From 5f7e5b8409cb943a90359868ee2173e97ca0e5d3 Mon Sep 17 00:00:00 2001
From: Denny	Tjahjanto <dennyt@kth.se>
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)')' '