anchor.diff:    character(len=:),allocatable        :: s_buffer !< Buffer string.
     character(len=:), allocatable       :: fmt
     character(len=:), allocatable       :: type
  -!  character(len=:), allocatable       :: bindata
  +  character(len=:), allocatable       :: data
     integer(I4P)                        :: np, i, j, offs, N_Byte
     !---------------------------------------------------------------------------------------------------------------------------------
   
  
positive.code:   select case(trim(Upper_Case(input_format)))
    case('ASCII')
      vtk(rf)%f = ascii
  ! Not implemented
  
    case('BINARY')
      vtk(rf)%f = binary
  
negative.code:               trim(adjustlt(Upper_Case(type)))/='FLOAT32') then
              E_IO = -1_I4P 
            else
              allocate(X(NN), Y(NN), Z(NN), stat=E_IO)        
              read(unit=vtk(rf)%u, iostat=E_IO, pos = vtk(rf)%ioffset+offs) N_Byte, (X(i), Y(i), Z(i), i=1,NN) !get appended array
            endif
          endif
  