anchor.diff:    implicit none
   
     ! LOCAL SCALARS
  -  logical      :: hasAppended, useReduction
  +  logical      :: hasAppended, useReduction, useHeuristic
     integer      :: allocerr, i, j, it, container, numberOfSolutions, &
          lastContainer, nAllocTrials, nCntnr
     ! Timing variables
  
positive.code:      write(*,*) 'Solving allocation problem'
       write(*,*)
  
       do while ( .true. )
  
          ! Optimize
  
  
negative.code: 
    useReduction = .true.
  
    ! Check arguments for Heuristic Mode
    useHeuristic = .true.
  
    if ( COMMAND_ARGUMENT_COUNT() .EQ. 1 ) then
  
       CALL GET_COMMAND_ARGUMENT(1, strtmp)
  
       read(strtmp, *) useHeuristic
  
    end if
    
    ! Start timing
  
    call SYSTEM_CLOCK(tini, ticks_ps)
  