      real*4 dd(5)
      data dd /1.,2.,3.,4.,5./
      do 100 i=1,100001,1000
        write(6,*)i, dd(i)
 100  continue
      end
  
