帮我看看这个Fortran程序，菜鸟级别

iem

就是把一个dat文件4列变成一列的问题

program bianhuan
   implicit none
    integer m,n,i,j,k
dimension a1(100,100),a2(100000)
    real a1,a2
      m=4
   n=4
   open(1,file='1.dat')                 !变换前的文件
      open(2,file='out.dat')               !变换输出的结果文件
   do i=1,m
      do j=1,n
      read(1,*) a1(i,j)
   
      enddo
       enddo
    do k=1,m*n
       a2(k)=a1(i,j)
        enddo
    write(2,*)a2(k)
end program

messenger

你这个循环 j  应该用隐Do循环

iem

隐do循环好像也不行啊，劳驾可不可以帮改一下，谢谢

fenglinxiaoxue

错误提示读取文件出错，检查一下1.dat。

iem

1.dat文件就是个四行四列的数据，应该没有什么问题啊

zhoulon

从你的出错提示来看，确实是文件读取错误，这种错误一般是文件的数据没有要读取的数据长时发生的。就你的问题而言，数据个数是对的，应该是数据读取格式问题。
再一个建议你的do循环最好加上行号，这样程序比较好确认一些，你的程序有点乱。

iem

谢谢总版主指点，我初学者，再试试看

zhanghuaa

第二个循环中的i,j是什么？所以不对！

zhanghuaa

就是a2(k)=a1(i,j)中的i,j如何赋值！？

qinxl

program bianhuan
   implicit none
   integer m,n,i,j,k
   real, dimension a1(100,100),a2(100000)
   m=4
   n=4
   open(1,file='1.dat', status='OLD', action='READ')
   open(2,file='out.dat', status='NEW', action='WRITE')
   do j=1,n
      do i=1,m
          read(1,*) a1(i,j)
          k = (j-1)*m+i
          a2(k)=a1(i,j)
          write(2,*)a2(k)
      enddo
   enddo
   close(1)
   close(2)
end program

iem

谢谢zhanghuaa的指点，让我知道问题出在哪里
谢谢qinxl 帮我修改程序