A Complete Program
The following program reads three real numbers, prints 
 them, computes their average and prints it:
C THIS PROGRAM READS 3 REAL NUMBERS
C AND COMPUTES AND PRINTS THE AVERAGE
C
 REAL  NUM1, NUM2, NUM3, SUM, AVG
          PRINT*, ‘ENTER THREE REAL NUMBERS’
 READ*, NUM1, NUM2, NUM3
 PRINT*, 'THE NUMBERS ARE ', NUM1, NUM2, NUM3
 SUM = NUM1 + NUM2 + NUM3
          AVG = SUM / 3
 PRINT*, 'THE AVERAGE IS ', AVG
 END