C Created: Joe Zachary, January 26, 1993
C Modified: 

C Looping a variable number of times


      PROGRAM LOOP
      IMPLICIT NONE
      INTEGER I, N
      REAL X, SUM

      PRINT *, 'How many numbers should I read?'
      READ *, N

      SUM = 0

      DO I = 1, N
        PRINT *, 'Please enter a number: '
        READ *, X
        SUM = SUM + X
      ENDDO

      PRINT *, 'The sum of the numbers is ', SUM

      STOP
      END