作者alecyen (恩～)
看板Fortran
标题Re: [问题] write 单行的限制
时间Tue Oct 12 15:15:33 2010
※ 引述《alecyen (恩～)》之铭言：
: 请问有谁了解write出几个变数在一行
: 上有限制个数吗？
: b=30
: a=15
: do i = 1 ,a
: write(*,*)(c(i,j),j=1,b)
: enddo
: 我发现第一行只输出19个变数，然後就跳到下一行
: 输出剩余的11个变数？
: 而我希望的是输出一个30x15的矩阵
解决方式：针对不同的b可以一次应付
write(crl,'(i3)')b
write(*,'(a)')crl
wtmp = '('//crl//'(f5.3,1x)'//')'
write(*,'(a)')wtmp
do i = 1, a
write(12,wtmp)(c(i,j), j = 1, b)
enddo
回馈一下～ 感谢给建议的朋友
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.115.21.119