Fortran数据写出格式请教

geoyang · 发表于 2016-2-16 16:38:44

各位大侠，小弟刚接触Fortran，对数据格式写出格式不太懂，想请教一下我这个数据该咋读和按要求的格式写出啊？
我有列数据如下：
4565
44566
44567
44568
44565
44566
4565
44563
99999
44561
44563
44564
...
想通过Fortran读完后按6F12.4这个格式写出
4565.000 44566.000 44567.000 44568.000 44565.000 44566.000
4565.000 44563.000 99999.000 44561.000 44563.000 44564.000

.....
即每行6个数据，每个数据占12个characters，并且带4个decimal places

请教各位大侠，这个程序该咋写呢？非常感谢

fcode · 发表于 2016-2-16 17:13:02

[Fortran] 纯文本查看 复制代码

Program www_fcode_cn
  Implicit None
  Integer :: k
  Real :: a(6)
  Open( 12 , File = '旧文件' )
  Open( 13 , File = '新文件' )
  Do
    Read( 12 , * , iostat = k ) a
    if ( k /= 0 ) exit
    write( 13 , '(6F12.4)' ) a
  End Do
End Program www_fcode_cn

geoyang · 发表于 2016-2-16 17:20:40

fcode 发表于 2016-2-16 17:13
[mw_shl_code=fortran,true]Program www_fcode_cn
Implicit None
Integer :: k

哈哈，多谢多谢了！

[文件读写] Fortran数据写出格式请教

美女勋章

热心勋章

星光勋章

新人勋章

贡献勋章

管理勋章

帅哥勋章

爱心勋章

规矩勋章

元老勋章

水王勋章