fortran编程中 每三行求第五列的平均值 怎样用循环

田子娜美

53680  2005     1     1   -42    33  -105     0     0     0
53680  2005     1     2   -34    14   -76     0     0     0
53680  2005     1     3    -1    48   -50     0     0     0
53682  2005     1     1   -68    32  -147     0     0     0
53682  2005     1     2   -68    33  -141     0     0     0
53682  2005     1     3    -5    46   -94     0     0     0

田子娜美

implicit none
integer i
integer j
integer x(6231,10)
real::sum=0
real ave
!open(2,file='e:\mave\200501.txt')
open(1,file="e:\datanew\newT2005\200501.txt")
read(1,*) ((x(i,j),j=1,10),i=1,6)
do i=1,6
if(x(i,1)==53680.or.x(i,1)==53682)then
sum=sum+x(i,5)
ave=sum/3.0
endif
enddo
write(*,*) ave
close(1)
!close(2)
end
这个哪里错了啊

topmad

if(x(i,1)==53680.or.x(i,1)==53682)then
这个 or不太对吧

你可以这样  建立一个数组 里面存放站号 然后站号循环在外层  文件循环在内层 每次判断站号 就好弄了

田子娜美

topmad 发表于 2012-3-19 19:23

                               
登录/注册后可看大图

if(x(i,1)==53680.or.x(i,1)==53682)then
这个 or不太对吧

我试试啊

mofangbao

按你这个要求，如果同一个站都是连续的话，你读某行时判断站号是不是和上一行一样就行了，不一样就算出上一次不一样到现在的值，一样的话继续往下读，最后一次把最后一个算了，就行了