From 8ec2d3a9ced292501d5ad16adea143bd15ede788 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sun, 11 Apr 2021 12:49:28 +0200 Subject: [PATCH] bugfix: mixed up order --- src/homogenization_thermal.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/homogenization_thermal.f90 b/src/homogenization_thermal.f90 index 40c466ab5..27988dfb2 100644 --- a/src/homogenization_thermal.f90 +++ b/src/homogenization_thermal.f90 @@ -119,7 +119,7 @@ module function homogenization_K_T(ce) result(K) 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)) K = K + crystallite_push33ToRef(co,ce,lattice_K_T(:,:,material_phaseID(co,ce))) enddo