From c8e70ada6290ca5f389aad49f1d78c4ddb855de9 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sun, 27 Feb 2022 16:58:40 +0100 Subject: [PATCH] extend to multiple homogenization scheme --- src/homogenization_damage_pass.f90 | 4 ++-- src/homogenization_thermal_pass.f90 | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/homogenization_damage_pass.f90 b/src/homogenization_damage_pass.f90 index 6d0f3e2c4..b9c4e2062 100644 --- a/src/homogenization_damage_pass.f90 +++ b/src/homogenization_damage_pass.f90 @@ -17,8 +17,8 @@ module subroutine pass_init() if (.not. damage_active(ho)) cycle - if (homogenization_Nconstituents(1) /= 1) & !ToDo: needs extension to multiple homogenizations - call IO_error(211,ext_msg='(pass) with N_constituents !=1') + if (homogenization_Nconstituents(ho) /= 1) & + call IO_error(211,ext_msg='(pass) with N_constituents !=1') end do end subroutine pass_init diff --git a/src/homogenization_thermal_pass.f90 b/src/homogenization_thermal_pass.f90 index 33060f9be..6cd895aed 100644 --- a/src/homogenization_thermal_pass.f90 +++ b/src/homogenization_thermal_pass.f90 @@ -17,7 +17,7 @@ module subroutine pass_init() if (thermal_type(ho) /= THERMAL_PASS_ID) cycle - if (homogenization_Nconstituents(1) /= 1) & !ToDo: needs extension to multiple homogenizations + if (homogenization_Nconstituents(ho) /= 1) & call IO_error(211,ext_msg='(pass) with N_constituents !=1') end do