diff --git a/MaterialModels/FiniteStrain/Finite_VEVP/umat.f b/MaterialModels/FiniteStrain/Finite_VEVP/umat.f index 78af446fa88ef55093758a7853bbdae22c85f48c..8ebe81a69e5b3476d1246a59b8491461aacdfeb5 100644 --- a/MaterialModels/FiniteStrain/Finite_VEVP/umat.f +++ b/MaterialModels/FiniteStrain/Finite_VEVP/umat.f @@ -1076,7 +1076,7 @@ C END IF END DO coeffs(1) = 1.d0 - DO O5 = 2, order + DO O5 = 2, order-1 coeffs(O5) = coeffs(O5 - 1) * REAL(O5, 8) END DO