anchor.diff:  ! ******************************************************************
   ! ******************************************************************
   
  +  subroutine setMaxItems(itemType, itemL, itemW)
  +
  +    implicit none
  +
  +    ! SCALAR ARGUMENTS
  +    integer, intent(in) :: itemType
  +    real(kind=8), intent(in) :: itemL, itemW
  +
  +    ! LOCAL SCALARS
  +    integer :: maxW, maxL
  +
  +    maxW = INT(cWidth_(1) / itemW)
  +
  +    maxL = INT(cLength_(1) / itemL)
  +    
  +    maxItems(itemType) = maxW * maxL
  +
  +    contType(itemType) = 1
  +
  +  end subroutine setMaxItems
  +
  +! ******************************************************************
  +! ******************************************************************
  +
     subroutine loadData(filename)
   
       implicit none
  
positive.code: 
      read(99, *) nTypes
  
      allocate(types(nTypes), tL(nTypes), tW(nTypes))
  
      do t = 1, nTypes
  
         read(99, *) tL(t), tW(t)
  
      end do
  
  
negative.code:   ! integer, parameter :: conttype(4) = (/ 2 ,  1,  1, 1 /)
  
    ! Maximum number of items for each type
    ! integer, parameter :: maxitems(4) = (/ 121, 64, 64, 36 /)
    ! Type of container for each type of item
    ! integer, parameter :: conttype(4) = (/   1,  1,  1,  1 /)
    ! Configuration file: containers' dimensions
    character(80), parameter :: c_filename = 'containers.txt'
    ! Configuration file: items' dimensions
  