anchor.diff:  ! ******************************************************************
   
     subroutine removeBoxes()
  +
  +    ! This subroutine remove the items packed in the current
  +    ! container.
   
       implicit none
   
  
positive.code:     iWidth  =>  iWidth_(iini:iend)
  
      deallocate(types, tL, tW)
  
      close(99)
  
    end subroutine loadData
  
  
negative.code: 
      end do
  
      close(99)
  
      ! Initialize the number of used containers
  
      nTContainers = 0
  
      ! Create all items
  
      ! TODO: test allocation error
      allocate(iType_(nTItems), iLength_(nTItems), iWidth_(nTItems), &
               iNumber_(nTItems), cTypeUsed_(nTItems), cStartEnd_(nTItems))
  
  