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