diff --git a/src/damage_nonlocal.f90 b/src/damage_nonlocal.f90 index c702d1a03..119a1a4e3 100644 --- a/src/damage_nonlocal.f90 +++ b/src/damage_nonlocal.f90 @@ -90,7 +90,7 @@ subroutine damage_nonlocal_init associate(prm => param(damage_typeInstance(h)), & config => config_homogenization(h)) - + instance = damage_typeInstance(h) outputs = config%getStrings('(output)',defaultVal=emptyStringArray) allocate(prm%outputID(0)) @@ -107,7 +107,6 @@ subroutine damage_nonlocal_init enddo - homog = h NofMyHomog = count(material_homog == homog)