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

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » do循环中调用子程序
201/2返回列表12下一页
查看: 936  |  回复: 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下一页
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 河北省自然科学基金 +5 Peterchao 2026-05-18 8/400 2026-05-24 11:58 by 晓晓爱翠翠
[基金申请] 西安交大新媒学院副院长用撤稿论文结题 +3 bjvtcliu 2026-05-24 5/250 2026-05-24 10:16 by kudofaye
[教师之家] 论文撤稿了 +3 bjvtcliu 2026-05-24 5/250 2026-05-24 10:06 by Equinoxhua
[教师之家] 某211大学教师把个人教师官方主页改成:我跑了我跑了我跑了!官宣跑路！ +4 zju2000 2026-05-21 5/250 2026-05-24 09:35 by songwz
[考博] 26/27申博自荐 10+4 ZXW0202 2026-05-22 9/450 2026-05-24 08:47 by bjvtcliu
[硕博家园] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 hvkbtfonbv 2026-05-23 3/150 2026-05-24 08:01 by 9ps9vgkqva
[硕博家园] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 pmo95bazuy 2026-05-23 7/350 2026-05-24 06:35 by fpo5ljpv91
[基金申请] 揭秘青基评审内幕：几个A才能顺利中标 +3 国自然国社科中 2026-05-23 4/200 2026-05-23 15:37 by 2000zf36392
[基金申请] 青B发送上会通知了吗 +5 chemBioBro 2026-05-22 7/350 2026-05-23 12:35 by zhuifengzhy
[考博] 博士申请 +3 焦晓明 2026-05-21 3/150 2026-05-23 11:26 by mlc840311
[论文投稿] 投稿求助，期刊 +4 希冀，有书读 2026-05-20 8/400 2026-05-22 10:16 by 希冀，有书读
[文学芳草园] 献血感触 +7 呀呀好傻 2026-05-19 13/650 2026-05-21 20:15 by 呀呀好傻
[基金申请] 面上本子正文33页，违规吗？会被低分嘛？ +14 1234567wang 2026-05-17 16/800 2026-05-21 17:58 by 脆脆的饼干
[基金申请] 国自然评分 +4 无名者登山 2026-05-20 5/250 2026-05-21 16:35 by swuq
[基金申请] 国自然上会要求 +7 无名者登山 2026-05-18 11/550 2026-05-21 15:50 by draco1987
[基金申请] 提交了我也来说说感想 +9 fummck 2026-05-20 10/500 2026-05-21 14:17 by draco1987
[基金申请] 评审有感 +15 popular289 2026-05-18 26/1300 2026-05-21 10:35 by 西葫芦炒鸡蛋
[有机交流] 反应很差，大量原料没有反应 5+3 Mr.Zot 2026-05-19 8/400 2026-05-20 22:19 by Equinoxhua
[考博] 如果工作了想读博，可以边工作边读全日制嘛？ 30+3 铁达火车 2026-05-18 5/250 2026-05-20 09:33 by tfang
[硕博家园] 我在等一个没有答案的答案 +3 Love_MH 2026-05-17 3/150 2026-05-18 02:22 by 竹林孤影
信息提示
关闭
请填处理意见
关闭