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

wrong tolerance selection

This commit is contained in:
Martin Diehl 2019-01-30 06:44:26 +01:00
parent 77f1f45c23
commit 5908e3fd34
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/crystallite.f90
View File

@ -1637,7 +1637,7 @@ subroutine integrateStateFPI()
+ plasticState(p)%previousDotState(:,c) * (1.0_pReal - zeta) + plasticState(p)%previousDotState(:,c) * (1.0_pReal - zeta)
crystallite_converged(g,i,e) = all(abs(residuum_plastic(1:sizeDotState)) & crystallite_converged(g,i,e) = all(abs(residuum_plastic(1:sizeDotState)) &
< min(plasticState(p)%aTolState(1:sizeDotState), & < max(plasticState(p)%aTolState(1:sizeDotState), &
abs(plasticState(p)%state(1:sizeDotState,c)*rTol_crystalliteState))) abs(plasticState(p)%state(1:sizeDotState,c)*rTol_crystalliteState)))
@ -1661,7 +1661,7 @@ subroutine integrateStateFPI()
crystallite_converged(g,i,e) = crystallite_converged(g,i,e) .and. & crystallite_converged(g,i,e) = crystallite_converged(g,i,e) .and. &
all(abs(residuum_source(1:sizeDotState)) & all(abs(residuum_source(1:sizeDotState)) &
< min(sourceState(p)%p(s)%aTolState(1:sizeDotState), & < max(sourceState(p)%p(s)%aTolState(1:sizeDotState), &
abs(sourceState(p)%p(s)%state(1:sizeDotState,c)*rTol_crystalliteState))) abs(sourceState(p)%p(s)%state(1:sizeDotState,c)*rTol_crystalliteState)))
enddo enddo
endif endif