深度 温度 电导率
50.00000 28.30186 54.27303
51.00000 28.28920 54.27039
52.00000 28.27396 54.26752
53.00000 28.25474 54.27453
54.00000 28.23691 54.28119
55.00000 28.23033 54.29279
56.00000 28.22947 54.30813
57.00000 28.21856 54.30784
58.00000 28.20773 54.31368
59.00000 28.19656 54.32171
60.00000 28.15063 54.28722
我用的是网上的一个数据,我写的程序为: CODE:PROGRAM TE
REAL::A(11,3)
INTEGER ::I,J
CHARACTER C
OPEN(13,FILE='Result.txt')
DO J=1,1
READ(13,*)C
ENDDO
OPEN(12,FILE='result1.TXT')
DO I=1,11
READ(13,*) A(I,1:3)
ENDDO
WRITE(12,;(3f10.5) A
CLOSE(13)
CLOSE(12)
END得到的结果是:
50.00000 51.00000 52.00000
53.00000 54.00000 55.00000
56.00000 57.00000 58.00000
59.00000 60.00000 28.30186
28.28920 28.27396 28.25474
28.23691 28.23033 28.22947
28.21856 28.20773 28.19656
28.15063 54.27303 54.27039
54.26752 54.27453 54.28119
54.29279 54.30813 54.30784
54.31368 54.32171 54.28722
我想得到原来一样的数据,我看结果意思是按列读取,怎么能按行读取啊,或怎么能得到和原来一样的矩阵,如果可能的话,不要用A1,A2,A3三列来做,因为我的数据有很多列,谢谢了!
[ Last edited by jjdg on 2014-2-9 at 10:07 ] 返回小木虫查看更多
|