24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 1981  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[有机交流] 3-溴吡啶-4-甲醛合成 10+3 雪糕也能爆炸 2026-03-31 9/450 2026-04-06 00:24 by nBu锂
[考研] 316求调剂 +5 yyx想调剂 2026-04-05 5/250 2026-04-05 22:22 by 咔咔咔咔9
[考研] 计算机11408,286分求调剂 +7 木子念晞 2026-04-05 7/350 2026-04-05 19:02 by chy09050039
[考研] 一志愿北交大材料工程总分358求调剂 +6 cs0106 2026-04-05 6/300 2026-04-05 16:34 by imissbao
[考研] 081700学硕,323分,一志愿中国海洋大学求调剂学校 +16 披星河 2026-04-04 16/800 2026-04-05 11:27 by 猪会飞
[考研] 本科211 分数293请求调剂 +4 莲菜就是藕吧 2026-04-01 4/200 2026-04-04 22:32 by hemengdong
[考研] 323求调剂 +8 李佳乐1 2026-04-04 8/400 2026-04-04 22:26 by hemengdong
[考研] 341求调剂 +3 洛多罗 2026-04-02 4/200 2026-04-04 21:36 by 智能智慧
[考研] 333求调剂 +9 阿科逸 2026-03-31 9/450 2026-04-04 18:25 by macy2011
[考研] 357求调剂 +13 1050389037 2026-04-03 13/650 2026-04-03 22:27 by 无际的草原
[考研] 材料科学与工程339求调剂 +12 hyz0119 2026-03-31 13/650 2026-04-03 18:33 by ls刘帅
[考研] 0705理学294求调剂 +3 成果成果cg5 2026-04-03 3/150 2026-04-03 14:04 by simons1972
[考研] 考研调剂 +3 李木子0120 2026-04-02 5/250 2026-04-02 21:45 by dongzh2009
[考研] 环境工程297分求调剂一志愿杭高院 +15 GENJIOW 2026-03-31 16/800 2026-04-02 17:56 by cyh—315
[考研] 初试301,代码085701环境工程,本硕一致,四六级已过,有二区一作,共发表5篇论文 +6 axibli 2026-04-01 6/300 2026-04-02 13:42 by Ecowxq666!
[考研] 271求调剂 +15 勒布朗@ 2026-03-31 20/1000 2026-04-02 11:24 by Sammy2
[考研] 085600 一志愿9 总分351 求调剂学校 +7 czhcz 2026-03-31 9/450 2026-04-01 19:24 by 无际的草原
[考研] 求调剂 +4 图鉴212 2026-03-30 5/250 2026-04-01 15:32 by 图鉴212
[考研] 省双一流重点一本大学招收调剂 +4 wwwwffffff 2026-03-31 7/350 2026-04-01 15:23 by wwwwffffff
[考研] 262求调剂 +7 ZZ..000 2026-03-30 8/400 2026-03-31 10:05 by cal0306
信息提示
请填处理意见