223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

prefix is added centrally already

This commit is contained in:
Martin Diehl 2019-04-07 14:26:01 +02:00
parent 7d0ebc4ded
commit 2fa8691335
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/constitutive.f90
View File

@ -1105,16 +1105,13 @@ subroutine constitutive_results
use plastic_nonlocal, only: & use plastic_nonlocal, only: &
plastic_nonlocal_results plastic_nonlocal_results
implicit none
integer :: p integer :: p
character(len=256) :: group character(len=256) :: group
character(len=16) :: i
call HDF5_closeGroup(results_addGroup('current/constitutive')) call HDF5_closeGroup(results_addGroup('current/constitutive'))
do p=1,size(config_name_phase) do p=1,size(config_name_phase)
write(i,('(i2.2)')) p ! allow 99 groups group = trim('current/constitutive')//'/'//trim(config_name_phase(p))
group = trim('current/constitutive')//'/'//trim(i)//'_'//trim(config_name_phase(p))
call HDF5_closeGroup(results_addGroup(group)) call HDF5_closeGroup(results_addGroup(group))
group = trim(group)//'/'//'plastic' group = trim(group)//'/'//'plastic'