brighter 发表于 2022-9-22 17:10:16

循环内输出数值，循环外输出零

为什么循环内输出数值，循环外输出零呢
代码如下
do i = 1,atom
    ww=dd(i,1)
    rr=0
    do e = 1,ppoint
      if (dx(i,e)==10.and.dy(i,e)==10.and.dz(i,e)==10) then
            ww=ww-1
      else
            rr=rr+1
            qx(i,r)=dx(i,e)
            qy(i,r)=dy(i,e)
            qz(i,r)=dz(i,e)
!            print *,qx(i,r)输出   0.00000000   0.250000000
!             print *,qy(i,r)输出    0.00000000   0.250000000
!            print *,qz(i,r)   输出-0.00000000   0.250000000
      end if
    end do
    dd(i,1)=rr
    print *,dd(i,1)
end do
do i = 1,atom
    do e = 1,rr
      print *,qx(i,e)输出   2.33264851E-38   2.33264851E-38
      print *,qy(i,e)输出   2.33264851E-38   2.33264851E-38
      print *,qz(i,e)输出   2.33264851E-38    2.33264851E-38
    end do
end do万分感谢！！！！！！！

li913 发表于 2022-9-22 19:10:00

你有两个变量 r和rr   。是否混用了。

brighter 发表于 2022-9-23 09:45:21

li913 发表于 2022-9-22 19:10
你有两个变量 r和rr   。是否混用了。

啊哦我这是两段一样的代码，我忽略了...谢谢谢谢谢谢
页: [1]
查看完整版本: 循环内输出数值，循环外输出零