subroutine finalize_HDF5() INTEGER :: h5error ! Error flag call h5close_f(h5error) end subroutine finalize_HDF5