anchor.diff:        ttime = real(t2 - t1)/real(clock_rate)
         max_sec = clock_max/clock_rate
   
  -      write (*, '(a)') ' '
  -      write (*, '(a)') ' Optimal Solution Breakdown:'
  -      write (*, '(a)') ' '
  -      write (*, '(a)') '  Object  Quant.  Profit    Mass'
  -      write (*, '(a)') ' '
  -      mass = 0
  +      write (*,'(a,i0)') 'opt: ', z
  +      write (*,'(a,i0)') 'y_opt: ', y_opt
  +
  +      y_opt = 0
         do i = 1, n
           if ( x(i) .ge. 1 ) then
  -          mass = mass + w(i)*x(i)
  -          write (*, '(2x,i6,2x,i6,2x,i6,2x,i6)') i, x(i), p(i), w(i)
  +          y_opt = y_opt + w(i)*x(i)
  +          write (*, '(a,i0,a,i0,a,i0,a,i0,a,f19.9)') 'ix: ', i,
  +     *' qt: ', x(i), ' w: ', w(i), ' p: ', p(i), ' e: ',
  +     *real(p(i), real64)/real(w(i), real64)
           end if
         end do
  -      write (*, '(a)') ' '
  -
  -      write (*,'(a,i0)') 'opt: ', z
  -      write (*,'(a,i0)') 'y_opt: ', mass
  +
  +      write (*,'(a,i0)') 'c: ', c
  +      write (*,'(a,i0)') 'n: ', n
         write (*,'(a,f19.9)') 'Seconds: ', ttime
         write (*,'(a,i0)') 'Max number of seconds before wrap: ', max_sec
         stop
  
positive.code: c
  c  Modified:
  c
  c    TODO
  c
  c  Author:
  c
  
negative.code: c
  c  Modified:
  c
  c    Mon, 11 Jul 2016 01:41:23 -0300
  c
  c  Author:
  c
  