!!*****************************************************************************
!! Procedury Fmin, BrentMin z knihy
!! "Computer Methods for Mathematical  Computations",
!! by George E. Forsythe, Michael A. Malcolm, and Cleve B. Moler
!! Prentice-Hall, 1977.
!!
!! Prepis pro Fortran 90:
!! Last updated: 28 February 2005 by Ralph Carmichael ralph@pdas.com 
!! Public Domain Aeronautical Software 
!! P.O. Box 1438 Santa Cruz CA 95061 USA 
!!
!! Drobne upravy pro g95
!! Jan Cely, UFKL,Prirodovedecka fakulta MU, leden 2007,brezen 2008
!!*****************************************************************************
!!
!!	Vsechny procedury pracuji v jednoduche (SP) i dvojite (DP) presnosti
!!.............................................................................
!!
!!	SUBROUTINE BrentMin(ax,bx,F,tol,maxIter,neval,errCode,xMin,fMin)
!!
!!	Brentova procedura pro nalezeni minima funkce F(x) na intervalu <ax,bx>
!!	VSTUP
!!	ax, bx		levy a pravy okraj intervalu pro lokalizaci minima
!!	F			funkce F(x)
!!	tol			pozadovany interval pro lokalizaci minima
!!	maxIter		maximalni povoleny pocet iteraci
!!	VYSTUP
!!	neval		INTEGER, pocet provedenych vypoctu funkce F(x)
!!	errCOde		INTEGER, 0 = OK, 1 = dosazen max. pocet iteraci
!!	xMin		poloha minima
!!	fMin		F(xMin)
!!
!!*****************************************************************************
!!
!!	FUNCTION Fmin(ax,bx,f,tol)
!!
!!	Hleda minimum funkce F(x) na intervalu <ax,bx>
!!	Vola proceduru BrentMin s s hodnotou MaxIter = 100
!!	VSTUP
!!	ax, bx		levy a pravy okraj intervalu pro lokalizaci minima
!!	F			funkce F(x)
!!	tol			pozadovany interval pro lokalizaci minima
!!*****************************************************************************