anchor.diff:    ! Item's dimensions
     real(8), target, allocatable :: iLength_(:)
     real(8), target, allocatable :: iWidth_(:)
  -
  +  !Item's Id
  +  integer, target, allocatable :: iId_(:)
     ! Maximum number of items in the largest Container
     integer, allocatable :: maxItems(:)
     ! Type of container for each type of item
  
positive.code:     implicit none
  
      ! LOCAL SCALARS
      integer :: i, t, iprev
      character(80) :: filename
  
      ! LOCAL ARRAYS
      integer, allocatable :: types(:)
      real(8), allocatable :: tW(:), tL(:)
  
      ! Container data
  
negative.code: 
      do t = 1, nTypes
  
         read(99, *) tL(t), tW(t), tId(t)
  
         call setMaxItems(t, tL(t), tW(t))
  
  