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

small rearrangement of cutback dealings. may give minute speed improvement...

This commit is contained in:
Philip Eisenlohr 2009-10-19 12:46:02 +00:00
parent 5a5d461a30
commit b5fc0a9769
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
code/mpie_cpfem_marc.f90
View File

@ -189,6 +189,9 @@ subroutine hypela2(&
if ( .not. CPFEM_init_done ) then if ( .not. CPFEM_init_done ) then
computationMode = 2 ! calc + init computationMode = 2 ! calc + init
theTime = cptim ! record current starting time
theDelta = timinc ! record current time increment
theInc = inc ! record current increment number
!$OMP CRITICAL (write2out) !$OMP CRITICAL (write2out)
write (6,'(a,x,i6,x,i2)') '<< hypela2 >> first call special case..!',n(1),nn; call flush(6) write (6,'(a,x,i6,x,i2)') '<< hypela2 >> first call special case..!',n(1),nn; call flush(6)
!$OMP END CRITICAL (write2out) !$OMP END CRITICAL (write2out)
@ -244,13 +247,10 @@ subroutine hypela2(&
endif endif
endif endif
endif
if (lovl /= 4) then ! pass-by for Marc recycle
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
if (CPFEM_init_done) lastMode = calcMode(nn,cp_en) ! record calculationMode lastMode = calcMode(nn,cp_en) ! record calculationMode
endif endif
call CPFEM_general(computationMode,ffn,ffn1,t(1),timinc,n(1),nn,s,d,ngens) call CPFEM_general(computationMode,ffn,ffn1,t(1),timinc,n(1),nn,s,d,ngens)