do I=1,players
call Get_Distance(angle(i),speed(i),distance(i))
open(unit=10,file="distance.txt")
write(10,"('player',I1,'=',F8.2)")I,distance(i)
end do
stop
end
为什么open语句只有放在橘黄色行能运行,在绿色和紫色行不能运行?
作者: li913 时间: 2015-5-24 19:27
fortran 中,每个程序单元(函数、子程序,模块等)中的定义语句和执行语句是分开的,定义语句(如 real :: a,b)写完后,才能出现执行语句(比如open)。于此不同,像vb语言,可以在任意地方定义变量。