From 90c0149af46e776bcdf840757bcab8d1ac6006ef Mon Sep 17 00:00:00 2001
From: Noels Ludovic <l.noels@uliege.be>
Date: Thu, 7 Dec 2023 11:02:06 +0000
Subject: [PATCH] Revert "bug umat.f"
This reverts commit f74fc8fa5eeaeeb1ca87f69b3c60b678bc989ac5
---
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 a4981d4..8ebe81a 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*u*u)
+ dAdGamma = -(72.D0 * GG_til * PhiEq * PhiEq /u
1 + 16.D0 * KK_til * beta*beta*beta*ptilde*ptilde
- 2 /(3.D0*v*v*v)) / (2.D0 * A)
+ 2 /(3.D0*v)) / (2.D0 * A)
dDgmadGamma = k_plast*(A + GAMMA * dAdGamma)
--
GitLab