From 9635ae9f3dcf2781d3628052bc71ab59c9ef780c Mon Sep 17 00:00:00 2001 From: Luv Sharma Date: Wed, 7 Jan 2015 14:51:06 +0000 Subject: [PATCH] fix in integration. --- code/damage_anisoBrittle.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/damage_anisoBrittle.f90 b/code/damage_anisoBrittle.f90 index 56bffbb52..3b120b6ed 100644 --- a/code/damage_anisoBrittle.f90 +++ b/code/damage_anisoBrittle.f90 @@ -401,7 +401,7 @@ subroutine damage_anisoBrittle_microstructure(Tstar_v, subdt, ipc, ip, el) if (damageState(phase)%state(index_o,constituent) <= 1.0_pReal) then damageState(phase)%state(index_o,constituent) = & - damageState(phase)%state(index_o,constituent) + & + damageState(phase)%subState0(index_o,constituent) + & deltaState else if (damageState(phase)%state(index_d,constituent) == localDamage) then