crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 14:15:42 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Check that HDF5 groups are closed successfully.

Browse source
This commit is contained in:
Paul Romano 2015-09-13 12:20:58 +07:00
parent b1f4597e23
commit 590df6e62d
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/hdf5_interface.F90
View file

@ -236,6 +236,9 @@ contains
integer :: hdf5_err ! HDF5 error code
call h5gclose_f(group_id, hdf5_err)
if (hdf5_err < 0) then
call fatal_error("Unable to close HDF5 group.")
end if
end subroutine close_group
!===============================================================================