应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » fortran语句求助
31/1返回列表
查看: 536  |  回复: 2
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

zl2013

铜虫 (正式写手)

[求助] fortran语句求助

请看一段小程序，本人是小白 ，刚刚学习fortran ，请问这个程序是什么意思，求出的随机数组。怎么理解do 100 ii=1，1,和do 200 i=1,300000.这里的100.200啥意思咧？
        implicit double precision(a-h,o-z)
        open(1,file='ran2.dat',status='unknown')
       idum=-1
        do 100 ii=1,1
      do 200 i=1,300000
c        xx=ran1(idum)
c        yy=ran1(idum)
c      zz=ran1(idum)
        x1=ran1(idum)
        x2=ran1(idum)
c      write(2,*)xx,yy,zz
        write(ii,*)x1,x2
200        continue
100        continue
        close(1)
        end
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
凉白开
1楼 2013-08-27 21:34:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

sciencejoy

新虫 (著名写手)

【答案】应助回帖

★ ★ ★ ★ ★
感谢参与，应助指数 +1
zl2013: 金币+5, ★有帮助, 谢谢 我看书还没看到这呢 边学变看的 2013-08-28 09:03:55
行的标号，在你的代码里，指明do 对应的continue。你学Fortran不是看着书学的吗？
赞一下 回复此楼
2楼2013-08-27 21:51:06
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

dongdong_xmc

木虫 (小有名气)

【答案】应助回帖

★ ★ ★ ★ ★
感谢参与，应助指数 +1
zl2013: 金币+5, ★★★很有帮助, 谢谢 2013-08-28 09:04:09
do loop的标识，就像给人取个名字一样。

现在的程序通常不用这种带标号的循环，而是用：
do i = 1, 100
.....
end do
赞一下 回复此楼
3楼2013-08-28 00:50:51
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 zl2013 的主题更新
31/1返回列表
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭