anchor.diff:  
             write(*,*) 'Item', iNumber(i)
   
  -          call swap(x, iLength, iWidth, iType, iNumber, pos, i)
  +          call swap(x, iLength, iWidth, iType, iNumber,iId, pos, i)
   
             pos = pos + 1
   
  
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: 
         if ( min_j .ne. i ) then
            
            call swap(x, iWidth, iLength, iType, iNumber,iId, i, min_j)
  
         end if
  
  