Fortran- 檔案讀取問題

有一個變數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)

請問該如何修正

--