anchor.diff:        if(allocated(data)) deallocate(data)
       endif
     case(binary)
  -!Not implemented
  +    rewind(unit=vtk(rf)%u, iostat=E_IO)
  +    E_IO = search(inside='FieldData', to_find='DataArray', with_attribute='Name', of_value=trim(fname), &
  +                  buffer=s_buffer,content=data)
  +    if(E_IO==0) then
  +      call get_int(buffer=s_buffer, attrib='NumberOfTuples', val=nt, E_IO=E_IO)
  +      call get_char(buffer=s_buffer, attrib='type', val=type, E_IO=E_IO)
  +      call get_char(buffer=s_buffer, attrib='format', val=fmt, E_IO=E_IO)
  +      if (trim(adjustlt(Upper_Case(fmt)))/='BINARY' .or. &
  +          trim(adjustlt(Upper_Case(type)))/='FLOAT64' .or. nt/=1) then        
  +          E_IO = -1_I4P
  +      else
  +        ! Decode packed base64 data
  +        data=trim(adjustlt(data))
  +        allocate(dI1P(int(BYR8P,I4P)+int(BYI4P,I4P)))
  +        call b64_decode(code=data,n=dI1P); if(allocated(data)) deallocate(data)
  +        ! Unpack data [1xI4P,1xR8P]
  +        N_byte =  transfer(dI1P(1:int(BYI4P,I4P)),N_byte)
  +        fld = transfer(dI1P(int(BYI4P,I4P)+1:),fld); if(allocated(dI1P)) deallocate(dI1P)
  +      endif
  +      if(allocated(data)) deallocate(data)
  +    endif
   
     case(raw)
       rewind(unit=vtk(rf)%u, iostat=E_IO)
  
positive.code:     endif
  
    case(binary)
  !Not implemented
  
    case(raw)
      rewind(unit=vtk(rf)%u, iostat=E_IO)
  
negative.code:   end function VTK_FLD_XML_I1_READ
  
  
    function VTK_END_XML_READ(cf) result(E_IO)
    !---------------------------------------------------------------------------------------------------------------------------------
    !< Function for close an opened VTK file.
  