program main
implicit none
integer::a(3,3),i,j
do i=1,3
a(i,:)=2*i
end do
open(12,file="g:\datte.csv")
do i=1,3
write(12,"(3(i3,','))") a(i,:)'gfortran只可以使用''
'write(12,"(3(i3,","))") a(i,:)'oneapi 可以使用""
end do
close(12)
stop
end
Fortran 格式化输出数组到excel
最新推荐文章于 2024-07-18 10:43:12 发布