foo.f (examples/foo.f)

     1
     2
     3
     4
     5
     6
     7
     8
     9

      SUBROUTINE FOO( N )

      INTEGER  N

      EXTERNAL MYSUBR

      CALL MYSUBR( N )

      END