From cfab313e3fbbb7194b694ddec6743e267fd1282a Mon Sep 17 00:00:00 2001 From: Pratheek Shanthraj Date: Sun, 10 Aug 2014 10:06:03 +0000 Subject: [PATCH] corrected incorrectly set dLp/dS for plasticity none --- code/constitutive.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/constitutive.f90 b/code/constitutive.f90 index 05a06b9a7..7a5a1ab38 100644 --- a/code/constitutive.f90 +++ b/code/constitutive.f90 @@ -395,7 +395,7 @@ subroutine constitutive_LpAndItsTangent(Lp, dLp_dTstar, Tstar_v, temperature, ip case (PLASTICITY_NONE_ID) Lp = 0.0_pReal - dLp_dTstar = math_identity2nd(9) + dLp_dTstar = 0.0_pReal case (PLASTICITY_J2_ID) call constitutive_j2_LpAndItsTangent (Lp,dLp_dTstar,Tstar_v,constitutive_damageValue(ipc,ip,el),ipc,ip,el) case (PLASTICITY_PHENOPOWERLAW_ID)