223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/DAMASK_marc.f90
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 theTime = cptim ! record current starting time
theDelta = timinc ! record current time increment theDelta = timinc ! record current time increment
theInc = inc ! record current increment number theInc = inc ! record current increment number
lastLovl = lovl ! record lovl
endif endif
lastLovl = lovl ! record lovl
call CPFEM_general(computationMode,usePingPong,ffn,ffn1,t(1),timinc,m(1),nn,stress,ddsdde) call CPFEM_general(computationMode,usePingPong,ffn,ffn1,t(1),timinc,m(1),nn,stress,ddsdde)