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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » do循环中调用子程序
北京石油化工学院2026年研究生招生接收调剂公告
201/2返回列表12下一页
查看: 914  |  回复: 19
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

w76990480

荣誉版主 (文坛精英)

super-emuch

优秀版主文献杰出贡献文献杰出贡献

[求助] do循环中调用子程序

fortran 语言
do i=1,100
call subion2
enddo
这样在do循环里面 调用子程序怎么不调用
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
专业文献求助
1楼 2013-04-06 13:54:16
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
回帖支持 ( 显示支持度最高的前 50 名 )

w76990480

荣誉版主 (文坛精英)

super-emuch

优秀版主文献杰出贡献文献杰出贡献
引用回帖:
4楼: Originally posted by nono2009 at 2013-04-06 14:54:01
与do循环无关。去掉do循环可以调用吗？

可以
但是去掉do不行
赞一下(1人) 回复此楼
专业文献求助
6楼2013-04-06 19:48:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通回帖

w76990480

荣誉版主 (文坛精英)
@libralibra
2楼2013-04-06 14:13:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★
感谢参与，应助指数 +1
ben_ladeng: 金币+1, 专家考核 2013-04-07 10:00:09
没有看懂你想说什么……

什么叫“调用子程序怎么不调用”？
赞一下 回复此楼
3楼2013-04-06 14:31:32
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

nono2009

超级版主 (文学泰斗)

No gains, no pains.

优秀区长优秀区长优秀区长优秀区长优秀版主

【答案】应助回帖

★
感谢参与，应助指数 +1
ben_ladeng: 金币+1, 感谢 2013-04-07 10:00:24
与do循环无关。去掉do循环可以调用吗？
赞一下 回复此楼
4楼2013-04-06 14:54:01
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

w76990480

荣誉版主 (文坛精英)

super-emuch

优秀版主文献杰出贡献文献杰出贡献
引用回帖:
3楼: Originally posted by snoopyzhao at 2013-04-06 14:31:32
没有看懂你想说什么……

什么叫“调用子程序怎么不调用”？

就是调用不了subion2
赞一下 回复此楼
专业文献求助
5楼2013-04-06 19:48:18
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

nono2009

超级版主 (文学泰斗)

No gains, no pains.

优秀区长优秀区长优秀区长优秀区长优秀版主

【答案】应助回帖

引用回帖:
6楼: Originally posted by w76990480 at 2013-04-06 19:48:38
可以
但是去掉do不行...

估计程序中存在其它问题，光看这几行看不出什么东东来
赞一下 回复此楼
7楼2013-04-06 19:49:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

w76990480

荣誉版主 (文坛精英)

super-emuch

优秀版主文献杰出贡献文献杰出贡献
引用回帖:
7楼: Originally posted by nono2009 at 2013-04-06 19:49:59
估计程序中存在其它问题，光看这几行看不出什么东东来...

do i=1,1
         tdh=tdh+2000
   select case (tdh)
   case (1:9)
      write(form,"(i1)" tdh
   case (10:99)
      write(form,'(i2)') tdh
   case (100:999)
      write(form,'(i3)') tdh
   case (1000:9999)
      write(form,'(i4)') tdh
   case (10000:99999)
      write(form,'(i5)') tdh
   case (100000:999999)
      write(form,'(i6)') tdh
   end select
   write(filename,*) "test2.",trim(form)
        OPEN (UNIT=13, file='d:\2\3.dat')
   open(tdh,file=filename)       
                read(tdh,*)
                read(tdh,*)
                read(tdh,*)
                read(tdh,*)
                read(tdh,*)
                read(tdh,*)
                read(tdh,*)
                read(tdh,*)
                read(tdh,*)
120                read(tdh,*,end=130) a1,a2,a3,a4,a5
                write(13,70) a1,a3,a4,a5
                goto 120
130                backspace i
        call subion21
enddo
赞一下 回复此楼
专业文献求助
8楼2013-04-06 19:51:37
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

nono2009

超级版主 (文学泰斗)

No gains, no pains.

优秀区长优秀区长优秀区长优秀区长优秀版主

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★
w76990480: 金币+10 2013-04-06 19:58:01
引用回帖:
8楼: Originally posted by w76990480 at 2013-04-06 19:51:37
do i=1,1
         tdh=tdh+2000
   select case (tdh)
   case (1:9)
      write(form,"(i1)" tdh
   case (10:99)
      write(form,'(i2)') tdh
   case (100:999)
      write(form,'(i3)') tdh
...

好久不看fortran了，不是很看得明白了。
第一句：do i=1,1？
赞一下 回复此楼
9楼2013-04-06 19:56:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

w76990480

荣誉版主 (文坛精英)

super-emuch

优秀版主文献杰出贡献文献杰出贡献
引用回帖:
9楼: Originally posted by nono2009 at 2013-04-06 19:56:19
好久不看fortran了，不是很看得明白了。
第一句：do i=1,1？...

这个我换成其 do i=1,100
也同样调用不了 subion2
赞一下 回复此楼
专业文献求助
10楼2013-04-06 19:57:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 w76990480 的主题更新
201/2返回列表12下一页
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 08工科求调剂290分 +5 1314捧花 2026-04-02 8/400 2026-04-02 13:16 by 乔哒哒哒
[考研] 285求调剂 +11 AZMK 2026-04-02 11/550 2026-04-02 12:07 by 1753564080
[考研] 0856材料与化工调剂，339 +13 10213207 2026-03-31 13/650 2026-04-02 11:35 by michael2011
[考研] 261求B区调剂 +5 明仔· 2026-04-01 7/350 2026-04-02 11:17 by 邹尉尉
[考研] 生物学308分求调剂（一志愿华东师大） +5 相信必会光芒万� 2026-03-31 6/300 2026-04-02 10:16 by guoweigw
[考研] 324分 085600材料与化工 +20 呆鹅oor 2026-03-27 20/1000 2026-04-02 10:13 by oooqiao
[考研] 316求调剂 +11 舟自梗 2026-04-01 12/600 2026-04-02 10:12 by 不吃魚的貓
[考研] 土木304求调剂 +6 兔突突突， 2026-03-31 7/350 2026-04-02 09:06 by coolminer
[考研] 材料调剂 +14 一样YWY 2026-04-01 14/700 2026-04-01 21:07 by lijunpoly
[考研] 材料专硕306英一数二 +7 z1z2z3879 2026-03-31 7/350 2026-04-01 14:50 by ZXlzxl0425
[考研] 一志愿郑大085600，310分求调剂 +6 李潇可 2026-03-26 6/300 2026-04-01 14:44 by chenqifeng666
[考研] 311求调剂一志愿合肥工业大学 +14 秋二十二 2026-03-30 14/700 2026-04-01 11:45 by chemdavid
[考研] 材料与化工调剂一志愿大连海事085600，349 +9 吃的不少 2026-03-30 9/450 2026-04-01 11:24 by wangjy2002
[考研] 346求调剂 一志愿070303有机化学 +11 萝卜炖青菜 2026-03-28 12/600 2026-03-31 17:54 by xhai2011
[考研] 江苏苏北高校诚邀调剂同学 +3 zzll406 2026-03-31 3/150 2026-03-31 16:54 by 及时行乐fan
[考研] 一志愿哈尔滨工业大学材料与化工方向336分 +13 辰沐5211314 2026-03-26 13/650 2026-03-31 14:37 by 记事本2026
[考研] 286求调剂 +5 丢掉懒惰 2026-03-27 8/400 2026-03-31 11:27 by Delta2012
[考研] 哈尔滨工业大学材料与化工专硕378求调剂 +3 塔比乌斯 2026-03-30 3/150 2026-03-30 22:55 by 无际的草原
[考研] 085701环境工程求调剂 +11 多久上课 2026-03-27 12/600 2026-03-30 21:21 by 研究僧导导
[考研] 081200-314 +3 LILIQQ 2026-03-27 4/200 2026-03-28 09:41 by 保护地球你我做�
信息提示
关闭
请填处理意见
关闭