open (16,file="x.txt")
        nstep= int ( wk /nsec)
        print *, "每一段元素的个数 nstep=" , nstep
        do i=1,nsec
                b(i)=0.d0
                do j=(i-1)*nstep+1,i*nstep
                        b(i)=b(i)+clshuzu(j) / nstep
                enddo
        enddo
        write(16,"(F15.9)")(b(i),i=1,nsec)




为什么我这一段程序输出来的结果都是0呢？
clshuzu(wk) 是wk个元素的实数数组 0.2857143   
  0.1111111   
  0.1111111   
  0.3333333   
  0.2857143   
  0.2222222   
  0.2000000   
  9.0909094E-02
  0.1250000   
  0.1111111   
  0.2222222   
  0.1818182   
  0.1111111   
  0.0000000E+00
  0.0000000E+00
  0.2000000   
  0.1818182   
  0.2222222   
  9.0909094E-02
  0.0000000E+00
  0.1666667   
  9.0909094E-02
  0.1111111   
  0.2222222

3楼: Originally posted by wanghao098 at 2013-07-22 08:47:09
nsec 是一个整形的常数
integer，parameter:: nsec=10
wk 也是一个整形的数

5楼: Originally posted by zhg19 at 2013-07-22 11:37:14
首先，nsec是数组分的段数，应为wk的约数。其次b(i)=b(i)+clshuzu(j) / float（nstep），注意分母的数据类型。

2楼: Originally posted by pippi6 at 2013-07-22 08:16:07
你首先需要给出 wk 和 nsec，看看 nstep到底多大。如果 nsec=0，那你的 do j=(i-1)*nstep+1,i*nstep 也许根本就没有执行，那 b(i) 当然就是零了。让别人查错，需要给全信息。