From a91ebafa0ecc28386ae27a6c22fc310d18bc6d39 Mon Sep 17 00:00:00 2001 From: Pratheek Shanthraj Date: Wed, 26 Nov 2014 10:36:14 +0000 Subject: [PATCH] semi-explicit damage evolution --- code/damage_isoBrittle.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/damage_isoBrittle.f90 b/code/damage_isoBrittle.f90 index 67c4be0d0..077d48497 100644 --- a/code/damage_isoBrittle.f90 +++ b/code/damage_isoBrittle.f90 @@ -453,8 +453,8 @@ function damage_isoBrittle_getDamagedC66(C, ipc, ip, el) phase = mappingConstitutive(2,ipc,ip,el) constituent = mappingConstitutive(1,ipc,ip,el) damage_isoBrittle_getDamagedC66 = & - damageState(phase)%state(1,constituent)* & - damageState(phase)%state(1,constituent)* & + damageState(phase)%state0(1,constituent)* & + damageState(phase)%state0(1,constituent)* & C end function damage_isoBrittle_getDamagedC66