看看格式化字符串的那部分吧，在书上的WRITE那儿：）

谢谢！

implicit none
integer,parameter:: n=10
integer a(n,n),i,j

open(10,file="out.txt")
do i=1,n
    do j=1,n
        a(i,j)=(i-1)*10+j-1
    end do
end do

write(10,"(10I5)")(a(i,:),i=1,n)
end