simplified
This commit is contained in:
parent
615909a1bc
commit
ddb59b6ad0
|
@ -255,10 +255,7 @@ subroutine materialpoint_stressAndItsTangent(dt)
|
||||||
do co = 1, myNgrains
|
do co = 1, myNgrains
|
||||||
converged = converged .and. crystallite_stress(dt*subStep,co,ip,el)
|
converged = converged .and. crystallite_stress(dt*subStep,co,ip,el)
|
||||||
enddo
|
enddo
|
||||||
endif
|
|
||||||
|
|
||||||
|
|
||||||
if (requested .and. .not. doneAndHappy(1)) then
|
|
||||||
if (.not. converged) then
|
if (.not. converged) then
|
||||||
doneAndHappy = [.true.,.false.]
|
doneAndHappy = [.true.,.false.]
|
||||||
else
|
else
|
||||||
|
|
Loading…
Reference in New Issue