diff --git a/src/phase_damage_isobrittle.f90 b/src/phase_damage_isobrittle.f90 index 36f26abd3..76b382d62 100644 --- a/src/phase_damage_isobrittle.f90 +++ b/src/phase_damage_isobrittle.f90 @@ -75,7 +75,7 @@ module function isobrittle_init() result(mySources) if (prm%W_crit <= 0.0_pReal) extmsg = trim(extmsg)//' W_crit' Nmembers = count(material_phaseID==ph) - call phase_allocateState(damageState(ph),Nmembers,1,1,1) + call phase_allocateState(damageState(ph),Nmembers,1,0,1) damageState(ph)%atol = src%get_asFloat('atol_phi',defaultVal=1.0e-9_pReal) if (any(damageState(ph)%atol < 0.0_pReal)) extmsg = trim(extmsg)//' atol_phi'