mysubr.f (examples/mysubr.f)

      1
      2
      3
      4
      5
      6
      7
      8
      9
     10
     11
     12
     13

      SUBROUTINE MYSUBR( N )

      INTEGER  N

      EXTERNAL FOO, DUMMY

      IF( N .GT. 1 ) THEN

         CALL FOO( N-1 )

      ELSE

         CALL DUMMY

      END IF

      END