added missing allocation

This commit is contained in:
Martin Diehl 2018-10-15 05:28:52 +02:00
parent d662507eb8
commit 57ca93c3c9
1 changed files with 1 additions and 0 deletions

View File

@ -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)