Program Rmin1 c--------------------------------------------------------- c Driver program for fmin.f c a single minimum of a fuunction f(x) in [a,b] interval c October 2006 c--------------------------------------------------------- Real*8 f,a,b,rmin,eps Integer*4 iflag External f a = 0.0 b = 6.28 eps = 1.0e-6 rmin = fmin(a,b,f,eps) write(*,100) rmin 100 Format(' minimum =',1pe12.5) stop End c----------------------------------------------------- c Function f(x) c----------------------------------------------------- Function f(x) Real*8 f, x f = sin(x) return end