corrected lastLovl introduced in rev2593

This commit is contained in:
Christoph Kords 2013-08-02 15:44:28 +00:00
parent b0aa71a843
commit fa3be9a967
1 changed files with 1 additions and 1 deletions

View File

@ -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)