anchor.diff:    
     select case(vtk(rf)%f)
     case(ascii,binary,raw)
  -    close(unit=vtk(rf)%u, iostat=E_IO)
  +    inquire(unit=vtk(rf)%u, opened=fopen,iostat=E_IO) 
  +    if(fopen) close(unit=vtk(rf)%u, iostat=E_IO)
     end select
     !---------------------------------------------------------------------------------------------------------------------------------
     end function VTK_END_XML_READ
  
positive.code:   integer(I4P)                                 :: E_IO           !< Input/Output inquiring flag: $0$ if IO is done, $> 0$ if IO is not done
    character(len=:), allocatable                :: strng
    integer(I4P)                                 :: pos
    !---------------------------------------------------------------------------------------------------------------------------------
  
    !---------------------------------------------------------------------------------------------------------------------------------
  
negative.code:                    VTK_VAR_XML_LIST_1DA_I1_READ,VTK_VAR_XML_LIST_3DA_I1_READ    ! integer(I1P) list      1D/3D array
  endinterface
  
  interface VTK_FLD_XML_READ
    !< Procedure for saving field data (global auxiliary data, eg time, step number, dataset name, etc).
    !<
    !< VTK_FLD_XML_READ is an interface to 6 different functions, there are 2 functions for real field data and 4 functions for integer.
    !< VTK_FLD_XML_READ must be called after VTK_INI_XML_READ.
    !<
    !< Example of usage:
    !<
    !<```fortran
    !<...
    !<real(R8P)::    time
    !<integer(I4P):: step
    !<...
    !<E_IO=VTK_FLD_XML_READ(fname='TIME',fld=time)
    !<E_IO=VTK_FLD_XML_READ(fname='CYCLE',fld=step)
    !<...
    !<```
    module procedure VTK_FLD_XML_R8_READ, & ! real(R8P)    scalar
                     VTK_FLD_XML_R4_READ, & ! real(R4P)    scalar
                     VTK_FLD_XML_I8_READ, & ! integer(I8P) scalar
                     VTK_FLD_XML_I4_READ, & ! integer(I4P) scalar
                     VTK_FLD_XML_I2_READ, & ! integer(I2P) scalar
                     VTK_FLD_XML_I1_READ    ! integer(I1P) scalar
  endinterface
  
  
  !-----------------------------------------------------------------------------------------------------------------------------------
  
  !-----------------------------------------------------------------------------------------------------------------------------------
  