求夏季1996年逐日平均

自由行

原txt是有156各站点，1996年的6-8月逐日资料，现在相求每日的多站点平均，自己编了以下，程序，但是提示数组越界，原数据一共是14352行。想咨询下大神，有什么方法可以修改下源程序吗，比较急太感谢了program main
implicit none
integer,parameter::n=14352                  
!integer state(n),year(n),id(state_num)
integer state(n),year(n),mon(n),R(n),day(n)
real  var(n),sum
integer  i,j,k,m,it,iy,a

!**********************************************
open(30,file="sum2.txt")
do i=1,n
read(30,*)state(i),year(i),mon(i),day(i),R(i)
print*,R(i)
end do

open(50,file='sum4.txt')
        do it=1,92
          sum=0
                a=it
                do iy=92,14260,92        ！155个92行，每隔92行计算一次，          
                    if(R(a)/=32766)then       
                    sum=sum+R(a)
                        a=a+iy
                  end if
                 end do
                sum=sum/156/10
          write(3)sum
    enddo
close(50)
end

゛绍〤z、

参考一下，假设需要求平均数据是R，共156*92个数据

RR=reshape(R,(/92,156/))
mean=sum(R,2)
mean=mean/156.0

mean为一维数组，共92个元素

自由行

゛绍〤z、 发表于 2017-8-8 22:39
参考一下，假设需要求平均数据是R，共156*92个数据

RR=reshape(R,(/92,156/))

还是不太明白这个函数的意义

゛绍〤z、

自由行 发表于 2017-8-29 14:49
还是不太明白这个函数的意义

将数组R重新排列为92行*156列的数组