fortran读写数据格式问题

宁馨儿

fortran新手求助：
打开数据后原样写到另一个txt中 但是行列数都不对了 请教如何解决

program main
parameter(n=3,m=3)
      integer x(n,m)
      open(10,file='e:\cx\1.txt')      
       read(10,*)((x(i,j),i=1,n),j=1,m)      
      close(10)
      open(20,file='e:\cx\2.txt')
      write(20,*)((x(i,j),i=1,n),j=1,m)
      close(20)
   end

宝贝琴

这样好像不会换行，写成外循环。

霹雳电光鼠

program main
parameter(n=3,m=3)
      integer x(n,m)
      open(10,file='e:\cx\1.txt')      
       read(10,*)((x(i,j),i=1,n),j=1,m)      
      close(10)
      open(20,file='e:\cx\2.txt')
      do j=1,m
        write(20,*)(x(i,j),i=1,n)
       end do
      close(20)
   end