24小时热门版块排行榜    

Znn3bq.jpeg
查看: 2003  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 260求调剂 +3 Zyt1314520.. 2026-04-17 4/200 2026-04-17 21:06 by Eurekall
[考研] 304求调剂 +7 castLight 2026-04-16 7/350 2026-04-17 20:05 by 关一盏灯cd
[考博] 求博导|生物质基多孔碳/超级电容方向,已有相关成果,寻能源材料/碳材料方向老师 +3 猪猪人Zzz 2026-04-12 3/150 2026-04-17 19:10 by 阳阳阳^_^
[考研] 一志愿中科大材料与化工,353分还有调剂学校吗 +10 否极泰来2026 2026-04-15 12/600 2026-04-17 17:54 by mapenggao
[考研] 279求调剂 +13 张番茄不炒蛋 2026-04-11 13/650 2026-04-17 10:38 by cuisz
[考研] 26药学专硕105500求调剂 +6 喽哈加油 2026-04-13 7/350 2026-04-16 14:31 by zhouxiaoyu
[考研] 求调剂 +11 小聂爱学习 2026-04-11 15/750 2026-04-15 21:57 by noqvsozv
[考研] 297,工科调剂? +10 河南农业大学-能 2026-04-14 10/500 2026-04-15 21:50 by noqvsozv
[考研] 085801电气专硕272求调剂 +19 电气李 2026-04-13 21/1050 2026-04-15 13:37 by 黑科技矿业
[考研] 材料工程281还有调剂机会吗 +43 xaw. 2026-04-11 44/2200 2026-04-15 12:46 by 西北望—风沙
[考研] 考研调剂 +13 长弓傲 2026-04-13 14/700 2026-04-14 14:44 by zs92450
[考研] 考研求调剂 +6 ban班小七 2026-04-11 6/300 2026-04-14 14:06 by 哆啦A梦只是个梦
[考研] 食品与营养(0955)271求调剂 +15 升格阿达 2026-04-12 16/800 2026-04-14 13:18 by 浮若_安生
[考研] 考研英一数一338分 +9 长江大学东校区 2026-04-13 10/500 2026-04-14 00:41 by 王珺璞
[考研] 2026硕士调剂_能动_河南农业大学 +4 河南农业大学-能 2026-04-12 4/200 2026-04-13 22:01 by bljnqdcc
[考研] B区0809 ,数一英一,290 求调剂 +3 泠潍1111 2026-04-12 4/200 2026-04-13 20:35 by 学员JpLReM
[考研] +10 李多米lee. 2026-04-12 11/550 2026-04-12 22:58 by yuyin1233
[考研] 0831一轮调剂失败求助 +10 小熊睿睿_s 2026-04-11 10/500 2026-04-12 22:43 by 长弓傲
[考研] 339求调剂 +8 hanwudada 2026-04-11 9/450 2026-04-12 15:36 by laoshidan
[考研] 359求调剂 +5 胃痉挛累了 2026-04-11 5/250 2026-04-11 19:55 by lbsjt
信息提示
请填处理意见