From 57ca93c3c9c5e961e5c533cd4e270508ea5be5b4 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Mon, 15 Oct 2018 05:28:52 +0200 Subject: [PATCH] added missing allocation --- src/material.f90 | 1 + 1 file changed, 1 insertion(+) 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)