anchor.diff:     enddo
      if ( kend > kspace ) then
         kend = kspace
  +   else if (info%line(1:4) == '<!--' .and. kend > kcend) then
  +      kend = kcend-1
      else
         close_bracket = .true.
      endif
  
positive.code:    close_bracket = .false.
     kspace        = index( info%line, ' ' )
     kend          = index( info%line, '>' )
     do while ( kend <= 0 )
        read( info%lun, '(a)', iostat = ierr ) nextline
        call xml_remove_tabs_(nextline)
  
negative.code: 
     integer         :: kspace
     integer         :: kend
     integer         :: kcend
     integer         :: keq
     integer         :: kfirst
     integer         :: ksecond
  