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

bugfix: mixed up order

This commit is contained in:
Martin Diehl 2021-04-11 12:49:28 +02:00
parent 9d90ed525e
commit 8ec2d3a9ce
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/homogenization_thermal.f90
View File

@ -119,7 +119,7 @@ module function homogenization_K_T(ce) result(K)
integer :: co integer :: co
K = crystallite_push33ToRef(co,1,lattice_K_T(:,:,material_phaseID(1,ce))) K = crystallite_push33ToRef(1,ce,lattice_K_T(:,:,material_phaseID(1,ce)))
do co = 2, homogenization_Nconstituents(material_homogenizationID(ce)) do co = 2, homogenization_Nconstituents(material_homogenizationID(ce))
K = K + crystallite_push33ToRef(co,ce,lattice_K_T(:,:,material_phaseID(co,ce))) K = K + crystallite_push33ToRef(co,ce,lattice_K_T(:,:,material_phaseID(co,ce)))
enddo enddo