anchor.diff:    end interface hdf5_read_keyword
   
     interface hdf5_write_keyword
  +     module procedure hdf5_write_k_logical
        module procedure hdf5_write_k_h5t_std_i32le
        module procedure hdf5_write_k_h5t_std_i64le
        module procedure hdf5_write_k_h5t_ieee_f32le
  
positive.code:     integer :: hdferr
      if(hdf5_exists_keyword(handle, path, name)) then
         call h5aopen_by_name_f(handle, path, name, attr_id, hdferr)
         call check_status(hdferr,'hdf5_write_k_h5t_ieee_f64le [1]')     
      else
         call h5screate_f(h5s_scalar_f, dspace_id, hdferr)
         call check_status(hdferr,'hdf5_write_k_h5t_ieee_f64le [1]')     
         call h5acreate_by_name_f(handle, path, name, h5t_ieee_f64le, dspace_id, attr_id, hdferr)
         call check_status(hdferr,'hdf5_write_k_h5t_ieee_f64le [2]')     
         call h5sclose_f(dspace_id, hdferr)
         call check_status(hdferr,'hdf5_write_k_h5t_ieee_f64le [3]')     
      end if
      call h5awrite_f(attr_id, h5t_ieee_f64le, value, (/1_hsize_t/), hdferr)
      call check_status(hdferr,'hdf5_write_k_h5t_ieee_f64le [4]')     
      call h5aclose_f(attr_id, hdferr)
      call check_status(hdferr,'hdf5_write_k_h5t_ieee_f64le [5]')     
    end subroutine hdf5_write_k_h5t_ieee_f64le
  
  
  
negative.code:     character(len=*),intent(in) :: value
      integer(hid_t) :: dspace_id, attr_id
      integer :: hdferr
      integer(hid_t) :: atype_id
      call h5tcopy_f(h5t_native_character, atype_id, hdferr)
      call check_status(hdferr,'hdf5_write_k_string [1]')
      call h5tset_size_f(atype_id, int(len(value),size_t), hdferr)
      call check_status(hdferr,'hdf5_write_k_string [2]')
      if(hdf5_exists_keyword(handle, path, name)) then
         call h5aopen_by_name_f(handle, path, name, attr_id, hdferr)
         call check_status(hdferr,'hdf5_write_k_string [3]')
      else
         call h5screate_f(h5s_scalar_f, dspace_id, hdferr)
         call check_status(hdferr,'hdf5_write_k_string [4]')
         call h5acreate_by_name_f(handle, path, name, atype_id, dspace_id, attr_id, hdferr)
         call check_status(hdferr,'hdf5_write_k_string [5]')
         call h5sclose_f(dspace_id, hdferr)
         call check_status(hdferr,'hdf5_write_k_string [6]')
      end if
      call h5awrite_f(attr_id, atype_id, value, (/1_hsize_t/), hdferr)
      call check_status(hdferr,'hdf5_write_k_string [7]')
      call h5aclose_f(attr_id, hdferr)
      call check_status(hdferr,'hdf5_write_k_string [8]')
    end subroutine hdf5_write_k_string
  
  
  