anchor.diff:    ! Item's dimensions
     real(8), target, allocatable :: iLength_(:)
     real(8), target, allocatable :: iWidth_(:)
  +
  +  ! Maximum number of items in the largest Container
  +  integer, allocatable :: maxItems(:)
  +  ! Type of container for each type of item
  +  integer, allocatable :: contType(:)
  +
     ! Types of containers used
     integer, pointer :: cTypeUsed_(:)
     ! Index to the items in the container
  
positive.code: ! ******************************************************************
  ! ******************************************************************
  
    subroutine loadData(filename)
  
      implicit none
  
negative.code: 
      read(99, *) nTypes
  
      ! TODO: test allocation error
      allocate(types(nTypes), tL(nTypes), tW(nTypes), maxItems(nTypes), &
               contType(nTypes))
  
      ! Load items sizes and initializes the maximum number of items in
      ! the largest container
      do t = 1, nTypes
  
         read(99, *) tL(t), tW(t)
  
         call setMaxItems(t, tL(t), tW(t))
  
      end do
  
  