Fortran语言小程序编写,请各路大神帮忙

A 文件是多少行多少列？ 你说 “两个数为3600*K/6 3600*K/6/M。” 其中的 M 是什么？

我是问，A文件有多少行多少列？ 如果有 K*N 个数，是否是规则的 K 行 N 列 或 N 列 K 行？ 从图片上看，A文件貌似有点乱。 A 文件中的数据如何排列，会影响这个程序的复杂程度。

还是不太确定我理解的是否是你的需求。 你试试下面的代码，如果不对再追问 （需补齐 K N M 的值，及 A B 文件名） Program Baidu_Thlws Implicit None Integer , parameter :: K = Integer , parameter :: N = Integer , parameter :: M = 5 Real :: d( N , K ) integer :: i , j Open( 12 , File = 'A文件' ) Read( 12 , * ) d Close( 12 ) Open( 13 , File = 'B文件' ) Do i = 6 , K , 6 write( 13 , * ) 3600 * i / 6 , 3600 * i / 6 / ( M ) Do j = 1 , N write( 13 , * ) j , d( j , i ) End Do End Do Close( 13 ) End Program Baidu_Thlws

Program Baidu_Thlws Implicit None Integer , parameter :: K = Integer , parameter :: N = Integer , parameter :: M = 5 Real :: d( N , K ) integer :: i , j character( Len = 512 ) :: cFile Read( * , * ) cFile Open( 12 , File = Trim(cFile) ) Read( 12 , * ) d Close( 12 ) Open( 13 , File = 'fort.63' ) Do i = 6 , K , 6 write( 13 , * ) 3600 * i / 6 , 3600 * i / 6 / ( M ) Do j = 1 , N write( 13 , * ) j , d( j , i ) End Do End Do Close( 13 ) End Program Baidu_Thlws