layout: post
title: Fortran可变输出格式
categories:
2014-08-15 13:14:02
<pre class="line-numbers" data-start="0"><code class="language-fortran"># Language: fortran
integer i, ni
real*8 x(1000)
character*80 OUTFMT
x=0.d0
ni=30
! 方法一: 用足够大的值
write(*, 100) (x(i), i=1,ni)
100 format (1000(1x,F18.6))
! 方法二: Ifort的扩展格式
write(*, 200) (x(i), i=1,ni)
200 format (<ni>(1x,F18.6))
! 方法三: format中使用字符串
OUTFMT='(30f11.3)'
write(*, trim(OUTFMT)) (x(i),i=1,ni)
end
</code></pre>