5カラム毎に改行された100x100データを正方表示、 Fortranで

       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