anchor.diff:  
       end do
   
  -    write(*,FMT=0080) nTContainers, nTItems, tbArea,  &
  +    if ( VERBOSE ) &
  +         write(*,FMT=0080) nTContainers, nTItems, tbArea,  &
            tiArea, (tbArea / tiArea - 1.0D0) * 100.0D0, &
            elapsedTime * 1.0D+02
   
  
positive.code: 
         do j = i - 1, 1, -1
  
            if ( evalover(x, i, j) .gt. min(iWidth(i), iWidth(j)) ** 2.0D0 ) then
  
               write(*, *) 'Detected overlapping between', iNumber(i), 'and', iNumber(j)
  
               call swap(x, iLength, iWidth, iType, iNumber,iId, i, pos)
  
  
negative.code: 
         ! Draw pattern
  
         if ( VERBOSE ) then
         
            write(*, FMT=1000) max(0, qot) * maxitems(curr_item), &
                 curr_item, max(0, qot), conttype(curr_item)
  
  1000      format('INFO: Eliminating ',I6,' items of type ',I3 &
                   ' in ',I6,' containers of type ',I3,'.')
  
         end if
  
         do i = 1, qot
  
  