Listing 1: Fortran file for first example.

C     ex1.for  —  —  FORTRAN file for example 1
      FUNCTION FOO(X) RESULT (R)
      REAL  X
      REAL :: R
      R = X * 2
      END FUNCTION