breaking crystallite loop in case of terminally ill (this functionality was probably lost since rev1886)

This commit is contained in:
Christoph Kords 2012-11-19 08:39:48 +00:00
parent 4195d53d11
commit 9fb94cd707
1 changed files with 2 additions and 1 deletions

View File

@ -692,7 +692,8 @@ do while (any(crystallite_todo(:,:,FEsolving_execELem(1):FEsolving_execElem(2)))
endselect
endif
where(.not. crystallite_converged) crystallite_todo = .true.
where(.not. crystallite_converged .and. crystallite_subStep > subStepMinCryst) &
crystallite_todo = .true.
NiterationCrystallite = NiterationCrystallite + 1_pInt