anchor.diff:  
          if ( min_j .ne. i ) then
             
  -          call swap(x, iWidth, iLength, iType, iNumber, i, min_j)
  +          call swap(x, iWidth, iLength, iType, iNumber,iId, i, min_j)
   
          end if
   
  
positive.code: 
         write(*,*) 'Appending item', iNumber_(item)
  
         call swap(x, iWidth_, iLength_, iType_, iNumber_, item, iend + 1)
  
         call updateCurrItems(iini, iend + 1)
  
  
negative.code: 
               c = c + 1
  
               call swap(x, iWidth, iLength, iType, iNumber,iId, i, c)
  
            end if
  
  