      SUBROUTINE FOO( N )

      INTEGER  N

      EXTERNAL MYSUBR

      CALL MYSUBR( N )

      END
