c THIS PROGRAM SHOWS MULTIPLE WAYS OF READING 10 NUMBERS INTO AN INTEGER ARRAY

       DIMENSION NUMBER(10)

C       THE FOLLOWING LOOP WILL OBTAIN 10 INTEGER VALUES FROM THE USER
C       HOWEVER YOU NEED A LINE OF INPUT DATA FOR EACH OF THE 10 READS
       DO 20 I = 1, 10
           READ (5, 30) NUMBER(I)
   20   CONTINUE
   30   FORMAT (10I2)
        DO 40 I = 1, 10
           WRITE (6, 50) NUMBER(I)
   40   CONTINUE
   50   FORMAT (1X, I2)

C      ALL 10 INPUT VALUES CAN BE ON 1 LINE BUT YOU NEED 10 VARIABLES
C      IN YOUR READ STATEMENT
       READ (5,30 ) NUMBER(1), NUMBER(2), NUMBER(3), NUMBER(4),
     6    NUMBER(5), NUMBER(6), NUMBER(7), NUMBER(8), NUMBER(9),
     6    NUMBER(10)

       DO 60 I = 1, 10
          WRITE (6,50) NUMBER(I)
   60  CONTINUE

       READ (5, 70) (NUMBER(I), I = 1,10)
   70  FORMAT (10I2)
   
       DO 80 I = 1, 10
          WRITE (6,50) NUMBER(I)
   80  CONTINUE