单程序结果正确,套循环就不行了

琉璃

real a,b,c,d,e,f,g
integer  q,w,h,l,m,n,o,p


read(*,*)a,b,c,d,e,f,g
open(unit = 1,file = "C:\data.txt")
l=0
m=0
n=0
o=0
p=0
do while(.not.eof(1))
read(1,*)q,w,h
if((q==a).and.(w==b).and.(h>=c).and.(h<d))then
l=l+1
else if((q==a).and.(w==b).and.(h>=d).and.(h<e))then
m=m+1
else if((q==a).and.(w==b).and.(h>=e).and.(h<f))then
n=n+1
else if((q==a).and.(w==b).and.(h>=f).and.(h<g))then
o=o+1
else if((q==a).and.(w==b).and.(h>=g))then
p=p+1
end if
end do
print*,l,m,n,o,p

end
编的是一个输入 站点a  规定指标b 然后分级标准的 c d e f g求每个等级个数的程序
但是在空行里面加入循环do j=1,52

end do变成real a,b,c,d,e,f,g
integer  q,w,h,l,m,n,o,p
do j=1,52
read(*,*)a,b,c,d,e,f,g
open(unit = 1,file = "C:\data.txt")
l=0
m=0
n=0
o=0
p=0
do while(.not.eof(1))
read(1,*)q,w,h
if((q==a).and.(w==b).and.(h>=c).and.(h<d))then
l=l+1
else if((q==a).and.(w==b).and.(h>=d).and.(h<e))then
m=m+1
else if((q==a).and.(w==b).and.(h>=e).and.(h<f))then
n=n+1
else if((q==a).and.(w==b).and.(h>=f).and.(h<g))then
o=o+1
else if((q==a).and.(w==b).and.(h>=g))then
p=p+1
end if
end do
print*,l,m,n,o,p
end do
end结果全是0

琉璃

57602        1        703        860        1035         1222         1438这是一行数据

56038        1        703        860        1035         1222         1438
56079        1        703        860        1035         1222         1438
56132        1        703        860        1035         1222         1438
56144        1        703        860        1035         1222         1438
56146        1        703        860        1035         1222         1438
56152        1        703        860        1035         1222         1438
56167        1        703        860        1035         1222         1438
56171        1        703        860        1035         1222         1438
56172        1        703        860        1035         1222         1438
56173        1        703        860        1035         1222         1438
56178        1        703        860        1035         1222         1438
56182        1        703        860        1035         1222         1438
56187        1        703        860        1035         1222         1438
56188        1        703        860        1035         1222         1438
56193        1        703        860        1035         1222         1438
56196        1        703        860        1035         1222         1438
56247        1        703        860        1035         1222         1438
56251        1        703        860        1035         1222         1438
56257        1        703        860        1035         1222         1438
56265        1        703        860        1035         1222         1438
56287        1        703        860        1035         1222         1438
56294        1        703        860        1035         1222         1438
56298        1        703        860        1035         1222         1438
56357        1        703        860        1035         1222         1438
56374        1        703        860        1035         1222         1438
56376        1        703        860        1035         1222         1438
56385        1        703        860        1035         1222         1438
56386        1        703        860        1035         1222         1438
56441        1        703        860        1035         1222         1438
56459        1        703        860        1035         1222         1438
56462        1        703        860        1035         1222         1438
56475        1        703        860        1035         1222         1438
56479        1        703        860        1035         1222         1438
56485        1        703        860        1035         1222         1438
56492        1        703        860        1035         1222         1438
56565        1        703        860        1035         1222         1438
56571        1        703        860        1035         1222         1438
56666        1        703        860        1035         1222         1438
56671        1        703        860        1035         1222         1438
56674        1        703        860        1035         1222         1438
57206        1        703        860        1035         1222         1438
57237        1        703        860        1035         1222         1438
57306        1        703        860        1035         1222         1438
57313        1        703        860        1035         1222         1438
57328        1        703        860        1035         1222         1438
57405        1        703        860        1035         1222         1438
57411        1        703        860        1035         1222         1438
57503        1        703        860        1035         1222         1438
57504        1        703        860        1035         1222         1438
57602        1        703        860        1035         1222         1438
57604        1        703        860        1035         1222         1438
57608        1        703        860        1035         1222         1438总筛选数据

琉璃

这个是data筛选的数据  不知道为什么套入循环结果就错误了

琉璃

DATA数据在这里

Mid_Farmer

个人观点（没有试验）：你的结果应该不会全是0吧 应该有第一组数据出来的 在print*,l,m,n,o,p后加句close（1）试试行不行呢？

weather3699

就是

琉璃

Mid_Farmer 发表于 2014-5-12 18:08
个人观点（没有试验）：你的结果应该不会全是0吧 应该有第一组数据出来的 在print*,l,m,n,o,p后加句close（ ...

昨天已经解决了 就是这个原因  十分感谢