From 28380c098581e87c0b5e67603dd1957d6dfed08e Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Tue, 6 Oct 2020 23:25:46 +0200 Subject: [PATCH] N_constituents is a general homogenization poperty --- PRIVATE | 2 +- src/homogenization_mech_isostrain.f90 | 2 +- src/material.f90 | 4 ++-- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/PRIVATE b/PRIVATE index 64e62f805..ae5882a2f 160000 --- a/PRIVATE +++ b/PRIVATE @@ -1 +1 @@ -Subproject commit 64e62f805b5ad784e3397ee5f735aaeb3cc134c2 +Subproject commit ae5882a2ffd932807d7589bc375ebff01836495f diff --git a/src/homogenization_mech_isostrain.f90 b/src/homogenization_mech_isostrain.f90 index 6883f1c37..5eec454f1 100644 --- a/src/homogenization_mech_isostrain.f90 +++ b/src/homogenization_mech_isostrain.f90 @@ -51,7 +51,7 @@ module subroutine mech_isostrain_init homogMech => homog%get('mech') associate(prm => param(homogenization_typeInstance(h))) - prm%N_constituents = homogMech%get_asInt('N_constituents') + prm%N_constituents = homog%get_asInt('N_constituents') select case(homogMech%get_asString('mapping',defaultVal = 'sum')) case ('sum') prm%mapping = parallel_ID diff --git a/src/material.f90 b/src/material.f90 index 742a29b9d..bab2f7499 100644 --- a/src/material.f90 +++ b/src/material.f90 @@ -262,10 +262,10 @@ subroutine material_parseHomogenization homogenization_Ngrains(h) = 1 case('isostrain') homogenization_type(h) = HOMOGENIZATION_ISOSTRAIN_ID - homogenization_Ngrains(h) = homogMech%get_asInt('N_constituents') + homogenization_Ngrains(h) = homog%get_asInt('N_constituents') case('RGC') homogenization_type(h) = HOMOGENIZATION_RGC_ID - homogenization_Ngrains(h) = homogMech%get_asInt('N_constituents') + homogenization_Ngrains(h) = homog%get_asInt('N_constituents') case default call IO_error(500,ext_msg=homogMech%get_asString('type')) end select