请高人指点，关于如何用do循环把数据文件读入数组的问题

逐风月

本人新手一枚，请大神指导如何把文件中的数据读入数组a中！
下面这一段是我自己编的，
我是希望 得到 a(1,1), a(1,2)为文件'wave.txt'第一行的前两个数据，a(2,1), a(2,2)为文件'wave.txt'第二行的前两个数据
   
     program wave_test
         integer a(2,2),i,j
         i=1
         j=1
        open(1,file='wave.txt')
           do  i=1,2,1
             do j=1,2,1
             read(1,100)  a(i,j)   
             enddo
           enddo
        print 100,    a(1,1), a(1,2),a(2,1), a(2,2)
100 format(i6,1x,i4/)
       close(1)
       end
计算结果是a(1,1), a(1,2),a(2,1), a(2,2)分别为wave.txt文件中第一列的前4个值，
也就说没有按我希望的先读第一行的第一个值，然后读第二个值，然后换行，读第二行的第一个值，再读第二个值，并分别赋给a(1,1), a(1,2),a(2,1), a(2,2)，请高手点拨

男紫汗

txt读取是一行读一次吧，这个二重循环只是读了4行
do  i=1,2,1
            
             read(1)  a(i,1)，a(i,2)
             enddo
         

逐风月

原来如此啊，感谢大侠
那如果txt文件里数据有20列的话岂不是要写成read(1)  a(i,1)，a(i,2）.......a(i,20）了，能不能也用循环解决读入列数很多的问题啊？

男紫汗

逐风月 发表于 2017-7-18 18:31
原来如此啊，感谢大侠
那如果txt文件里数据有20列的话岂不是要写成read(1)  a(i,1)，a(i,2）.... ...

我也是半吊子，不擅长

逐风月

男紫汗 发表于 2017-7-18 19:27
我也是半吊子，不擅长