C    illustration of use of implied do loops reading 80 columns of data and
C    formatting them differently

          DIMENSION A(40), B(20), C(16)
          READ (5, 100) (A(I),  I = 1,40)
  100     FORMAT (40F2.1)
          READ (5, 101) (B(I),  I = 1,20)
  101     FORMAT (20F4.2)
          READ (5, 102) (C(I),  I = 1,16)
  102     FORMAT (16F5.3)
          WRITE (6, 200) (A(I),  I = 1,40)
 200       FORMAT (1X, 40F4.1)
          WRITE (6, 201) (B(I),  I = 1,20)
 201     FORMAT (1X, 20F6.2)
          WRITE (6, 202) (C(I),  I = 1,16)
 202     FORMAT (16F7.3)
         STOP
         END