c(2,3)=[1 2 3;4 5 6] !2行3列
program ex
integer,parameter::a=2,b=3
integer c(2,3),k,p
c(1,1)=1
c(1,2)=2
c(1,3)=3
c(2,1)=4
c(2,2)=5
c(2,3)=6
open(10,file='D:\Fortran\演示2\exe1\exe1.txt')
do k=1,a
write(10,"(3I4)") (c(k,p),p=1,b)
end do
end program ex
保存的结果为原始数据格式