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

agreed on wrong calc of scaled state residual

This commit is contained in:
Philip Eisenlohr 2007-04-13 14:22:55 +00:00
parent 09495e852d
commit 4718abfc70
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
trunk/CPFEM.f90
View File

@ -431,7 +431,6 @@ stress: do ! inner iteration: stress
Rstate = state_new - (state_old+dstate) Rstate = state_new - (state_old+dstate)
RstateS = 0.0_pReal RstateS = 0.0_pReal
forall (i=1:constitutive_Nstatevars(grain,CPFEM_in,cp_en), state_new(i)/=0.0_pReal) & forall (i=1:constitutive_Nstatevars(grain,CPFEM_in,cp_en), state_new(i)/=0.0_pReal) &
! RstateS(i) = Rstress(i)/state_new(i) ???
RstateS(i) = Rstate(i)/state_new(i) RstateS(i) = Rstate(i)/state_new(i)
if (maxval(abs(RstateS)) < tol_State) exit state if (maxval(abs(RstateS)) < tol_State) exit state
state_new = state_old+dstate state_new = state_old+dstate