cleanup use

Author: scivision

src/interface.f90

@@ -5,7 +5,6 @@ module h5fortran
 use, intrinsic :: iso_fortran_env, only : real32, real64, int64, int32, stderr=>error_unit
 
 use hdf5, only : HID_T, SIZE_T, HSIZE_T, &
-H5S_SELECT_SET_F, &
 H5T_NATIVE_DOUBLE, H5T_NATIVE_REAL, H5T_NATIVE_INTEGER, H5T_NATIVE_CHARACTER, H5T_STD_I64LE, &
 H5T_INTEGER_F, H5T_FLOAT_F, H5T_STRING_F, &
 H5P_DEFAULT_F
@@ -111,7 +110,7 @@ module h5fortran
 end interface
 
 !! for submodules only
-public :: HSIZE_T, H5T_NATIVE_REAL, H5T_NATIVE_DOUBLE, H5T_NATIVE_INTEGER, H5T_NATIVE_CHARACTER, H5T_STD_I64LE
+public :: HSIZE_T, HID_T, H5T_NATIVE_DOUBLE, H5T_NATIVE_REAL, H5T_NATIVE_INTEGER, H5T_NATIVE_CHARACTER, H5T_STD_I64LE
 public :: H5T_INTEGER_F, H5T_FLOAT_F, H5T_STRING_F
 !! HDF5 types for end users
 

src/utils.f90

@@ -1,10 +1,10 @@
 submodule (h5fortran) utils_smod
 
 use hdf5, only: h5get_libversion_f, &
-H5Dget_create_plist_f, H5Dget_space_f, &
 h5eset_auto_f, &
 h5iis_valid_f, h5iget_name_f, H5Iget_type_f, &
 h5open_f, h5close_f, &
+H5Dget_create_plist_f, &
 h5fopen_f, h5fcreate_f, h5fclose_f, h5fis_hdf5_f, h5fget_filesize_f, &
 h5fget_obj_count_f, h5fget_obj_ids_f, h5fget_name_f, &
 H5Pall_filters_avail_f, H5Pclose_f, &
@@ -13,7 +13,8 @@
 H5F_ACC_RDONLY_F, H5F_ACC_RDWR_F, H5F_ACC_TRUNC_F, &
 H5F_OBJ_FILE_F, H5F_OBJ_GROUP_F, H5F_OBJ_DATASET_F, H5F_OBJ_DATATYPE_F, H5F_OBJ_ALL_F, &
 H5D_CONTIGUOUS_F, H5D_CHUNKED_F, H5D_COMPACT_F, &
-H5I_FILE_F
+H5I_FILE_F, &
+H5S_SELECT_SET_F
 
 implicit none (type, external)
 
@@ -361,6 +362,7 @@ end subroutine check_filters
 if (ier /= 0) error stop "ERROR:h5fortran:get_slice:h5sselect_hyperslab: " // dset_name
 
 !> create memory dataspace
+!! H5Dread needs this for non-scalar
 call h5screate_simple_f(rank=size(c_mem_dims), dims=c_mem_dims, space_id=memspace_id, hdferr=ier)
 if (ier /= 0) error stop "ERROR:h5fortran:get_slice:h5screate_simple:memspace " // dset_name