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

avoid nasty error in MPI parallel situations

This commit is contained in:
Martin Diehl 2022-02-24 15:18:37 +01:00
parent 28ffdb7c1c
commit 3ee0434836
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/results.f90
View File

@ -455,7 +455,7 @@ subroutine results_writeVectorDataset_int(dataset,group,label,description,SIunit
if (present(systems)) then if (present(systems)) then
if (size(systems)*size(dataset,2) == 0 ) return !ToDo: maybe also implement for other results_write (not sure about scalar) if (size(systems) == 0 ) return !ToDo: maybe also implement for other results_write (not sure about scalar)
end if end if
groupHandle = results_openGroup(group) groupHandle = results_openGroup(group)