do 10 i=1,10
      read(5,*)k
      j=2*k
      write(6,100)i,j,k
 100  format(' This is a test ',3i5)
  10  continue
      end