Listing 10: F77 function with one function that's an external function name and the other a REAL type.

C     Evaluate an external function
      REAL FUNCTION MYEVAL(F,X)
      MYEVAL = F(X)
      END