Fortran语言 循环语句求助！

crrcrr

题目是输入100名学生的学号和五门课的成绩，要求统计并打印出总分成绩最高学生的学号、各门课成绩、总成绩及平均成绩。我先编了一个5名学生和五门课成绩的。程序如下：

[Fortran] 纯文本查看 复制代码

open(10,file='data')
open(20,file='out')
read(10,*)
write(20,100)
100 format(1x,"学号 数学 物理 化学 生物 英语 总成绩 平均成绩")
do i=1,5,1
read(10,*)x,m,p,c,b,e
enddo
max=0
do i=1,5,1
   t=m+p+c+b+e
   if(t>max)then
   max=t
   endif
enddo
a=max/5
write(20,200)x,m,p,c,b,e,max,a
200 format(i4,5f6.1,2f8.1)
end

然后准备的data文件是这样的：
1  80.0  68.0  98.0  69.0  65.0
2  96.0  78.0  96.0  77.0  82.0
3  78.0  80.0  80.0  89.0  75.0
4  68.0  96.0  78.0  91.0  88.0
5  98.0  98.0  68.0  94.0  100.0
编译没问题，但是运行的时候显示run-time error F6101(data)-invaild integer
不知道哪错了本人是Fortran菜鸟一枚，被这个程序弄得焦头烂额，求大神赐教！

crrcrr

chuxf 发表于 2014-5-24 17:44
给你一些建议：
1.在程序里使用 Implicit None，并且要声明所有变量的名字。（这就是导致你 invaild intege ...

谢谢大神！！