Fortran Coder

查看: 3183|回复: 2
打印 上一主题 下一主题

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

[复制链接]

2

帖子

1

主题

0

精华

新人

F 币
15 元
贡献
5 点
跳转到指定楼层
楼主
发表于 2022-9-22 17:10:16 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
为什么循环内输出数值,循环外输出零呢
代码如下
[Fortran] 纯文本查看 复制代码
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
万分感谢!!!!!!!

分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

835

帖子

2

主题

0

精华

大宗师

F 币
3926 元
贡献
2334 点
沙发
发表于 2022-9-22 19:10:00 | 只看该作者
你有两个变量 r  和  rr   。是否混用了。

2

帖子

1

主题

0

精华

新人

F 币
15 元
贡献
5 点
板凳
 楼主| 发表于 2022-9-23 09:45:21 | 只看该作者
li913 发表于 2022-9-22 19:10
你有两个变量 r  和  rr   。是否混用了。

啊哦我这是两段一样的代码,我忽略了...谢谢谢谢谢谢
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-12-24 07:40

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表