24小时热门版块排行榜    

查看: 2182  |  回复: 4

stone1985

铁杆木虫 (著名写手)

[求助] 一个主程序,一个subroutine程序,要如何将两个程序组合在fortran里运行

书上有个两个程序,一个主程序,一个subroutine程序,要如何将两个程序组合在fortran里运行
这两个程序见附件
如果单独运行两个程序,主程序提示
C:\fortran4.0\fortran4\Projects\DUCT\DUCT.FOR(115): warning FOR4265: symbol QLX referenced but not set
subroutine程序(计算QLX用)没问题
但是QLX结果为0
回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈:小木虫仅提供交流平台,不对该内容负责。
    本内容由用户自主发布,如果其内容涉及到知识产权问题,其责任在于用户本人,如对版权有异议,请联系邮箱:xiaomuchong@tal.com
  • 附件 1 : DUCT.DAT
  • 2012-05-23 20:24:32, 26 bytes
  • 附件 2 : DUCT.FOR
  • 2012-05-23 20:24:33, 2.64 K
  • 附件 3 : sub.FOR
  • 2012-05-23 20:24:33, 510 bytes

» 猜你喜欢

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

士不可以不弘毅,任重而道远。仁以为己任,不亦重乎!死而后已,不亦远乎!
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★ ★ ★ ★ ★
感谢参与,应助指数 +1
stone1985: 金币+5, 有帮助 2012-05-25 12:29:36
你主程序没有调用子程序,你当然不会有什么结果了……
2楼2012-05-24 13:29:23
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

stone1985

铁杆木虫 (著名写手)

引用回帖:
2楼: Originally posted by snoopyzhao at 2012-05-24 14:29:23
你主程序没有调用子程序,你当然不会有什么结果了……

需要怎么调用呢?麻烦给个代码
或者需要怎么运行?
谢谢
士不可以不弘毅,任重而道远。仁以为己任,不亦重乎!死而后已,不亦远乎!
3楼2012-05-25 12:29:22
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

你至少应该在主程序中 call 你的子程序啊……

自己去找本书看一下,或者在网上随便找个文档,基本的就行
4楼2012-05-25 13:58:25
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

freeheart2006

金虫 (小有名气)

【答案】应助回帖

★ ★ ★ ★ ★
stone1985: 金币+5, ★★★很有帮助 2012-05-31 18:20:39
这个很容易做到,就是VF中可使用多个文件:把子程序放入主程序所在的那个project之中,这样就可以运算出结果了。你参考一下彭国伦那本书的第216页,说得非常清楚。
非宁静无以致远,非淡泊无以明志
5楼2012-05-30 15:43:16
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 stone1985 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 建议基金发布提前给出明确的时间点 +10 kulium 2026-08-21 12/600 2026-08-21 19:46 by kulium
[基金申请] 2026国自然函评费到账 +3 羊腰板 2026-08-21 3/150 2026-08-21 19:42 by kulium
[基金申请] 科研孤儿太难了 +16 我4大白菜 2026-08-20 17/850 2026-08-21 19:07 by sakuraai
[基金申请] 看来今天不会放榜了? +8 chengyan1220 2026-08-21 11/550 2026-08-21 17:52 by dcqxinyang
[基金申请] 时间戳又变了 +13 wuchongjun 2026-08-20 19/950 2026-08-21 17:21 by 紫杉醇
[基金申请] 人气不行了 +7 fansofjerry 2026-08-21 7/350 2026-08-21 14:13 by Vivilian
[基金申请] 感觉是下周放榜了 +7 angus9576 2026-08-17 12/600 2026-08-21 13:38 by weiyin
[基金申请] 我面上完蛋了 +7 且听虎啸 2026-08-20 8/400 2026-08-21 12:31 by 酷酷墨镜
[基金申请] 时间戳又变了8-15 +15 archvillain 2026-08-15 27/1350 2026-08-21 11:32 by tim76
[基金申请] 今天基金会出结果吗?20260819 +15 kkkl_v 2026-08-19 16/800 2026-08-21 11:22 by 365372687
[基金申请] 应该是下周三26日公布了吧? +4 哈哈蛤? 2026-08-21 4/200 2026-08-21 10:58 by Vivilian
[基金申请] 基金啊基金 +4 longfie172 2026-08-20 4/200 2026-08-21 08:58 by mark mao
[基金申请] 放榜前的不淡定 40+4 snowwithsea 2026-08-19 13/650 2026-08-21 08:30 by 北京莱茵编辑
[基金申请] 时间戳今天,20号变了 +4 archvillain 2026-08-20 4/200 2026-08-21 08:10 by gatelove
[基金申请] 估计是周四 +3 archvillain 2026-08-18 3/150 2026-08-21 01:48 by jnhyjjm
[基金申请] 时间戳变了,能看出什么问题? +18 基诺咪客 2026-08-17 23/1150 2026-08-20 17:19 by Godzela
[基金申请] 2027广东省杰青 +4 奶牛小黑 2026-08-15 10/500 2026-08-19 11:02 by wanfengnew
[基金申请] 明天放榜? +5 Shxjjxjkx 2026-08-18 5/250 2026-08-18 18:14 by -大大大大大-
[基金申请] 今天维护系统维护 祝所有人 高中 +8 gjjjzhong 2026-08-18 9/450 2026-08-18 13:01 by 家与远方
[基金申请] 93BebMhtakh前后11位开头都是大写 +4 且听虎啸 2026-08-17 5/250 2026-08-18 00:49 by 蔡棒棒菂
信息提示
请填处理意见