anchor.diff:      iWidth  => iWidth_(iini:iend)
   
       iLength => iLength_(iini:iend)
  +
  +	iId =>iId_(iini:iend) 
   
     end subroutine updateCurrItems
   
  
positive.code: 
               write(*, *) 'Detected overlapping between', iNumber(i), 'and', iNumber(j)
  
               call swap(x, iLength, iWidth, iType, iNumber, i, pos)
  
               pos = pos - 1
  
  
negative.code: ! ******************************************************************
  ! ******************************************************************
  
    subroutine swap(x, vw, vl, vt, vn,vid,it1, it2)
  
      ! Swaps positions related to items it1 and it2 in real vectors vw,
      ! vl and integer vectors vt, vn
  