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:   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
    character(len=:), allocatable                :: strng
    integer(I4P)                                 :: pos
    integer(I4P)                                 :: p1,p2,p3
    !---------------------------------------------------------------------------------------------------------------------------------
  
    !---------------------------------------------------------------------------------------------------------------------------------
  