24小时热门版块排行榜    

查看: 307  |  回复: 1

meigudengfei

新虫 (初入文坛)

[求助] 求问一些简单问题 已有1人参与

PARAMETER MM=1000
        DOUBLE PRECISION BM(MM,MM),BN(MM,MM)
        DO I=1,1000
        DO J=1,1000
        BM(I,J)=I+J
      if (BM(I,J).GT.1000.AND.BN(I,J).GE.0)  WRITE(*,*)BM
        END DO
        END DO
        STOP
        END
       

问一下为什么得到的数据都是0,我没有让电脑计算完,想问一下一般的电脑计算这么多数据大概要多久
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

baobiao007

木虫 (职业作家)

中国特色

【答案】应助回帖

感谢参与,应助指数 +1
if 后面应该写成 write(*,*) BM(i,j)
我同意叔本华的观点,人们投身艺术和科学领域的强烈愿望之一就是逃离痛苦、残酷和枯燥无味的现实生活,逃离自己飘忽不定的七情六欲的桎梏。--爱因斯坦
2楼2014-03-12 13:49:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 meigudengfei 的主题更新
信息提示
请填处理意见