223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

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.
This commit is contained in:
Denny Tjahjanto 2009-09-03 20:26:20 +00:00
parent a16dbe4d32
commit 5f7e5b8409
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
code/homogenization_RGC.f90
View File

@ -343,10 +343,10 @@ function homogenization_RGC_updateState(&
enddo enddo
!* Convergence check for stress residual !* Convergence check for stress residual
stresMax = maxval(P) stresMax = maxval(abs(P))
stresLoc = maxloc(P) stresLoc = maxloc(abs(P))
residMax = maxval(tract) residMax = maxval(abs(tract))
residLoc = maxloc(tract) residLoc = maxloc(abs(tract))
!* Debugging the convergent criteria !* Debugging the convergent criteria
if (RGCdebug) then if (RGCdebug) then
write(1978,'(x,a)')' ' write(1978,'(x,a)')' '