[文件读写] 如何读取这样的txt

Program www_fcode_cn
  Implicit None
  Integer , parameter :: m = 30 , n = 20 !// 请改成您的数字
  Character( Len = 30 ) :: cStr( m )
  Real :: rData( n , m ) !// 可能需要把 n 改为 n-1
  Integer :: i
  Open( 12 , File = "文件名" )
  Do i = 1 , m
    Read( 12 , * ) cStr( i ) , rData( : , i )
  End Do
  Close( 12 )
End Program www_fcode_cn