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

fixed (first) problem with Marc2010 single job with old style input and extended precision should work now!

This commit is contained in:
Franz Roters 2010-04-29 08:15:29 +00:00
parent c34c07a6ff
commit aaf1bf0edf
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/mpie_cpfem_marc.f90
View File

@ -199,6 +199,8 @@ subroutine hypela2(&
write (6,'(a,x,i6,x,i2)') '<< hypela2 >> first call special case..!',n(1),nn; call flush(6)
!$OMP END CRITICAL (write2out)
else if (inc == 0 .and. lovl == 6) then ! Marc2010 introduces second call (lovl=6) in inc 0
computationMode = 6 ! --> just return known value
else if (lovl == 4) then ! Marc requires stiffness in separate call
if ( timinc < theDelta .and. theInc == inc ) then ! first after cutback
computationMode = 7 ! --> restore tangent and return