diff --git a/src/material.f90 b/src/material.f90 index 1dc5b7a7a..5538fab3e 100644 --- a/src/material.f90 +++ b/src/material.f90 @@ -486,6 +486,7 @@ subroutine material_init() allocate(mappingHomogenizationConst( mesh_nIPsPerElem,mesh_NcpElems),source=1_pInt) ! END DEPRECATED + allocate(material_homogenizationAt,source=mesh_homogenizationAt) allocate(PhaseCounter (size(config_phase)), source=0_pInt) allocate(HomogenizationCounter(size(config_homogenization)),source=0_pInt)