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