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

common name

This commit is contained in:
Martin Diehl 2021-02-28 10:08:16 +01:00
parent 2137a6021f
commit c483dc609f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/homogenization.f90
View File

@ -520,14 +520,14 @@ function damage_nonlocal_getDiffusion(ce)
damage_nonlocal_getDiffusion damage_nonlocal_getDiffusion
integer :: & integer :: &
ho, & ho, &
grain co
ho = material_homogenizationAt2(ce) ho = material_homogenizationAt2(ce)
damage_nonlocal_getDiffusion = 0.0_pReal damage_nonlocal_getDiffusion = 0.0_pReal
do grain = 1, homogenization_Nconstituents(ho) do co = 1, homogenization_Nconstituents(ho)
damage_nonlocal_getDiffusion = damage_nonlocal_getDiffusion + & damage_nonlocal_getDiffusion = damage_nonlocal_getDiffusion + &
crystallite_push33ToRef(grain,ce,lattice_D(1:3,1:3,material_phaseAt2(grain,ce))) crystallite_push33ToRef(co,ce,lattice_D(1:3,1:3,material_phaseAt2(co,ce)))
enddo enddo
damage_nonlocal_getDiffusion = & damage_nonlocal_getDiffusion = &