fortran三重循环，外循只能循环一次，急

123出去玩

程序如下，
do 10, z = sta,1,-1
open(14,file= filename(z))
print *,z
nn=0
sum=0.0
aver=0.0
allocate(datas(stations,cols))
do 20,k= 1,stations
  read (14,*)(datas(k,m),m = 1,cols)
  do 30, n = 1,stations
   if (datas(k,1)==station(n))then
    nn = nn+1
    write(12,'(f10.2,4x,f8.2,4X,f8.2,4X,f6.2)')datas(k,1),datas(k,2),datas(k,3),datas(k,5)
    print*,datas(k,1),datas(k,2),datas(k,3),datas(k,5)
    endif
30 continue
20 continue
write(12,*)nn
deallocate(datas)
close(14)
10 continue
end
显示结果

只循环了一次我也是挺郁闷的

外循环只有一次进了内循环的，我也是挺郁闷的，哪位大神有空帮帮忙啊~

lqouc

没看出来不能进内循环，很可能只是没进你的if块

tekDisplay

1. if (datas(k,1)==station(n))then
   
2.     nn = nn+1
   
3.     write(12,'(f10.2,4x,f8.2,4X,f8.2,4X,f6.2)')datas(k,1),datas(k,2),datas(k,3),datas(k,5)
   
4.     print*,datas(k,1),datas(k,2),datas(k,3),datas(k,5)
   
5.     endif

复制代码

先定位问题是否在if块，
最内层的循环只有满足if条件才打印信息，所以可以尝试：
1、程序有没有进到内循环？      ——  尝试内循环中不加任何条件判断就打印，观察结果
2、if条件有问题？                      ——  改变if条件

123出去玩

lqouc 发表于 2015-4-30 12:06
没看出来不能进内循环，很可能只是没进你的if块

没进if快最后一次不可能打印出来呀？

123出去玩

tekDisplay 发表于 2015-4-30 14:22
先定位问题是否在if块，
最内层的循环只有满足if条件才打印信息，所以可以尝试：
1、程序有没有进到内 ...

谢谢回复~~~~

123出去玩

lqouc 发表于 2015-4-30 12:06
没看出来不能进内循环，很可能只是没进你的if块

谢谢回复，if语句有问题