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

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

为什么循环内输出数值，循环外输出零呢
代码如下

[Fortran] 纯文本查看 复制代码

01do i = 1,atom
02    ww=dd(i,1)
03    rr=0
04    do e = 1,ppoint
05        if (dx(i,e)==10.and.dy(i,e)==10.and.dz(i,e)==10) then
06            ww=ww-1
07        else
08            rr=rr+1
09            qx(i,r)=dx(i,e)
10            qy(i,r)=dy(i,e)
11            qz(i,r)=dz(i,e)
12!            print *,qx(i,r)  输出   0.00000000   0.250000000
13!             print *,qy(i,r)  输出    0.00000000   0.250000000
14!            print *,qz(i,r)   输出  -0.00000000   0.250000000
15        end if
16    end do
17    dd(i,1)=rr
18    print *,dd(i,1)
19end do
20do i = 1,atom
21    do e = 1,rr
22        print *,qx(i,e)  输出   2.33264851E-38   2.33264851E-38
23        print *,qy(i,e)  输出   2.33264851E-38   2.33264851E-38
24        print *,qz(i,e)  输出   2.33264851E-38    2.33264851E-38
25    end do
26end 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 。是否混用了。

啊哦我这是两段一样的代码，我忽略了...谢谢谢谢谢谢

[流程控制] 循环内输出数值，循环外输出零