anchor.diff:  
       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)
  +    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)
   
     end subroutine removeAppendedBox
   
  
positive.code: 
      end if
  
      iini = iini + nit
  
      iend = nTItems
  
      nItems = iend - iini + 1
  
      iType   => iType_(iini:iend)
  
      iNumber => iNumber_(iini:iend)
  
      iWidth  => iWidth_(iini:iend)
  
      iLength => iLength_(iini:iend)
  
    end subroutine removeItems
    
  ! ******************************************************************
  ! ******************************************************************
  
  
negative.code: 
      end do
  
      call updateCurrItems(1, nTItems)
  
  !!$    iini = 1
  !!$
  !!$    iend = nTItems
  !!$
  !!$    nItems = nTItems
  !!$
  !!$    ! Initialize common pointers
  !!$
  !!$    iType   => iType_(iini:iend)
  !!$
  !!$    iNumber => iNumber_(iini:iend)
  !!$
  !!$    iLength => iLength_(iini:iend)
  !!$
  !!$    iWidth  =>  iWidth_(iini:iend)
  
      deallocate(types, tL, tW)
  
  