TXT 和 CSV 的读取方式是一样的。Integer , parameter :: N = 行数Integer :: iReal :: Time(N) , P(N)Open( 12 , File = 文件名 )Read( 12 , * ) !// 跳过第一行表头Do i = 1 , N Read( 12 , * ) Time(i) , P(i)End Do
你好 你是怎么做的啊
