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:   ! 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
  