From 6bb8d894ca0463ed22dc7c0799fe5246b13d5ce0 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Tue, 22 Dec 2020 22:22:43 +0100 Subject: [PATCH] need to stay compatible with tests --- src/constitutive_damage.f90 | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/constitutive_damage.f90 b/src/constitutive_damage.f90 index 4e23b78ea..3ce614666 100644 --- a/src/constitutive_damage.f90 +++ b/src/constitutive_damage.f90 @@ -227,21 +227,21 @@ module subroutine damage_results(group,ph) sourceLoop: do so = 1, phase_Nsources(ph) if (phase_source(so,ph) /= SOURCE_UNDEFINED_ID) & - call results_closeGroup(results_addGroup(group//'damage/')) + call results_closeGroup(results_addGroup(group//'sources/')) ! should be 'damage' sourceType: select case (phase_source(so,ph)) case (SOURCE_damage_anisoBrittle_ID) sourceType - call source_damage_anisoBrittle_results(ph,group//'damage/') + call source_damage_anisoBrittle_results(ph,group//'sources/') case (SOURCE_damage_anisoDuctile_ID) sourceType - call source_damage_anisoDuctile_results(ph,group//'damage/') + call source_damage_anisoDuctile_results(ph,group//'sources/') case (SOURCE_damage_isoBrittle_ID) sourceType - call source_damage_isoBrittle_results(ph,group//'damage/') + call source_damage_isoBrittle_results(ph,group//'sources/') case (SOURCE_damage_isoDuctile_ID) sourceType - call source_damage_isoDuctile_results(ph,group//'damage/') + call source_damage_isoDuctile_results(ph,group//'sources/') end select sourceType