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

more explicit

This commit is contained in:
Martin Diehl 2018-08-28 06:27:38 +02:00
parent 331eaabaa4
commit 9b3ddcd2c2
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/homogenization_isostrain.f90
View File

@ -137,8 +137,9 @@ subroutine homogenization_isostrain_partitionDeformation(F,avgF,el)
instance = homogenization_typeInstance(mesh_element(3,el)) instance = homogenization_typeInstance(mesh_element(3,el))
associate(prm => param(instance)) associate(prm => param(instance))
F = 0.0_pReal
F(1:3,1:3,1:prm%Nconstituents) = spread(avgF,3,prm%Nconstituents) F(1:3,1:3,1:prm%Nconstituents) = spread(avgF,3,prm%Nconstituents)
if (homogenization_maxNgrains > prm%Nconstituents) &
F(1:3,1:3,prm%Nconstituents+1_pInt:homogenization_maxNgrains) = 0.0_pReal
end associate end associate
end subroutine homogenization_isostrain_partitionDeformation end subroutine homogenization_isostrain_partitionDeformation