anchor.diff:    end do 
     write(*,*) 'Items total area:', area
   
  -  allocate(lbest(2 * nTItems + 1), x(2 * nTItems + 1), stat=allocerr)
  +  allocate(lbest(2 * nTItems + 1), x(2 * nTItems + 1), &
  +           lCntnr(nContainers), stat=allocerr)
   
     if ( allocerr .ne. 0 ) then
   
  -     write(*,*) 'Allocation error in main program'
  +     write(*,*) 'Allocation errors in main program'
        
        stop
        
     end if
   
  -  lastContainer = nContainers
  +  call getAvContainers(lCntnr, nCntnr)
  +  
  +  lastContainer = 1
   
     do while ( nItems .gt. 0 )
        
  
positive.code:         
       end do
  
       do container = lastContainer, 2, -1
          
          call setCurrContainer(container)
  
          if ( cWidth * cLength .gt. tiArea ) then 
  
  
negative.code:   ! LOCAL SCALARS
    logical      :: hasAppended, useReduction
    integer      :: allocerr, i, j, it, container, numberOfSolutions, &
         lastContainer, nAllocTrials, nCntnr
    ! Timing variables
    integer(kind=8) :: tini, tend, ticks_ps
    real(kind=8) :: elapsed, f, fbest, remArea, limItArea, area, tiArea
  