From f74fc8fa5eeaeeb1ca87f69b3c60b678bc989ac5 Mon Sep 17 00:00:00 2001
From: Noels Ludovic <l.noels@uliege.be>
Date: Thu, 7 Dec 2023 08:57:57 +0000
Subject: [PATCH] bug umat.f
---
MaterialModels/FiniteStrain/Finite_VEVP/umat.f | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/MaterialModels/FiniteStrain/Finite_VEVP/umat.f b/MaterialModels/FiniteStrain/Finite_VEVP/umat.f
index 8ebe81a..a4981d4 100644
--- a/MaterialModels/FiniteStrain/Finite_VEVP/umat.f
+++ b/MaterialModels/FiniteStrain/Finite_VEVP/umat.f
@@ -1343,9 +1343,9 @@ C END IF
etaOverDt = eta / DTIME
- dAdGamma = -(72.D0 * GG_til * PhiEq * PhiEq /u
+ dAdGamma = -(72.D0 * GG_til * PhiEq * PhiEq /(u*u*u)
1 + 16.D0 * KK_til * beta*beta*beta*ptilde*ptilde
- 2 /(3.D0*v)) / (2.D0 * A)
+ 2 /(3.D0*v*v*v)) / (2.D0 * A)
dDgmadGamma = k_plast*(A + GAMMA * dAdGamma)
--
GitLab