Question

Fortran数据输出，我有一个一维数组，想输出到一个txt中 写成31*12的，求大神指点

Answer 1

例如，你的文件通道号是NUNIT,数组是一维是a，可以参照下面程序输出
do i=1,31
write(nunit,'(12f)') (a((i-1)*12+j),j=1,12)
enddo

Answer 2

program main
implicit none
real ::a(31*12) !假设你的数组是这么大
integer :: i
open(1001,file="xx.txt")
do i=1,31*12-11,12
write(1001,"(12f20.5)")a(i:i+11)
end do
close(1001)
end program

Answer 3

real a(31*12) !//这是一维数组，注意里面不是逗号，是乘号。

Do i = 1 , 31
write(*,*) a( (i-1)*12+1 : i*12 )
End Do