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

Merge pull request #755 from paulromano/hotfix-h5s

Browse source 
Fix argument in h5sget_simple_extend_ndims_f
This commit is contained in:
Sterling Harper 2016-11-09 15:32:37 -05:00 • committed by GitHub
commit 11651b3778
2 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/hdf5_interface.F90
View file

@ -2589,7 +2589,7 @@ contains
subroutine get_ndims(obj_id, ndims)
integer(HID_T), intent(in) :: obj_id
integer(HID_T), intent(out) :: ndims
integer, intent(out) :: ndims
integer :: hdf5_err
integer :: type

6
src/mgxs_header.F90
View file

@ -430,7 +430,8 @@ module mgxs_header
! in that conversion
character(MAX_LINE_LEN) :: temp_str
integer(HID_T) :: xsdata, xsdata_grp, scatt_grp, ndims
integer(HID_T) :: xsdata, xsdata_grp, scatt_grp
integer :: ndims
integer(HSIZE_T) :: dims(2)
real(8), allocatable :: temp_arr(:), temp_2d(:, :)
real(8), allocatable :: temp_beta(:, :)
@ -1113,7 +1114,8 @@ module mgxs_header
! in that conversion
character(MAX_LINE_LEN) :: temp_str
integer(HID_T) :: xsdata, xsdata_grp, scatt_grp, ndims
integer(HID_T) :: xsdata, xsdata_grp, scatt_grp
integer :: ndims
integer(HSIZE_T) :: dims(4)
integer, allocatable :: int_arr(:)
real(8), allocatable :: temp_1d(:), temp_3d(:, :, :)