anchor.diff:  
          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)
  +          if ( evalover(x, i, j) .gt. &
  +               min(iWidth(i), iWidth(j)) ** 2.0D0 ) then
  +
  +             if ( VERBOSE ) write(*, FMT=1002) iNumber(i), iNumber(j)
   
                call swap(x, iLength, iWidth, iType, iNumber,iId, i, pos)
   
  
positive.code:     ! SCALAR ARGUMENTS
      integer, intent(in) :: nit
  
      if ( nit .gt. nItems ) write(*,*) 'WARNING: Number of removed', &
           'items greater than total number of items!'
  
      if ( nit .gt. 0 ) then
  
  
negative.code: 
      end do
  
      if ( VERBOSE ) &
           write(*,FMT=0080) nTContainers, nTItems, tbArea,  &
           tiArea, (tbArea / tiArea - 1.0D0) * 100.0D0, &
           elapsedTime * 1.0D+02
  
  