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

6
src/phase_damage.f90
View File

@ -256,9 +256,13 @@ 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