sll_k_hdf5_ser_read_array.F90

Go to the documentation of this file.

integer(hsize_t) :: array_dims(rank)
integer(hid_t)   :: dataset_id
 
array_dims = int(shape(array), hsize_t)
 
! Open existing dataset
call h5dopen_f(handle%file_id, dsetname, dataset_id, error)
sll_assert_always(error == 0)
 
! Read dataset into array
call h5dread_f(dataset_id, datatype, array, array_dims, error)
sll_assert_always(error == 0)
 
! Close dataset
call h5dclose_f(dataset_id, error)
sll_assert_always(error == 0)