crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-27 05:35:49 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix HDF5 compile errors.

Browse source
This commit is contained in:
Paul Romano 2012-11-19 13:09:58 -05:00
parent c88615bdd7
commit 1cc80452e2
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/hdf5_interface.F90
View file

@ -462,7 +462,9 @@ contains
integer(HSIZE_T) :: dims(1)
integer(HID_T) :: tallies_group
integer(HID_T) :: temp_group
type(TallyObject), pointer :: t => null()
integer(HID_T) :: filter_group ! group for i-th filter
integer, allocatable :: temp_array(:) ! nuclide bin array
type(TallyObject), pointer :: t => null()
! Create group for tallies
call h5gcreate_f(hdf5_output_file, "tallies", tallies_group, hdf5_err)