diff --git a/MaterialModels/FiniteStrain/Finite_VEVP/umat.f b/MaterialModels/FiniteStrain/Finite_VEVP/umat.f index 8ebe81a69e5b3476d1246a59b8491461aacdfeb5..a4981d412558bb2295f015af5d449e07f30d38d6 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)