如何读取这样的txt

我是气旋

文件是.TXT的，每个文件是这样的


              PS4000IC  0.10102E-08 0.96774E-09 0.91560E-09  。。。。。。（后面都是类似的数字，每个数字用空格隔开）
              PS4000BC  0.22160E-17 0.22968E-17 0.27787E-17 。。。。。。
              。。。。。。


一共m行，n列
我想把第一列是个字符串读到一个数组中，后面的数字读到另外的m个数组中。

楚香饭

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

查看代码

打印?

01	Program www_fcode_cn

02	Implicit None

03	Integer , parameter :: m = 30 , n = 20 !// 请改成您的数字

04	Character( Len = 30 ) :: cStr( m )

05	Real :: rData( n , m ) !// 可能需要把 n 改为 n-1

06	Integer :: i

07	Open( 12 , File = "文件名" )

08	Do i = 1 , m

09	Read( 12 , * ) cStr( i ) , rData( : , i )

10

End Do

11	Close( 12 )

12	End Program www_fcode_cn

麦田守望者

楚香饭 发表于 2014-9-3 05:55
[mw_shl_code=fortran,true]Program www_fcode_cn
  Implicit None
  Integer , parameter :: m = 30 , n = ...

为什么不用 REAL:: rData(m,n-1)
               read(12,*)cStr(i),rData(i,:)

楚香饭

一回事，就是效率可能有差异。