Question

fortran读入TXT数据。显示读入错误END OF FILE DURING READ,UNIT 10..........

0.50 1 -0.15
7.08 0 0.50
12.33 0 -0.37
19.75 0 0.77
1.50 2 -0.45
8.42 0 0.43
12.50 0 -0.24
20.17 0 0.99
2.58 3 -0.61
9.25 0 0.23
12.83 0 -0.26
19.67 0 0.94
3.75 4 -0.85
10.00 0 0.04
13.67 0 -0.23
20.58 0 0.99
5.00 5 -0.99
...................共120行---------
打算先把全部用数组a(120,3)存取，在设置b（120），c（120），d（120）来分别存储三列的数据。
莫喷，新手。
program homework
implicit none
integer::i,j
real::a(120,3),b(120),c(120),d(120)
open(10,file='12.txt',status='old')
rewind(10)
do i=1,3;do j=1,120;read(10,*) a(j,i);end do;end do
do i=1,120;b(i)=a(i,1);end do
do i=1,120;c(i)=a(i,2);end do
do i=1,120;d(i)=a(i,3);end do
close(10)
write(*,*) c(3)
end program

Answer 1

您好，我也遇到了相似的问题。

请问把数组存储，是把数组存储在哪里？自己新建的文件？

Answer 2

do i=1,3;do j=1,120;read(10,*) a(j,i);end do;end do
这一行错了，改为
do j=1,120;do i=1,3;read(10,*) a(j,i);end do;end do

Answer 3

提示说你准备的 数据比程序中要的少了几个

Answer 4

很有可能是数组长度跟数据个数不符