anchor.diff:    integer(I4P)                        :: E_IO     !< Input/Output inquiring flag: $0$ if IO is done, $> 0$ if IO is not done
     integer(I4P)                        :: rf       !< Real file index.
     character(len=:),allocatable        :: s_buffer !< Buffer string.
  -  integer(I4P), dimension(6)          :: rn       !< Real node ranges in Extent [nx1,nx2,ny1,ny2,nz1,nz2]
     integer(I4P)                        :: NNp      !< number of nodes in the piece
     character(len=:),allocatable        :: aux      !< Auxiliary string.
     character(len=:), allocatable       :: fmtX, fmtY, fmtZ
     character(len=:), allocatable       :: typeX, typeY, typeZ
  -  character(len=:), allocatable       :: bindata
  +!  character(len=:), allocatable       :: bindata
     integer(I4P)                        :: offsX, offsY, offsZ
     integer(I4P)                        :: np, i, N_Byte
     !---------------------------------------------------------------------------------------------------------------------------------
  
positive.code:       endif
      end select
    !---------------------------------------------------------------------------------------------------------------------------------
    end function
  
    function VTK_END_XML_READ(cf) result(E_IO)
    !---------------------------------------------------------------------------------------------------------------------------------
  
negative.code:   integer(I4P)                        :: E_IO     !< Input/Output inquiring flag: $0$ if IO is done, $> 0$ if IO is not done
    integer(I4P)                        :: rf       !< Real file index.
    character(len=:),allocatable        :: s_buffer !< Buffer string.
    character(len=:),allocatable        :: aux      !< Auxiliary string.
    character(len=:), allocatable       :: fmt
    character(len=:), allocatable       :: type
  !  character(len=:), allocatable       :: bindata
    integer(I4P)                        :: np, i, offs, N_Byte
  
    !---------------------------------------------------------------------------------------------------------------------------------
  