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

type mismatch

This commit is contained in:
Martin Diehl 2018-08-03 16:16:50 +02:00
parent dc6855261a
commit 5b409fd6f7
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/HDF5_utilities.f90
View File

@ -187,7 +187,7 @@ subroutine HDF5_closeGroup(ID)
integer :: hdferr
call h5gclose_f(ID, hdferr)
if (hdferr < 0) call IO_error(1_pInt,ext_msg = 'HDF5_closeGroup: h5gclose_f (el is ID)', el = ID)
if (hdferr < 0) call IO_error(1_pInt,ext_msg = 'HDF5_closeGroup: h5gclose_f (el is ID)', el = int(ID,pInt))
end subroutine HDF5_closeGroup