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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » do循环中调用子程序
52/1返回列表
查看: 1029  |  回复: 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的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★
w76990480: 金币+10 2013-04-06 22:16:29
ben_ladeng: 专家考核 2013-04-07 10:00:54
引用回帖:
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
...

前面 select case 那段写得好啰嗦……
backspace 的用法可能要斟酌一下……
赞一下 回复此楼
16楼2013-04-06 21:37:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 20 个回答

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的回帖
查看全部 20 个回答
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭