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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/material.f90
View File

@ -486,6 +486,7 @@ subroutine material_init()
allocate(mappingHomogenizationConst( mesh_nIPsPerElem,mesh_NcpElems),source=1_pInt) allocate(mappingHomogenizationConst( mesh_nIPsPerElem,mesh_NcpElems),source=1_pInt)
! END DEPRECATED ! END DEPRECATED
allocate(material_homogenizationAt,source=mesh_homogenizationAt)
allocate(PhaseCounter (size(config_phase)), source=0_pInt) allocate(PhaseCounter (size(config_phase)), source=0_pInt)
allocate(HomogenizationCounter(size(config_homogenization)),source=0_pInt) allocate(HomogenizationCounter(size(config_homogenization)),source=0_pInt)