anchor.diff:          select case(trim(vtk(rf)%topology))
             case('RectilinearGrid', 'StructuredGrid')
               ! Get WholeExtent
  -            E_IO = move(inside='VTKFile', to_find=trim(vtk(rf)%topology), repeat=1, cf=rf,buffer=s_buffer)
  +            E_IO = move(inside='VTKFile', to_find=trim(vtk(rf)%topology), cf=rf,buffer=s_buffer)
               call get_char(buffer=s_buffer, attrib='WholeExtent', val=aux, E_IO=E_IO)
               if(E_IO == 0) then
                 read(aux,*) rn
  
positive.code:   if (present(cf)) then
      rf = cf ; f = cf
    endif
    do !search the beginnig of the mark 'inside' 
      E_IO = read_record(buffer, cf=rf)
      buffer = trim(adjustlt(Upper_Case(buffer)))
      if (index(buffer, '<'//trim(adjustlt(Upper_Case(inside)))) > 0) exit !Mark 'inside' founded once
    enddo
    n = repeat
    do !search 'repeat' times the mark 'to_find'
      E_IO = read_record(buffer, cf=rf)
      buffer = trim(adjustlt(Upper_Case(buffer)))
      if (index(buffer, '</'//trim(adjustlt(Upper_Case(inside)))) > 0) E_IO = -1
      if (index(buffer, '<'//trim(adjustlt(Upper_Case(to_find)))) > 0) n = n - 1 !Mark 'to_find' founded once 
      if (n == 0) exit !Mark 'to_find' founded 'repeat' times
    enddo
    !---------------------------------------------------------------------------------------------------------------------------------
    end function move
  
  
negative.code:         open(unit=Get_Unit(vtk(rf)%u),file=trim(filename),status='old', &
               form='UNFORMATTED',access='STREAM',action='READ', &
               iostat=E_IO, position='REWIND')
          E_IO = move(inside='VTKFile', cf=rf, buffer=s_buffer)
          call get_char(buffer=s_buffer, attrib='byte_order', val=aux, E_IO=E_IO)
  
          ! Check the file endianness
          if (index(trim(aux), 'LITTLEENDIAN') > 0) then
            close(unit=vtk(rf)%u, iostat=E_IO)
            open(unit=Get_Unit(vtk(rf)%u),file=trim(filename),status='old', &
                 form='UNFORMATTED',access='STREAM',action='READ', &
                 convert='LITTLE_ENDIAN', iostat=E_IO, position='REWIND')
          elseif (index(trim(aux), 'BIGENDIAN') > 0) then
            close(unit=vtk(rf)%u, iostat=E_IO)
            open(unit=Get_Unit(vtk(rf)%u),file=trim(filename),status='old', &
                 form='UNFORMATTED',access='STREAM',action='READ', &
                 convert='BIG_ENDIAN', iostat=E_IO, position='REWIND')
          else
            rewind(unit=vtk(rf)%u, iostat=E_IO)
          endif
  
          select case(trim(vtk(rf)%topology))
            case('RectilinearGrid', 'StructuredGrid')
              ! Get WholeExtent
              E_IO = move(inside='VTKFile', to_find=trim(vtk(rf)%topology), cf=rf,buffer=s_buffer)
              call get_char(buffer=s_buffer, attrib='WholeExtent', val=aux, E_IO=E_IO)
              if(E_IO == 0) then
                read(aux,*) rn
  