anchor.diff:      call h5dget_space_f(ID%d_id , file_space, h5_error)
       call h5sget_simple_extent_ndims_f(file_space, ndims, h5_error)
       if (ndims /= 3) stop 'wrong number of dimensions in h5md_load_trajectory_data'
  -    call h5sget_simple_extend_dims_f(file_space, dims, max_dims, h5_error)
  +    call h5sget_simple_extent_dims_f(file_space, dims, max_dims, h5_error)
       data_shape = shape(data)
       if (data_shape(1) /= dims(1) .or. data_shape(2) /= dims(2)) then
          stop 'wrong dimensions for data in h5md_load_trajectory_data'
  
positive.code: 
    end subroutine h5md_close_ID
  
  end module h5md
  
negative.code: 
    end subroutine h5md_append_step_time
  
  
    !> Close a h5md_obs variable.
    !! @param obs h5md_obs variable.
  