Fortran可变输出格式

2014-08-15 13:14:02

# 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 ((1x,F18.6))

! 方法三: format中使用字符串

OUTFMT='(30f11.3)'
write(*, trim(OUTFMT)) (x(i),i=1,ni)

end
</code></pre>