From 7c771647adfb8222503d099ed41020e497977721 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 18 Apr 2019 11:55:50 +0200 Subject: [PATCH] adjustments for easier access to output data --- src/constitutive.f90 | 2 +- src/crystallite.f90 | 4 +++- src/results.f90 | 4 ++-- 3 files changed, 6 insertions(+), 4 deletions(-) diff --git a/src/constitutive.f90 b/src/constitutive.f90 index 5031616d8..6428e19d1 100644 --- a/src/constitutive.f90 +++ b/src/constitutive.f90 @@ -1112,7 +1112,7 @@ subroutine constitutive_results group = trim('current/constituent')//'/'//trim(config_name_phase(p)) call HDF5_closeGroup(results_addGroup(group)) - group = trim(group)//'/'//'plastic' + group = trim(group)//'/plastic' call HDF5_closeGroup(results_addGroup(group)) select case(material_phase_plasticity_type(p)) diff --git a/src/crystallite.f90 b/src/crystallite.f90 index c330c8733..1ba1f7483 100644 --- a/src/crystallite.f90 +++ b/src/crystallite.f90 @@ -1098,7 +1098,9 @@ subroutine crystallite_results character(len=256) :: group,lattice_label do p=1,size(config_name_phase) - group = trim('current/constituent')//'/'//trim(config_name_phase(p)) + group = trim('current/constituent')//'/'//trim(config_name_phase(p))//'/generic' + + call HDF5_closeGroup(results_addGroup(group)) do o = 1, size(output_constituent(p)%label) select case (output_constituent(p)%label(o)) diff --git a/src/results.f90 b/src/results.f90 index a969816d5..516c64552 100644 --- a/src/results.f90 +++ b/src/results.f90 @@ -510,7 +510,7 @@ subroutine results_mapping_constituent(phaseAt,memberAt,label) !--------------------------------------------------------------------------------------------------- ! renumber member from my process to all processes do i = 1, size(label) - where(phaseAt_perIP == i) memberAt_total = memberAt + sum(memberOffset(i,0:worldrank-1)) + where(phaseAt_perIP == i) memberAt_total = memberAt + sum(memberOffset(i,0:worldrank-1)) -1 ! convert to 0-based enddo !-------------------------------------------------------------------------------------------------- @@ -648,7 +648,7 @@ subroutine results_mapping_materialpoint(homogenizationAt,memberAt,label) !--------------------------------------------------------------------------------------------------- ! renumber member from my process to all processes do i = 1, size(label) - where(homogenizationAt_perIP == i) memberAt_total = memberAt + sum(memberOffset(i,0:worldrank-1)) + where(homogenizationAt_perIP == i) memberAt_total = memberAt + sum(memberOffset(i,0:worldrank-1)) - 1 ! convert to 0-based enddo !--------------------------------------------------------------------------------------------------