real*8 a dimension a(100) open(1,file="data") do j=1,100 do i=1,20 read(1,*) a(5*i-4),a(5*i-3),a(5*i-2),a(5*i-1),a(5*i) end do write(*,11) (a(i),i=1,100) end do 11 format(100e16.8) end