brentq Function

function brentq(func, a, b, tol) result(fzero)

Arguments

Type IntentOptional Attributes Name
function func(x)
Arguments
Type IntentOptional Attributes Name
real(kind=8), intent(in) :: x
Return Value real(kind=8)
real(kind=8), intent(in) :: a
real(kind=8), intent(in) :: b
real(kind=8), optional :: tol

Return Value real(kind=8)


Calls

proc~~brentq~~CallsGraph proc~brentq brentq zbrent zbrent proc~brentq->zbrent

Source Code

function brentq(func,a,b,tol) result(fzero)
  interface
     function func(x)
       real(8),intent(in) :: x
       real(8)            :: func
     end function func
  end interface
  real(8),intent(in) :: a,b
  real(8),optional   :: tol
  real(8)            :: fzero    
  real(8)            :: tol_    
  tol_=epsilon(a);if(present(tol))tol_=tol
  fzero = zbrent(func,a,b,tol_)
end function brentq