simplified

This commit is contained in:
Martin Diehl 2020-12-27 10:19:39 +01:00
parent 615909a1bc
commit ddb59b6ad0
1 changed files with 0 additions and 3 deletions

View File

@ -255,10 +255,7 @@ subroutine materialpoint_stressAndItsTangent(dt)
do co = 1, myNgrains
converged = converged .and. crystallite_stress(dt*subStep,co,ip,el)
enddo
endif
if (requested .and. .not. doneAndHappy(1)) then
if (.not. converged) then
doneAndHappy = [.true.,.false.]
else