anchor.diff:          
        end do
   
  -     do container = lastContainer, 2, -1
  +     do container = lastContainer, nCntnr - 1
           
  -        call setCurrContainer(container)
  +        call setCurrContainer(lCntnr(container))
   
           if ( cWidth * cLength .gt. tiArea ) then 
   
  
positive.code:   end do 
    write(*,*) 'Items total area:', area
  
    allocate(lbest(2 * nTItems + 1), x(2 * nTItems + 1), stat=allocerr)
  
    if ( allocerr .ne. 0 ) then
  
       write(*,*) 'Allocation error in main program'
       
       stop
       
    end if
  
    lastContainer = nContainers
  
    do while ( nItems .gt. 0 )
       
  
negative.code:   character(80)         :: filename, solfname
    character(len=15)     :: strtmp
    real(kind=8), pointer :: x(:),lbest(:)
    integer, allocatable  :: lCntnr(:)
  
    ! EXTERNAL SUBROUTINES
    external :: myevalf,myevalg,myevalh,myevalc,myevaljac,myevalhc, &
  