real function f(x)                                                        
      real x                                                                    
      f = x*(x*x - 2.) - 5.                                                     
      return                                                                    
      end                                                                       

.