From c3ba8b6588c2c625f0d1b1014394a9149cc8f279 Mon Sep 17 00:00:00 2001 From: Sharan Date: Sat, 2 Jul 2022 18:59:21 +0200 Subject: [PATCH] dot state is 0 in isibrittle --- src/phase_damage_isobrittle.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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'