From 44bb99c57a3048723fb52222e21683aaa6506ecc Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sat, 29 Aug 2020 16:34:19 +0200 Subject: [PATCH] not needed --- src/material.f90 | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/src/material.f90 b/src/material.f90 index c89113311..efdeeafcb 100644 --- a/src/material.f90 +++ b/src/material.f90 @@ -241,7 +241,6 @@ subroutine material_parseHomogenization homogDamage integer :: h - logical, dimension(:), allocatable :: homogenization_active material_homogenization => material_root%get('homogenization') material_Nhomogenization = material_homogenization%length @@ -253,13 +252,9 @@ subroutine material_parseHomogenization allocate(thermal_typeInstance(material_Nhomogenization), source=0) allocate(damage_typeInstance(material_Nhomogenization), source=0) allocate(homogenization_Ngrains(material_Nhomogenization), source=0) - allocate(homogenization_active(material_Nhomogenization), source=.false.) !!!!!!!!!!!!!!! allocate(thermal_initialT(material_Nhomogenization), source=300.0_pReal) allocate(damage_initialPhi(material_Nhomogenization), source=1.0_pReal) - forall (h = 1:material_Nhomogenization) & - homogenization_active(h) = any(discretization_homogenizationAt == h) !ToDo: SR: needed?? - do h=1, material_Nhomogenization homog => material_homogenization%get(h) homogMech => homog%get('mech') @@ -317,7 +312,7 @@ subroutine material_parseHomogenization damage_typeInstance(h) = count(damage_type (1:h) == damage_type (h)) enddo - homogenization_maxNgrains = maxval(homogenization_Ngrains,homogenization_active) + homogenization_maxNgrains = maxval(homogenization_Ngrains) end subroutine material_parseHomogenization