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

polishing

This commit is contained in:
Sharan Roongta 2021-03-24 15:50:39 +01:00
parent ce91537b0f
commit b1cca4f5bd
2 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/IO.f90
View File

@ -503,6 +503,8 @@ subroutine IO_error(error_ID,el,ip,g,instance,ext_msg)
msg = 'Abrupt end of file'
case (708)
msg = '--- expected after YAML file header'
case (709)
msg = 'Length mismatch'
!-------------------------------------------------------------------------------------------------
! errors related to the grid solver

5
src/YAML_types.f90
View File

@ -1182,9 +1182,12 @@ function tList_as2dFloat(self)
row => self%get(1) !SR: some interface called 'shape' may be used?
row_data => row%asList()
allocate(tList_as2dFloat(row%length,row_data%length),source=0.0_pReal)
allocate(tList_as2dFloat(self%length,row_data%length),source=0.0_pReal)
do i=1,self%length
row => self%get(i)
row_data => row%asList()
if(row_data%length /= size(tList_as2dFloat,2)) call IO_error(709,ext_msg='Varying number of columns')
tList_as2dFloat(i,:) = self%get_as1dFloat(i)
enddo