Fortran数据写出格式请教

geoyang

各位大侠，小弟刚接触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

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

查看代码

打印?

01	Program www_fcode_cn

02	Implicit None

03	Integer :: k

04	Real :: a(6)

05	Open( 12 , File = '旧文件' )

06	Open( 13 , File = '新文件' )

07

Do

08	Read( 12 , * , iostat = k ) a

09	if ( k /= 0 ) exit

10	write( 13 , '(6F12.4)' ) a

11

End Do

12	End Program www_fcode_cn

geoyang

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

哈哈，多谢多谢了！