anchor.diff:    ! integer, parameter :: conttype(4) = (/ 2 ,  1,  1, 1 /)
   
     ! Maximum number of items for each type
  -  integer, parameter :: maxitems(4) = (/ 121, 64, 64, 36 /)
  +  ! integer, parameter :: maxitems(4) = (/ 121, 64, 64, 36 /)
     ! Type of container for each type of item
  -  integer, parameter :: conttype(4) = (/   1,  1,  1,  1 /)
  +  ! integer, parameter :: conttype(4) = (/   1,  1,  1,  1 /)
     ! Configuration file: containers' dimensions
     character(80), parameter :: c_filename = 'containers.txt'
     ! Configuration file: items' dimensions
  
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:   ! 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
  