anchor.diff:  
       ! Update the number of items and selected items
   
  -    nItems = pos
  -
  -    iend = iini + nItems - 1
  -
  -    iType   => iType_(iini:iend)
  -
  -    iNumber => iNumber_(iini:iend)
  -
  -    iWidth  => iWidth_(iini:iend)
  -
  -    iLength => iLength_(iini:iend)
  +    call updateCurrItems(iini, iini + pos - 1)
  +
  +!!$    nItems = pos
  +!!$
  +!!$    iend = iini + nItems - 1
  +!!$
  +!!$    iType   => iType_(iini:iend)
  +!!$
  +!!$    iNumber => iNumber_(iini:iend)
  +!!$
  +!!$    iWidth  => iWidth_(iini:iend)
  +!!$
  +!!$    iLength => iLength_(iini:iend)
   
     end subroutine extractBoxes
   
  
positive.code: 
      write(*,*) 'Removing item', iNumber(nItems)
  
      nItems = nItems - 1
  
      iend = iend - 1
  
      iType   => iType_(iini:iend)
  
      iNumber => iNumber_(iini:iend)
  
      iWidth  => iWidth_(iini:iend)
  
      iLength => iLength_(iini:iend)
  
    end subroutine removeAppendedBox
  
  
negative.code: 
         call swap(x, iWidth_, iLength_, iType_, iNumber_, item, iend + 1)
  
         call updateCurrItems(iini, iend + 1)
  
  !!$       nItems = nItems + 1
  !!$
  !!$       iend = iend + 1
  !!$       
  !!$       iType   => iType_(iini:iend)
  !!$       
  !!$       iNumber => iNumber_(iini:iend)
  !!$       
  !!$       iWidth  => iWidth_(iini:iend)
  !!$       
  !!$       iLength => iLength_(iini:iend)
  
         !write(*,*), iNumber_(item), iNumber(nItems)
  
  