1xiaohua1

應(yīng)助: 0 (幼兒園)
金幣: 2036.9
紅花: 1
帖子: 452
在線: 242.1小時(shí)
蟲(chóng)號(hào): 1473445
注冊(cè): 2011-11-02
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

[求助] 請(qǐng)高手指點(diǎn)如何成功運(yùn)行fun.f90和main.f90

　　假如現(xiàn)在有兩個(gè)Fortran程序fun.f90和main.f90，其中main.f90是主程序，fun.f90是在主程序中調(diào)用的子程序，將這兩個(gè)文件放到一個(gè)目錄下，如何使用fortran成功編譯并運(yùn)行主程序，獲得運(yùn)算結(jié)果？
（需要在主程序中添加什么語(yǔ)句，以及如何運(yùn)行和編譯主程序，一切都在window系統(tǒng)VS軟件下進(jìn)行）

求高手指點(diǎn)，給出詳細(xì)的操作

回復(fù)此樓

» 猜你喜歡

材料調(diào)劑已經(jīng)有9人回復(fù)
311（085601）求調(diào)劑已經(jīng)有5人回復(fù)
307分求調(diào)劑已經(jīng)有6人回復(fù)
085601英二數(shù)二求調(diào)劑總分325 已經(jīng)有3人回復(fù)
求調(diào)劑已經(jīng)有10人回復(fù)
生醫(yī)工0831調(diào)劑求推薦已經(jīng)有6人回復(fù)
生物學(xué)296求調(diào)劑已經(jīng)有12人回復(fù)
一志愿武理材料工程302調(diào)劑環(huán)化或化工已經(jīng)有4人回復(fù)
286分調(diào)劑已經(jīng)有12人回復(fù)
復(fù)試調(diào)劑已經(jīng)有3人回復(fù)

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:

用SPSS運(yùn)行IC50的一些問(wèn)題請(qǐng)教，請(qǐng)高手指點(diǎn) 已經(jīng)有8人回復(fù)
筆記本的F盤的圖標(biāo)不見(jiàn)了，怎么弄回來(lái)，請(qǐng)高手指點(diǎn)~~~ 已經(jīng)有4人回復(fù)
matlab程序運(yùn)行總是出現(xiàn)下面的錯(cuò)誤，請(qǐng)各位高手指點(diǎn)一下，謝謝了！急急急已經(jīng)有5人回復(fù)
matlab中運(yùn)行提示出錯(cuò)，請(qǐng)求高手指點(diǎn) 已經(jīng)有8人回復(fù)

活著，就要不停地做事

1樓 2013-11-10 19:49:57

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

回帖支持 ( 顯示支持度最高的前 50 名 )

zhg19

金蟲(chóng) (小有名氣)

應(yīng)助: 33 (小學(xué)生)
金幣: 894.6
紅花: 3
帖子: 212
在線: 114.5小時(shí)
蟲(chóng)號(hào): 1895765
注冊(cè): 2012-07-16
性別: GG
專業(yè): 半導(dǎo)體物理

引用回帖:

4樓: Originally posted by 1xiaohua1 at 2013-11-11 15:06:14
謝謝了，我加了運(yùn)行不了...

你的那個(gè)fun.90里的子程序是按subroutine定義的？

贊一下(2人)

回復(fù)此樓

6樓2013-11-11 17:52:16

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

virtualzx

木蟲(chóng) (著名寫手)

應(yīng)助: 263 (大學(xué)生)
金幣: 7161.3
紅花: 54
帖子: 1605
在線: 317.6小時(shí)
蟲(chóng)號(hào): 2069080
注冊(cè): 2012-10-18
性別: GG
專業(yè): 理論和計(jì)算化學(xué)

【答案】應(yīng)助回帖

★ ★ ★ ★ ★
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
另一個(gè)...

在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人)

回復(fù)此樓

20樓2013-11-15 06:39:44

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

普通回帖

Carpathia

銀蟲(chóng) (小有名氣)

應(yīng)助: 35 (小學(xué)生)
金幣: 5.6
散金: 12
紅花: 2
帖子: 140
在線: 24.9小時(shí)
蟲(chóng)號(hào): 1070633
注冊(cè): 2010-08-06
性別: GG
專業(yè): 動(dòng)力學(xué)與控制

【答案】應(yīng)助回帖

★ ★ ★ ★
感謝參與，應(yīng)助指數(shù) +1
jjdg: 金幣+1, 感謝參與 2013-11-12 01:23:20
1xiaohua1: 金幣+2 2013-11-14 16:39:40
1xiaohua1: 金幣+1 2013-12-13 22:51:01

前提兩個(gè)文件都加入project，主程序中要加入interface，指定fun里面的函數(shù)，main里面確定要有program入口，然后可以編譯了

贊一下

回復(fù)此樓

追求理想的道路上東張西望

2樓2013-11-10 20:47:04

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

zhg19

金蟲(chóng) (小有名氣)

應(yīng)助: 33 (小學(xué)生)
金幣: 894.6
紅花: 3
帖子: 212
在線: 114.5小時(shí)
蟲(chóng)號(hào): 1895765
注冊(cè): 2012-07-16
性別: GG
專業(yè): 半導(dǎo)體物理

【答案】應(yīng)助回帖

★ ★ ★ ★
感謝參與，應(yīng)助指數(shù) +1
1xiaohua1: 金幣+1 2013-11-11 15:06:45
jjdg: 金幣+1, 感謝參與 2013-11-12 01:23:27
1xiaohua1: 金幣+2 2013-11-14 16:39:46

樓主可嘗試在主程序末尾添加：
include 'fun.f90'

贊一下

回復(fù)此樓

3樓2013-11-10 23:05:33

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

1xiaohua1

木蟲(chóng) (正式寫手)

應(yīng)助: 0 (幼兒園)
金幣: 2036.9
紅花: 1
帖子: 452
在線: 242.1小時(shí)
蟲(chóng)號(hào): 1473445
注冊(cè): 2011-11-02
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

引用回帖:

3樓: Originally posted by zhg19 at 2013-11-10 23:05:33
樓主可嘗試在主程序末尾添加：
include 'fun.f90'

謝謝了，我加了運(yùn)行不了

贊一下

回復(fù)此樓

活著，就要不停地做事

4樓2013-11-11 15:06:14

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

1xiaohua1

木蟲(chóng) (正式寫手)

應(yīng)助: 0 (幼兒園)
金幣: 2036.9
紅花: 1
帖子: 452
在線: 242.1小時(shí)
蟲(chóng)號(hào): 1473445
注冊(cè): 2011-11-02
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

引用回帖:

2樓: Originally posted by Carpathia at 2013-11-10 20:47:04
前提兩個(gè)文件都加入project，主程序中要加入interface，指定fun里面的函數(shù)，main里面確定要有program入口，然后可以編譯了

你好，你說(shuō)的我不太明白，能不能給個(gè)例子
      main主程序：
                     program  main
                              implicit none
                              real::a=2,b=3
                              real::c
                              c=fun(a,b)
                     end program

            function  fun(x,y)
                              real,intent(in)  :: x  , y
                              real::z
                              z=x+y
            end function
對(duì)這樣簡(jiǎn)單的例子，我該對(duì)主程序怎樣修改？？

贊一下

回復(fù)此樓

活著，就要不停地做事

5樓2013-11-11 15:12:20

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

totu2013

新蟲(chóng) (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 6
帖子: 19
在線: 4.5小時(shí)
蟲(chóng)號(hào): 2767688
注冊(cè): 2013-10-31

引用回帖:

6樓: Originally posted by zhg19 at 2013-11-11 17:52:16
你的那個(gè)fun.90里的子程序是按subroutine定義的？...

正解。

回復(fù)此樓

7樓2013-11-11 22:53:40

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

zhg19

金蟲(chóng) (小有名氣)

應(yīng)助: 33 (小學(xué)生)
金幣: 894.6
紅花: 3
帖子: 212
在線: 114.5小時(shí)
蟲(chóng)號(hào): 1895765
注冊(cè): 2012-07-16
性別: GG
專業(yè): 半導(dǎo)體物理

引用回帖:

7樓: Originally posted by totu2013 at 2013-11-11 22:53:40
正解。...

應(yīng)該可以啊，不過(guò)，沒(méi)代碼，問(wèn)題不好說(shuō)。。。

贊一下

回復(fù)此樓

8樓2013-11-11 23:55:03

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

zhg19

金蟲(chóng) (小有名氣)

應(yīng)助: 33 (小學(xué)生)
金幣: 894.6
紅花: 3
帖子: 212
在線: 114.5小時(shí)
蟲(chóng)號(hào): 1895765
注冊(cè): 2012-07-16
性別: GG
專業(yè): 半導(dǎo)體物理

【答案】應(yīng)助回帖

引用回帖:

5樓: Originally posted by 1xiaohua1 at 2013-11-11 15:12:20
你好，你說(shuō)的我不太明白，能不能給個(gè)例子
      main主程序：
                     program  main
                              implicit none
                              real::a=2,b=3
...

貌似fun(a,b)木有返回值啊。。。

贊一下

回復(fù)此樓

9樓2013-11-12 00:03:00

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

virtualzx

木蟲(chóng) (著名寫手)

應(yīng)助: 263 (大學(xué)生)
金幣: 7161.3
紅花: 54
帖子: 1605
在線: 317.6小時(shí)
蟲(chóng)號(hào): 2069080
注冊(cè): 2012-10-18
性別: GG
專業(yè): 理論和計(jì)算化學(xué)

【答案】應(yīng)助回帖

★ ★
感謝參與，應(yīng)助指數(shù) +1
1xiaohua1: 金幣+2 2013-11-14 16:40:03

引用回帖:

5樓: Originally posted by 1xiaohua1 at 2013-11-11 02:12:20
你好，你說(shuō)的我不太明白，能不能給個(gè)例子
      main主程序：
                     program  main
                              implicit none
                              real::a=2,b=3
...

先改下主程序，加上
real, external :: fun

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

然后直接編譯，就可以了

贊一下

回復(fù)此樓

10樓2013-11-12 01:56:51

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

最具人氣熱帖推薦 [查看全部]	作者	回/看	最后發(fā)表

[考研] 080500-315分復(fù)試調(diào)劑 +8	上岸3821 2026-03-31	8/400	2026-03-31 17:01 by 無(wú)際的草原
[考研] 340求調(diào)劑 +4	希望如此i 2026-03-31	4/200	2026-03-31 16:40 by 690616278
[考研] 308求調(diào)劑 +9	墨墨漠 2026-03-25	9/450	2026-03-31 16:38 by hypershenger
[考研] 070300化學(xué)求調(diào)劑 +10	小黃鴨寶 2026-03-30	10/500	2026-03-31 15:20 by yanflower7133
[考研] 求收留 +8	1943443204 2026-03-28	8/400	2026-03-31 15:00 by -迷了路啊路
[考研] 調(diào)劑申請(qǐng) +6	張張張張zy 2026-03-31	6/300	2026-03-31 14:20 by 記事本2026
[考研] 0856調(diào)劑 +6	曲聽(tīng)筠 2026-03-30	6/300	2026-03-31 09:44 by Jaylen.
[考研] 335求調(diào)劑 +3	321* 2026-03-31	3/150	2026-03-31 09:00 by 功夫瘋狂
[考研] 一志愿大連理工大學(xué)材料求調(diào)劑 +6	Gymno 2026-03-30	6/300	2026-03-31 07:26 by 無(wú)際的草原
[考研] 福建理工大學(xué)材料學(xué)院先進(jìn)合金團(tuán)隊(duì)招收考研調(diào)劑學(xué)生 +3	大華金商都 2026-03-30	4/200	2026-03-31 01:04 by 方英俊602
[考研] 材料科學(xué)與工程 317求調(diào)劑 +7	JKSOIID 2026-03-26	7/350	2026-03-30 20:10 by 滴滴上岸呀
[考研] 304材料求調(diào)劑 +5	鐘llll 2026-03-26	5/250	2026-03-30 19:37 by 源_2020
[碩博家園] 求調(diào)劑有機(jī)化學(xué)考研356分 +10	Nadiums 2026-03-25	11/550	2026-03-30 11:56 by yjolah
[考研] 0856求調(diào)劑 +8	楒桉 2026-03-28	8/400	2026-03-30 10:00 by wzy-lxz
[考研] 340求調(diào)劑 +6	Amber00 2026-03-26	6/300	2026-03-29 12:06 by 無(wú)際的草原
[考研] 085600，專業(yè)課化工原理，321分求調(diào)劑 +5	大饞小子 2026-03-28	5/250	2026-03-29 08:56 by qingfeng258
[考研] 299求調(diào)劑 +7	嗯嗯嗯嗯2 2026-03-27	7/350	2026-03-28 13:09 by 唐沐兒
[碩博家園] 北京林業(yè)大學(xué)碩導(dǎo)招生廣告 +6	kongweilin 2026-03-26	8/400	2026-03-27 10:18 by FF_16
[考研] 309求調(diào)劑 +4	gajsj 2026-03-25	5/250	2026-03-26 00:27 by Dyhoer
[考研] 網(wǎng)絡(luò)空間安全0839招調(diào)劑 +4	w320357296 2026-03-25	6/300	2026-03-25 17:59 by 255671