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

avoid undefined return

This commit is contained in:
Martin Diehl 2021-02-13 14:15:41 +01:00
parent 9ba185973f
commit b3231bf0a8
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/phase_damage.f90
View File

@ -256,16 +256,20 @@ module function integrateDamageState(dt,co,ip,el) result(broken)
converged_ converged_
ph = material_phaseAt(co,el) ph = material_phaseAt(co,el)
if (phase_Nsources(ph) == 0) return
me = material_phaseMemberAt(co,ip,el) me = material_phaseMemberAt(co,ip,el)
if (phase_Nsources(ph) == 0) then
broken = .false.
return
endif
converged_ = .true. converged_ = .true.
broken = phase_damage_collectDotState(ph,me) broken = phase_damage_collectDotState(ph,me)
if(broken) return if(broken) return
size_so = damageState(ph)%sizeDotState size_so = damageState(ph)%sizeDotState
damageState(ph)%state(1:size_so,me) = damageState(ph)%subState0(1:size_so,me) & damageState(ph)%state(1:size_so,me) = damageState(ph)%subState0(1:size_so,me) &
+ damageState(ph)%dotState (1:size_so,me) * dt + damageState(ph)%dotState (1:size_so,me) * dt
source_dotState(1:size_so,2) = 0.0_pReal source_dotState(1:size_so,2) = 0.0_pReal
iteration: do NiterationState = 1, num%nState iteration: do NiterationState = 1, num%nState