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(:, :, :)