C SAMPLE PROGRAM FOR FMIN
C
      REAL A, B, XSTAR, TOL, FMIN
      EXTERNAL F
      A     = 0.1
      B     = 0.9
      TOL   = 1.0E-5
      XSTAR = FMIN (A, B, F, TOL)
      WRITE (*,*) 'FMIN RESULTS'
      WRITE (*,*) ' XSTAR =', XSTAR
      WRITE (*,*)
      WRITE (*,*) 'REFERENCE RESULTS FROM IBM PC/AT'
      WRITE (*,*) ' XSTAR =   0.816777'    
      STOP
      END
C
      REAL FUNCTION F(X)
      REAL X
      F = X*(X*X - 2.0) - 5.0
      RETURN
      END