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

no need to duplicated check

This commit is contained in:
Martin Diehl 2021-03-18 08:03:56 +01:00
parent 52a0f0aaa9
commit b174473373
1 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/homogenization.f90
View File

@ -288,19 +288,17 @@ subroutine materialpoint_stressAndItsTangent(dt,FEsolving_execIP,FEsolving_execE
NiterationMPstate = NiterationMPstate + 1 NiterationMPstate = NiterationMPstate + 1
if (.not. doneAndHappy(1)) then call mechanical_partition(homogenization_F(1:3,1:3,ce),ce)
call mechanical_partition(homogenization_F(1:3,1:3,ce),ce) converged = .true.
converged = .true. do co = 1, myNgrains
do co = 1, myNgrains converged = converged .and. crystallite_stress(dt,co,ip,el)
converged = converged .and. crystallite_stress(dt,co,ip,el) enddo
enddo
if (.not. converged) then if (.not. converged) then
doneAndHappy = [.true.,.false.] doneAndHappy = [.true.,.false.]
else else
doneAndHappy = mechanical_updateState(dt,homogenization_F(1:3,1:3,ce),ce) doneAndHappy = mechanical_updateState(dt,homogenization_F(1:3,1:3,ce),ce)
converged = all(doneAndHappy) converged = all(doneAndHappy)
endif
endif endif
enddo convergenceLooping enddo convergenceLooping