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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 请高手指点如何成功运行fun.f90和main.f90
北京石油化工学院2026年研究生招生接收调剂公告
212/3返回列表上一页123下一页
查看: 2338  |  回复: 20
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

1xiaohua1

木虫 (正式写手)
引用回帖:
6楼: Originally posted by zhg19 at 2013-11-11 17:52:16
你的那个fun.90里的子程序是按subroutine定义的？...

不是，就是一个函数文件
赞一下 回复此楼
活着，就要不停地做事
11楼2013-11-13 21:30:15
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

1xiaohua1

木虫 (正式写手)
引用回帖:
7楼: Originally posted by totu2013 at 2013-11-11 22:53:40
正解。...

你说的是？
回复此楼
活着，就要不停地做事
12楼2013-11-13 21:30:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

1xiaohua1

木虫 (正式写手)
引用回帖:
10楼: Originally posted by virtualzx at 2013-11-12 01:56:51
先改下主程序，加上
real, external :: fun

然后改一下子程序
function  fun(x,y) result(z)

然后直接编译，就可以了...

好的，我先试试
回复此楼
活着，就要不停地做事
13楼2013-11-13 21:31:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhg19

金虫 (小有名气)

【答案】应助回帖

引用回帖:
11楼: Originally posted by 1xiaohua1 at 2013-11-13 21:30:15
不是，就是一个函数文件...

函数需要提前声明的吧。

[ 发自手机版 http://muchong.com/3g ]
赞一下 回复此楼
14楼2013-11-14 00:33:01
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhg19

金虫 (小有名气)

【答案】应助回帖

引用回帖:
12楼: Originally posted by 1xiaohua1 at 2013-11-13 21:30:42
你说的是？

如果是funtion,楼主可尝试在主程序里声明一下，并在主程序末尾加include ‘fun.f90’

[ 发自手机版 http://muchong.com/3g ]
赞一下 回复此楼
15楼2013-11-14 00:37:54
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

1xiaohua1

木虫 (正式写手)
引用回帖:
14楼: Originally posted by zhg19 at 2013-11-14 00:33:01
函数需要提前声明的吧。
...

你好，子程序过程与函数过程是不同的
赞一下 回复此楼
活着，就要不停地做事
16楼2013-11-14 16:34:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

1xiaohua1

木虫 (正式写手)
引用回帖:
7楼: Originally posted by totu2013 at 2013-11-11 22:53:40
正解。...

不是
回复此楼
活着，就要不停地做事
17楼2013-11-14 21:46:40
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

1xiaohua1

木虫 (正式写手)
引用回帖:
10楼: Originally posted by virtualzx at 2013-11-12 01:56:51
先改下主程序，加上
real, external :: fun

然后改一下子程序
function  fun(x,y) result(z)

然后直接编译，就可以了...

你好，我按照 你说的做了，总不能编译成功 ，我把两个fortran文件发给你 ，你能帮我改一下？  谢谢了
赞一下 回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
    本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com
  • 附件 1 : main.f90
    • 2013-11-14 22:07:27, 145 bytes
活着，就要不停地做事
18楼2013-11-14 22:08:06
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

1xiaohua1

木虫 (正式写手)
引用回帖:
10楼: Originally posted by virtualzx at 2013-11-12 01:56:51
先改下主程序，加上
real, external :: fun

然后改一下子程序
function  fun(x,y) result(z)

然后直接编译，就可以了...

另一个
赞一下 回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
    本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com
  • 附件 1 : fun.f90
    • 2013-11-14 22:12:25, 131 bytes
活着，就要不停地做事
19楼2013-11-14 22:12:30
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

virtualzx

木虫 (著名写手)

【答案】应助回帖

★ ★ ★ ★ ★
1xiaohua1: 金币+4, ★★★★★最佳答案 2013-11-15 09:28:29
1xiaohua1: 金币+1 2013-12-13 22:50:53
引用回帖:
19楼: Originally posted by 1xiaohua1 at 2013-11-14 09:12:30
另一个...

在fun.f90里，把
real,intent(out)::z
改为
real::z
然后在main.f90里，把
real, external :: fun
改为
real, external :: funm
然后再编译就行了。

$ gfortran *.f90 -o test.x
$ ./test.x
   8.00000000
赞一下(1人) 回复此楼
20楼2013-11-15 06:39:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 1xiaohua1 的主题更新
212/3返回列表上一页123下一页
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 367求调剂 +8 芋泥啵啵… 2026-03-28 8/400 2026-04-02 09:20 by olim
[考研] 298求B区调剂 +3 zzz，，r 2026-04-02 3/150 2026-04-02 09:18 by wxiongid
[考研] 282求调剂 +7 呼吸都是减肥 2026-04-01 7/350 2026-04-02 09:10 by vgtyfty
[考研] 11408 321分求调剂 +3 huchun12138 2026-03-30 4/200 2026-04-01 22:48 by guanxin1001
[考研] 0856，269分求调剂 +8 有学上就行求求� 2026-03-30 11/550 2026-04-01 22:33 by 2026材料调剂
[考研] 266分，一志愿电气工程，本科材料，求材料专业调剂 +10 哇呼哼呼哼 2026-04-01 11/550 2026-04-01 21:48 by chyhaha
[考研] 286求调剂 +5 lim0922 2026-03-26 5/250 2026-04-01 19:08 by 客尔美德
[考研] 求调剂 +4 图鉴212 2026-03-30 5/250 2026-04-01 15:32 by 图鉴212
[考研] 283求调剂 +9 A child 2026-03-28 9/450 2026-04-01 14:20 by Jaylen.
[考研] 070300求调剂306分 +5 26要上岸 2026-03-27 5/250 2026-04-01 11:09 by oooqiao
[考研] 326求调剂 +4 崽崽仔 2026-03-31 4/200 2026-04-01 09:58 by 我的船我的海
[考研] 土木304求调剂 +3 兔突突突， 2026-03-31 3/150 2026-04-01 09:42 by JourneyLucky
[考研] 土木304求调剂 +5 顶级擦擦 2026-03-31 5/250 2026-04-01 08:15 by fdcxdystjk￥
[考研] 336材料求调剂 +10 陈滢莹 2026-03-26 12/600 2026-03-31 17:59 by jp9609
[考研] 343求调剂 +8 爱羁绊 2026-03-28 8/400 2026-03-31 16:12 by 不吃魚的貓
[考研] 323分 食品与营养调剂 +3 嘿ooo 2026-03-31 3/150 2026-03-31 09:38 by longlotian
[考研] 328求调剂 +8 嗯滴的基本都 2026-03-27 8/400 2026-03-30 17:20 by Wang200018
[考研] 340求调剂 +6 Amber00 2026-03-26 6/300 2026-03-29 12:06 by 无际的草原
[考研] 298求调剂 +3 种圣赐 2026-03-29 3/150 2026-03-29 12:06 by longlotian
[考研] 材料与化工（0856）304求B区调剂 +8 邱gl 2026-03-27 8/400 2026-03-28 12:42 by 唐沐儿
信息提示
关闭
请填处理意见
关闭