简单的fortran矩阵读入输出问题

云大小子

program main
implicit none
dimension mm(4,7)
integer mm
integer i,j
open(1,file= 'd:\rrr.txt',status='old')
!read(1,*)mm
do i=1,4
do j=1,7

  read(1,*)mm(i,j)
print *, mm(i,j)
enddo
enddo
end
为什么运行的时候只打印出第一列数据      ：     1
我的读入的txt数据如下，每个数据中间              5
有一个空格                                                         5
1 2 3 4 5 6 7                                                      8
5 6 3 8 9 4 5                                                      
5 6 7 4 2 3 1
8 6 3 4 5 6 4
这个问题出现在哪里呢，是我的书写方式有问题，还什么问题？

空谷幽兰

fortran每次读读一行，try：
open(1,file= 'd:\rrr.txt',status='old')
  read(1,*)((mm(i,j),j=1,7),i=1,4)
print *, mm(:,:)

or

open(1,file= 'd:\rrr.txt',status='old')
do i=1,4
  read(1,*)mm(i,1:7)
enddo

mofangbao

楼上正解，得用隐循环才行

云大小子

谢谢各位，非常感激

海豚∩_∩浩

为什么隐循环才可以呢？求解

赤橙黄绿青蓝

空谷幽兰 发表于 2011-12-10 19:31

                               
登录/注册后可看大图

fortran每次读读一行，try：
open(1,file= 'd:\rrr.txt',status='old')
  read(1,*)((mm(i,j),j=1,7),i= ...

非常有帮助，谢谢~

Mr.Yes

{:eb317:}{:eb317:}{:eb317:}感谢分享

zth1236822

感谢耐心解答