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

correct initialization

This commit is contained in:
Martin Diehl 2019-03-09 08:01:20 +01:00
parent af707c671c
commit 2621689843
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/damage_nonlocal.f90
View File

@ -90,7 +90,7 @@ subroutine damage_nonlocal_init
associate(prm => param(damage_typeInstance(h)), & associate(prm => param(damage_typeInstance(h)), &
config => config_homogenization(h)) config => config_homogenization(h))
instance = damage_typeInstance(h)
outputs = config%getStrings('(output)',defaultVal=emptyStringArray) outputs = config%getStrings('(output)',defaultVal=emptyStringArray)
allocate(prm%outputID(0)) allocate(prm%outputID(0))
@ -107,7 +107,6 @@ subroutine damage_nonlocal_init
enddo enddo
homog = h homog = h
NofMyHomog = count(material_homog == homog) NofMyHomog = count(material_homog == homog)