Question

我的fortran程序运行了出现的end of file encountered 求大神指点 这是怎么回事？？

parameter(n=10)
dimension R1(n),R2(n),D1(n),D2(n),p1(n),p2(n),a(n),L(n),MN(n)
real b1,B,f,y,O2F,c,xn,yn
open(1,file='lin.dat')
do i=1,n
read (1,20) R1(i),R2(i),D1(i),D2(i),p1(i),p2(i),a(i),L(i)
end do
20 format(8f5.1)
close(1)
open(2,file='lin2.dat')
do i=1,n
b1=R2(i)*tan(a(i)/2)+(D2(i)-p1(i)+p2(i))/(sin(a(i)))-R1(i)*tan(a(i)/2)-(D1(i)-p1(i)+p2(i))/tan(a(i))
B=R1(i)+p1(i)-D1(i)-p2(i)-R2(i)
f=L(i)/R1(i)*180/3.14
c=atan(b1/B)
O2F=b1/sin(c)*sin(c+f)
y=asin(O2F/R2(i))
xn=R2(i)*sin(c+y)-b1
yn=R2(i)*cos(c+y)+B
MN(i)=R1(i)-sqrt(xn**2+yn**2)
write(2,20) MN(i)
enddo
close(2)
end
数据：
8.0 13.0 20.0 13.0 2.0 1.0 3.0 7.0
1.0 1.0 1.0 1.0 1.0 8.0 8.0 8.0
1.0 4.0 1.0 2.0 3.0 5.0 5.0 5.0
1.0 6.0 4.0 5.0 6.0 5.0 5.0 5.0
1.0 6.0 4.0 5.0 7.0 5.0 5.0 5.0
12.0 9.0 8.0 9.0 10.0 4.0 4.0 4.0
12.0 9.0 8.0 9.0 11.0 3.0 3.0 3.0
12.0 6.0 4.0 12.0 13.0 1.0 1.0 1.0
12.0 6.0 4.0 12.0 14.0 9.0 9.0 9.0
12.0 0.0 0.0 0.0 0.0 4.0 4.0 4.0

Answer 1

从你的程序上来看应该没什么问题，你再确认一下数据是不是10行，让它一行一行的输出看看