C An example of a simple subroutine

C Created:  Joe Zachary, October 18. 1992
C Modified:


C This subroutine prints out the number N 5 times.

      SUBROUTINE FIVE (NUMBER)
      IMPLICIT NONE
      REAL NUMBER

      PRINT *, NUMBER, NUMBER, NUMBER, NUMBER, NUMBER
      RETURN

      END


C A main program to test out the subroutine

      PROGRAM TEST
      IMPLICIT NONE
      REAL NUMBER

      PRINT *, 'Please enter a number:'
      READ *, NUMBER
      CALL FIVE(NUMBER)

      STOP
      END