sll_k_hdf5_ser_write_array.F90

Go to the documentation of this file.

integer(hsize_t) :: array_dims(rank)
integer(hid_t)   :: dataset_id
integer(hid_t)   :: dataspace_id
 
array_dims = int(shape(array), hsize_t)
 
! Create dataspace
call h5screate_simple_f(rank, array_dims, dataspace_id, error)
sll_assert_always(error == 0)
 
! Create dataset
call h5dcreate_f(handle%file_id, dsetname, datatype, dataspace_id, &
                 dataset_id, error)
sll_assert_always(error == 0)
 
! Write dataset
call h5dwrite_f(dataset_id, datatype, array, array_dims, error)
sll_assert_always(error == 0)
 
! Close dataspace
call h5sclose_f(dataspace_id, error)
sll_assert_always(error == 0)
 
! Close dataset
call h5dclose_f(dataset_id, error)
sll_assert_always(error == 0)