        ! Fill in the reporting code
                !
                write(*,'(a,e12.4)')      'Value so far: ', value
                write(*,'(a,(5e12.4),/)') '    Vector:   ', x
                write(*,'(2(a,i5))')     '    Accepted: ', &amp;
                    params%accepted, ' from ', params%number_iterations

            case ( annealing_done )
                exit
        end select
    enddo

end subroutine find_minimum
}]

</ul>

<h2><a name="copyright">COPYRIGHT</a></h2>
<p>
