From 7ccc097406ed59532821d738b66fc0bdc4eefa15 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Mon, 15 Jul 2019 17:08:18 -0700 Subject: [PATCH] for testing output of materialpoint results --- src/homogenization.f90 | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/src/homogenization.f90 b/src/homogenization.f90 index 2ee921d10..64019b880 100644 --- a/src/homogenization.f90 +++ b/src/homogenization.f90 @@ -800,6 +800,8 @@ subroutine homogenization_results integer :: p character(len=256) :: group + + real(pReal), dimension(:,:,:), allocatable :: temp do p=1,size(config_name_homogenization) group = trim('current/materialpoint')//'/'//trim(config_name_homogenization(p)) @@ -812,7 +814,17 @@ subroutine homogenization_results case(HOMOGENIZATION_rgc_ID) call mech_RGC_results(homogenization_typeInstance(p),group) end select - + + group = trim('current/materialpoint')//'/'//trim(config_name_homogenization(p))//'/generic' + call HDF5_closeGroup(results_addGroup(group)) + + !temp = reshape(materialpoint_F,[3,3,discretization_nIP*discretization_nElem]) + !call results_writeDataset(group,temp,'F',& + ! 'deformation gradient','1') + !temp = reshape(materialpoint_P,[3,3,discretization_nIP*discretization_nElem]) + !call results_writeDataset(group,temp,'P',& + ! '1st Piola-Kirchoff stress','Pa') + enddo #endif end subroutine homogenization_results