24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 508  |  回复: 2

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
回复此楼

» 猜你喜欢

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

凉白开
已阅   回复此楼   关注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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 289求调剂 +23 新时代材料 2026-03-27 25/1250 2026-04-02 10:24 by oooqiao
[考研] 327求调剂 +7 汲亦昊 2026-03-29 7/350 2026-04-02 10:23 by sanrepian
[考研] 324求调剂 +5 想上学求调 2026-04-01 6/300 2026-04-02 10:16 by sanrepian
[考研] 085600,材料与化工321分调剂 +8 大馋小子 2026-03-27 10/500 2026-04-02 10:15 by kaiyanjie
[考研] 333求调剂 +3 12138。、m?x?b 2026-03-26 4/200 2026-04-02 09:58 by olim
[考研] 一志愿211,335分,0856,求调剂院校和导师 +14 倾____萧 2026-03-27 15/750 2026-04-02 09:21 by olim
[考研] 805600专硕材料与化工348分求调剂 +6 上学啦! 2026-04-01 6/300 2026-04-02 07:49 by 2026材料调剂
[考研] 材料工程322分 +7 哈哈哈吼吼吼哈 2026-04-01 7/350 2026-04-02 07:05 by yjolah
[考研] 349求调剂 +6 吃的不少 2026-04-01 6/300 2026-04-01 17:55 by JYD2011
[考研] 【求调剂】085601材料工程专硕 | 总分272 | +10 脚滑的守法公民 2026-03-27 10/500 2026-04-01 17:23 by pies112
[考研] 0855机械初试280求调剂 +3 kazenotori 2026-03-31 3/150 2026-04-01 10:08 by JourneyLucky
[考研] 301求调剂 +8 axibli 2026-04-01 8/400 2026-04-01 09:51 by 我的船我的海
[考研] 070300化学专业279调剂 +10 哈哈哈^_^ 2026-03-31 10/500 2026-03-31 23:13 by liu823948201
[考研] 一志愿西交大080500材料学硕349 +6 jqx1258 2026-03-31 7/350 2026-03-31 21:08 by yuq
[考研] 299求调剂 +8 嗯嗯嗯嗯2 2026-03-27 8/400 2026-03-31 18:23 by lizhi8172
[考研] 081200-11408-276学硕求调剂 +4 崔wj 2026-03-31 4/200 2026-03-31 11:56 by jp9609
[考研] 266分,求材料相关专业调剂 +10 哇呼哼呼哼 2026-03-30 12/600 2026-03-31 11:00 by 熊一刀
[考研] 282求调剂 +3 呼吸都是减肥 2026-03-31 3/150 2026-03-31 10:00 by wangjy2002
[考研] 083000环境科学与工程调剂,总分281 +4 橙子(胜意) 2026-03-30 4/200 2026-03-31 00:44 by Linzejun
[考研] 085701求调剂初试286分 +5 secret0328 2026-03-28 5/250 2026-03-30 12:54 by fangnagu
信息提示
请填处理意见