anchor.diff:    integer(I4P)                           :: rf           !< Real file index.
     character(len=:), allocatable          :: s_buffer     !< Buffer string.
     character(len=:), allocatable          :: fmt
  +  character(len=:), allocatable          :: type
  +  character(len=:), allocatable          :: data
     integer                                :: np, pos, offs
     integer(I4P)                           :: N_Byte
  -  character(len=:), allocatable          :: data
     !---------------------------------------------------------------------------------------------------------------------------------
   
     !---------------------------------------------------------------------------------------------------------------------------------  
  
positive.code:           allocate(connect(offset(NC)), stat=E_IO)
            E_IO = search(from=pos,inside='Cells', to_find='DataArray', with_attribute='Name', of_value='Connectivity', &
                          buffer=s_buffer, content=data)
            call get_int(buffer=s_buffer, attrib='offset', val=offs, E_IO=E_IO)
            call get_char(buffer=s_buffer, attrib='format', val=fmt, E_IO=E_IO)
            if (trim(adjustlt(Upper_Case(fmt)))/='ASCII') then
              E_IO = -1_I4P
            else
              read(data, fmt=*, iostat=E_IO) connect 
  
negative.code:                     buffer=s_buffer)
        call get_int(buffer=s_buffer, attrib='offset', val=offs, E_IO=E_IO)
        call get_char(buffer=s_buffer, attrib='format', val=fmt, E_IO=E_IO)
        call get_char(buffer=s_buffer, attrib='type', val=type, E_IO=E_IO)
        if (trim(adjustlt(Upper_Case(fmt)))/='APPENDED' .or. &
            trim(adjustlt(Upper_Case(type)))/='INT32') then
          E_IO = -1_I4P
        else
          read(unit=vtk(rf)%u, iostat=E_IO, pos = vtk(rf)%ioffset+offs) N_Byte, offset !get appended array connect
  