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) = &