anchor.diff:      open(99, FILE='stats.txt')
       
       write(99, FMT=0090) nTContainers, tbArea, tiArea, &
  -         tbArea / tiArea, elapsedTime * 1.0D+02
  +         (tbArea / tiArea - 1.0D0) * 100.0D0,         &
  +         elapsedTime * 1.0D+02
   
       close(99)
   
  
positive.code:     integer :: i, c
      real(8) :: tiArea, tbArea
  
      do i = 1, nTItems
  
         tiArea = tiArea + iWidth_(i) * iLength_(i)
  
      end do
  
      do i = 1, nTContainers
  
         c = cTypeUsed_(i)
  
negative.code: 
      end do
  
      write(*,FMT=0080) nTContainers, tbArea, tiArea, &
           (tbArea / tiArea - 1.0D0) * 100.0D0, &
           elapsedTime * 1.0D+02
  
      ! Save STATS in file
  