anchor.diff:      iWidth  => iWidth_(iini:iend)
   
       iLength => iLength_(iini:iend)
  +
  +	iId =>iId_(iini:iend) 
   
     end subroutine updateCurrItems
   
  
positive.code: 
         write(*,*) 'Appending item', iNumber_(item)
  
         call swap(x, iWidth_, iLength_, iType_, iNumber_, item, iend + 1)
  
         call updateCurrItems(iini, iend + 1)
  
  
negative.code: 
               write(*, *) 'Detected overlapping between', iNumber(i), 'and', iNumber(j)
  
               call swap(x, iLength, iWidth, iType, iNumber,iId, i, pos)
  
               pos = pos - 1
  
  