Question

怎么用fortran读取这一个txt文件，然后求出每行相加的和，然后输出txt文件 谢谢

深度 温度 电导率
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

Answer 1

REAL;;A(11,3), B(3)=0
OPEN(11,FILE='AA.TXT')
DO I=1,11
READ(11,*) A(I,1:3)
B=B+A(I,1:3)
ENDDO
CLOSE(11)
OPEN(12,FILE='BB.TXT')
WRITE(12,*) B
CLOSE(12)
! ......
END

Answer 2

弄到excal里就行了，不用写代码