real function real x f Found at: ftp.icm.edu.pl:70/packages/netlib/sfmm/f.f real function f(x) real x f = x*(x*x - 2.) - 5. return end . AD:Your message here...