From db1cf06a4d96e8bd13ae734c35103145002382aa Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Wed, 9 Nov 2016 12:56:03 -0600 Subject: [PATCH] Fix argument in h5sget_simple_extend_ndims_f --- src/hdf5_interface.F90 | 2 +- src/mgxs_header.F90 | 6 ++++-- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/src/hdf5_interface.F90 b/src/hdf5_interface.F90 index c8892c53c4..2a0711954f 100644 --- a/src/hdf5_interface.F90 +++ b/src/hdf5_interface.F90 @@ -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 diff --git a/src/mgxs_header.F90 b/src/mgxs_header.F90 index fc5e8cb3e1..17104d5088 100644 --- a/src/mgxs_header.F90 +++ b/src/mgxs_header.F90 @@ -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(:, :, :)