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

fixed potential array mismatch in assignment

This commit is contained in:
Martin Diehl 2014-03-13 05:49:07 +00:00
parent fced0168f0
commit e1a31457ba
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
code/homogenization_isostrain.f90
View File

@ -210,8 +210,9 @@ subroutine homogenization_isostrain_partitionDeformation(F,avgF,el)
real(pReal), dimension (3,3), intent(in) :: avgF !< my average def grad real(pReal), dimension (3,3), intent(in) :: avgF !< my average def grad
integer(pInt), intent(in) :: & integer(pInt), intent(in) :: &
el !< element number el !< element number
F=0.0_pReal
F = spread(avgF,3,homogenization_Ngrains(mesh_element(3,el))) F(1:3,1:3,1:homogenization_Ngrains(mesh_element(3,el)))= &
spread(avgF,3,homogenization_Ngrains(mesh_element(3,el)))
end subroutine homogenization_isostrain_partitionDeformation end subroutine homogenization_isostrain_partitionDeformation