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

corrected NaN check in crystallite_updateState 

return false in case NaN occurs in crystallite_updateState
This commit is contained in:
Franz Roters 2009-06-23 06:52:51 +00:00
parent 660dce0f09
commit 0873231e78
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
trunk/crystallite.f90
View File

@ -672,7 +672,6 @@ endsubroutine
logical crystallite_updateState ! flag indicating if integration suceeded logical crystallite_updateState ! flag indicating if integration suceeded
!*** local variables ***! !*** local variables ***!
real(pReal), dimension(6) :: Tstar_v ! 2nd Piola-Kirchhoff Stress in Mandel-Notation
real(pReal), dimension(constitutive_sizeDotState(g,i,e)) :: residuum ! residuum from evolution of microstructure real(pReal), dimension(constitutive_sizeDotState(g,i,e)) :: residuum ! residuum from evolution of microstructure
integer(pInt) mySize integer(pInt) mySize
integer(pLongInt) tick, & integer(pLongInt) tick, &
@ -697,7 +696,8 @@ endsubroutine
if (tock < tick) debug_cumDotStateTicks = debug_cumDotStateTicks + maxticks if (tock < tick) debug_cumDotStateTicks = debug_cumDotStateTicks + maxticks
! if NaN occured then return without changing the state ! if NaN occured then return without changing the state
if (any(constitutive_state(g,i,e)%p(1:mySize)/=constitutive_state(g,i,e)%p(1:mySize))) then if (any(residuum/=residuum)) then
crystallite_updateState = .false. ! indicate state update failed
if (debugger) write(6,*) '::: updateState encountered NaN' if (debugger) write(6,*) '::: updateState encountered NaN'
return return
endif endif