Question

fortran这个程序只能算一列的，我的dadt文件里可是3行3列，怎么输出啊？求答案

program main
implicit none
real,allocatable :: a(:)
integer n,error,i,j

open(10,file="dadt.txt")

n=0

do while(.true.)
read(10,*,iostat=error)
if(error/=0)then
exit
else
n=n+1
end if
end do

rewind(10)
allocate(a(n))

do i=1,n
read(10,*)a(i)
write(*,"(f8.1)")a(i)

end do

end

Answer 1

implicit none
real :: a(3*3)
integer error
open(10,file="dadt.txt")
read(10,*,iostat=error) a
write(*,"(3f)")a
end

Answer 2

楼主把倒数第三、四行的a(i)改为a就可以了。