From 4d7a9ce030d8fc5ae52d22f7cb58051ad14dfbd2 Mon Sep 17 00:00:00 2001 From: Pratheek Shanthraj Date: Wed, 1 Oct 2014 16:35:56 +0000 Subject: [PATCH] bug fix --- code/damage_ductile.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/damage_ductile.f90 b/code/damage_ductile.f90 index 34a70b080..a8a30fd4b 100755 --- a/code/damage_ductile.f90 +++ b/code/damage_ductile.f90 @@ -283,7 +283,7 @@ subroutine damage_ductile_dotState(Lp,ipc, ip, el) damageState(phase)%dotState(1,constituent) = & (1.0_pReal/lattice_DamageMobility(phase))* & - (damageState(phase)%state(2,constituent) - & + (damageState(phase)%state(3,constituent) - & damageState(phase)%state(1,constituent)) damageState(phase)%dotState(2,constituent) = &