From fa3be9a967609e342437ddfb60d4e1590db5749a Mon Sep 17 00:00:00 2001 From: Christoph Kords Date: Fri, 2 Aug 2013 15:44:28 +0000 Subject: [PATCH] corrected lastLovl introduced in rev2593 --- code/DAMASK_marc.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/DAMASK_marc.f90 b/code/DAMASK_marc.f90 index 10dc94337..c5b9ef107 100644 --- a/code/DAMASK_marc.f90 +++ b/code/DAMASK_marc.f90 @@ -378,9 +378,9 @@ subroutine hypela2(d,g,e,de,s,t,dt,ngens,m,nn,kcus,matus,ndi,nshear,disp, & theTime = cptim ! record current starting time theDelta = timinc ! record current time increment theInc = inc ! record current increment number - lastLovl = lovl ! record lovl endif + lastLovl = lovl ! record lovl call CPFEM_general(computationMode,usePingPong,ffn,ffn1,t(1),timinc,m(1),nn,stress,ddsdde)