Fortran可变输出格式

类别:    标签: 编程 fortran   阅读次数:   版权: (CC) BY-NC-SA

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>




随意赞赏

微信

支付宝
◆本文地址: , 转载请注明◆
◆评论问题: https://jerkwin.herokuapp.com/category/3/博客, 欢迎留言◆


前一篇: 3DPDF文件
后一篇: markdown在计算化学领域的扩展应用

访问人次(2015年7月 9日起): | 最后更新: 2017-12-09 02:20:13 UTC | 版权所有 © 2008 - 2017 Jerkwin