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

helpful error message in case of non-matching length

This commit is contained in:
Martin Diehl 2024-02-04 07:42:00 +01:00 committed by achalhp
parent f3884d9291
commit d153925973
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/types.f90
View File

@ -1265,6 +1265,8 @@ function tDict_get_as1dReal_chunked(self,k,defaultVal,requiredChunks) result(nod
nodeAs1dReal = node_outer%asReal() nodeAs1dReal = node_outer%asReal()
class is(tList) class is(tList)
list_outer => self%get_list(k) list_outer => self%get_list(k)
if (list_outer%length /= size(requiredChunks)) &
call IO_error(709,'list "'//list_outer%asFormattedStr()//'" is not of length '//IO_intAsStr(size(requiredChunks)))
do i = 1, size(requiredChunks) do i = 1, size(requiredChunks)
node_inner => list_outer%get(i) node_inner => list_outer%get(i)
select type(node_inner) select type(node_inner)