common namcommon namee

This commit is contained in:
Martin Diehl 2021-02-28 10:08:16 +01:00
parent 2137a6021f
commit 73d50c9bed
1 changed files with 3 additions and 3 deletions

View File

@ -520,14 +520,14 @@ function damage_nonlocal_getDiffusion(ce)
damage_nonlocal_getDiffusion
integer :: &
ho, &
grain
co
ho = material_homogenizationAt2(ce)
damage_nonlocal_getDiffusion = 0.0_pReal
do grain = 1, homogenization_Nconstituents(ho)
do co = 1, homogenization_Nconstituents(ho)
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
damage_nonlocal_getDiffusion = &