anchor.diff:    ! LOCAL SCALARS
     logical      :: hasAppended, useReduction
     integer      :: allocerr, i, j, it, container, numberOfSolutions, &
  -       lastContainer, nAllocTrials
  +       lastContainer, nAllocTrials, nCntnr
     ! Timing variables
     integer(kind=8) :: tini, tend, ticks_ps
     real(kind=8) :: elapsed, f, fbest, remArea, limItArea, area, tiArea
  
positive.code:   character(80)         :: filename, solfname
    character(len=15)     :: strtmp
    real(kind=8), pointer :: x(:),lbest(:)
  
    ! EXTERNAL SUBROUTINES
    external :: myevalf,myevalg,myevalh,myevalc,myevaljac,myevalhc, &
  
negative.code:         
       end do
  
       do container = lastContainer, nCntnr - 1
          
          call setCurrContainer(lCntnr(container))
  
          if ( cWidth * cLength .gt. tiArea ) then 
  
  