anchor.diff:      integer(hid_t),intent(in) :: handle
       character(len=*),intent(in) :: path, name
       if(.not.hdf5_exists_keyword(handle, path, name)) then
  -        print *, "ERROR: attribute "//trim(name)//" does not exist in HDF5 file" 
  -        stop
  +       print *, "ERROR: attribute "//trim(name)//" does not exist in HDF5 file"
  +       stop
       end if
     end subroutine hdf5_check_exists_keyword
  -    
  +
     subroutine hdf5_read_k_logical(handle,path,name,value)
       implicit none
       integer(hid_t),intent(in) :: handle
  
positive.code:      module procedure hdf5_read_5d_array_alloc_h5t_std_i32le
       module procedure hdf5_read_5d_array_alloc_h5t_std_i64le
       module procedure hdf5_read_5d_array_alloc_h5t_ieee_f32le
       module procedure hdf5_read_5d_array_alloc_h5t_ieee_f64le 
       module procedure hdf5_read_6d_array_alloc_h5t_std_i32le
       module procedure hdf5_read_6d_array_alloc_h5t_std_i64le
       module procedure hdf5_read_6d_array_alloc_h5t_ieee_f32le
  
negative.code:           write(*,*)
            write(*,'(" WARNING: File exists: ")',advance='no')
            write(*,*) trim(filename)
            write(*,'(" The following command will be run: ")',advance='no')
            write(*,*) trim(command)
            do
               write(*,'(" Do you wish to continue? (y/n) ")',advance='no')
               read *,rep
               if(rep=="y".or.rep=="n") exit
  