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:           'Number of containers:', 35X, I4,/             &
            'Total area:', 39X, F10.2, /                   &
            'Total item area:', 34X, F10.2, /,             &
            'Waste ratio:', 38X, F10.6, /,                 &
            'Elapsed time (in ms):', 19X, F20.6)
  0090 FORMAT(I4, ';', F10.2, ';', F10.2, ';', F10.6, ';', &
            F20.6)
  
negative.code: 
      end do
  
      write(*,FMT=0080) nTContainers, tbArea, tiArea, &
           (tbArea / tiArea - 1.0D0) * 100.0D0, &
           elapsedTime * 1.0D+02
  
      ! Save STATS in file
  