! Adapted from http://www.aspire.cs.uah.edu/textbook/fortran8008.html
! This program averages a series of numbers input 
! from the keyboard.
      PROGRAM average
      IMPLICIT none
! Type variables.
      REAL :: data, sum, avg
      INTEGER num, i
! Prompt for and enter number of numbers to average.
      PRINT *,"Enter the number of numbers to average."
      READ *,num
      sum = 0.0
! Loop goes from 1 to number of values to average.
      DO i = 1, num
! Prompt for and enter a number.
         PRINT *,"Enter a value for the number"
         READ *,data
! Add number to total.
         sum = sum + data
      END DO
! Calculate average.
      avg = sum/real(num)
! Print results.
      PRINT *,"The average = ",avg
      STOP
      END