作者btoker (阿瑞)
看板Fortran
标题[问题] 档案读取问题
时间Mon Aug 20 16:01:07 2018
有一个变数X=5 会产生下面的文字档
文字档共有40列 如下
10.66
8.43
72.47
50.29
29.91
10.66
8.43
72.47
50.29
29.91
99.99
8.43
72.47
50.29
29.91
99.99
8.43
72.47
50.29
29.91
1.
2.
3.
4.
5.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
6.
7.
8.
9.
10.
可以明显的发现这个数列是5个5个一组的
我想把第1列的10.66与第21列的1.0相乘
第2列的 8.43与第22列的2.0相乘 输出到另一个档案
初步错误的程式码如下
OPEN(UNIT=30,STATUS="OLD",FILE="INP.TXT")
OPEN(UNIT=31,FILE="OPT.TXT")
DO I=1,X*4,1
READ(30,*)EX
DO J=1,X*4,1
READ(30,*)AX
END DO
ANS=EX*AX
WRITE(31,*)ANS
END DO
CLOSE(30)
CLOSE(31)
请问该如何修正
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 218.161.15.8
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Fortran/M.1534752071.A.110.html
1F：→ blc: 回圈的I,J只负责计数，里面的READ不会因为I,J的值跳着读档 08/20 17:25
2F：→ Cypresslin: 首先修正你的缩排 08/29 15:23