DO 10 I = 1,10
               X = RAND (5)
             WRITE (6,*) X
  10      CONTINUE
             STOP
             END