avoid undefined return

src/phase_damage.f90

@@ -256,9 +256,13 @@ module function integrateDamageState(dt,co,ip,el) result(broken)
     converged_
 
   ph = material_phaseAt(co,el)
-  if (phase_Nsources(ph) == 0)  return
   me = material_phaseMemberAt(co,ip,el)
 
+  if (phase_Nsources(ph) == 0) then
+    broken = .false.
+    return
+  endif
+
   converged_ = .true.
   broken = phase_damage_collectDotState(ph,me)
   if(broken) return