real function minimum(a, b, func) ! Returns the minimum
! value of the function func(x) in the interval (a,b)
real, intent(in) :: a, b
interface
real function func(x)
real, intent(in) :: x
end function func
end interface
real :: f,x
:
f = func(x)
! invocation of the user function.
:
end function minimum