请各位帮忙看下这一小段程序

sunshinezhpb

parameter(im=12,imon=1,ista=1)
real data(im),databar,mu,sigma,y(im),ybar,yfbar,c1,c2,alfa,u,r(10),t(10)
real tmin(im,imon,ista),month
integer istid(ista),iy

open(11,file='C:\Documents and Settings\Administrator\wind.txt')

do k=1,ista

do j=1,im
do i=1,imon
read(11,*) istid(k),iy,month,tmin(j,i,k)
enddo
enddo
enddo

open(22,file='C:\Documents and Settings\Administrator\jieguo.txt')
do k=1,ista
print*,k
do jj=1,imon
   do i=1,im
   data(i)=tmin(i,jj,k)/10
   enddo
我想问一下，关于里面的循环，ista跟imon就是固定为1了吗？

做个霸气的木头

一段程序直接上来，也不说干嘛，也不说什么数据，帮你看什么

xo2001

parameter(im=12,imon=1,ista=1)
第一句就是赋值为1，你改这里就可以变了

sunshinezhpb

做个霸气的木头 发表于 2013-8-17 12:58

                               
登录/注册后可看大图

一段程序直接上来，也不说干嘛，也不说什么数据，帮你看什么

1L最下面一句话不是写了有帮我看什么吗...我是怕程序太长没人看

sunshinezhpb

xo2001 发表于 2013-8-17 13:02

                               
登录/注册后可看大图

parameter(im=12,imon=1,ista=1)
第一句就是赋值为1，你改这里就可以变了

那就是固定为1了吗...有一层循环就是没有意义的了

xo2001

恩，是没意义，我估计是写程序的方便修改就留在那里

aa22556688

这个程序是干嘛的呐？

sunshinezhpb

aa22556688 发表于 2013-8-17 13:55

                               
登录/注册后可看大图

这个程序是干嘛的呐？

计算重现期的...别人直接给我一段程序跟一个txt资料就叫我算，别人设的变量名啥意义都不知道，搞得我很纠结...

sunshinezhpb

xo2001 发表于 2013-8-17 13:41

                               
登录/注册后可看大图

恩，是没意义，我估计是写程序的方便修改就留在那里

谢谢了，您能再看看那个读入吗 read(11,*) istid(k),iy,month,tmin(j,i,k)
它这是读入istid(1)，iy,month这3个单独的数跟tmin(j,1,1)这个三维数组？

aa22556688

sunshinezhpb 发表于 2013-8-17 14:00

                               
登录/注册后可看大图

计算重现期的...别人直接给我一段程序跟一个txt资料就叫我算，别人设的变量名啥意义都不知道，搞得我很纠 ...

ista和imon应该较什么神么变量，主要就是为了程序以后用着方便，根据txt数据直接改这两个变量的赋值就可以了，就不需要改后面的值了。