版塊導(dǎo)航: 正在加載中...

登錄注冊

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進行實名認證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號能夠正常使用，請盡快對帳號進行手機號驗證，感謝您的理解與支持！

24小時熱門版塊排行榜

返回列表

hanye0517

木蟲 (小有名氣)

應(yīng)助: 1 (幼兒園)
金幣: 1700.7
散金: 98
紅花: 17
帖子: 144
在線: 116.8小時
蟲號: 1253805
注冊: 2011-04-02
性別: GG
專業(yè): 核物理

[求助] fortran module 中如何進行賦值計算已有1人參與

我想實現(xiàn)這樣一個功能，就是有一些變量，比如 A，B，C，用module聲明之后在其他子程序中調(diào)用
其中，C=A*B-2 ，用namelist 對A，B 賦初值。然后由前式計算C
在子程序中，USE module_name ，ONLY ：A，B，C
但是實際上在module中賦值時，module中不允許進行計算聲明，同時，用contains
包含子程序也需要調(diào)用才能執(zhí)行。

如何在module中，讀入A ，B 兩個值后，自動計算C 的值，并使之可以在 subroutine中被調(diào)用？
或者有沒有其他的實現(xiàn)方法？
Plus ，雖然可以在子程序中進行計算C，但是我C其實也算是一個初始變量，只不過需要一個簡單的計算，多個子程序都要用到C的值，所以
希望它能像A B 一樣可以被調(diào)用，求幫助！

回復(fù)此樓

» 猜你喜歡

290求調(diào)劑已經(jīng)有7人回復(fù)
一志愿中南化學(xué)（0703）總分337求調(diào)劑已經(jīng)有8人回復(fù)
北科281學(xué)碩材料求調(diào)劑已經(jīng)有5人回復(fù)
求調(diào)劑一志愿南京航空航天大學(xué)289分已經(jīng)有3人回復(fù)
A區(qū)線材料學(xué)調(diào)劑已經(jīng)有5人回復(fù)
材料學(xué)碩297已過四六級求調(diào)劑推薦已經(jīng)有11人回復(fù)
316求調(diào)劑已經(jīng)有5人回復(fù)
一志愿西南交通專碩材料355 本科雙非求調(diào)劑已經(jīng)有5人回復(fù)
一志愿武漢理工材料工程專碩調(diào)劑已經(jīng)有8人回復(fù)
329求調(diào)劑已經(jīng)有8人回復(fù)

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

fortran 如何在子程序中實現(xiàn)動態(tài)數(shù)組的定義和聲明？已經(jīng)有15人回復(fù)
FORTRAN中不定個數(shù)傳遞參數(shù) 已經(jīng)有5人回復(fù)
fortran里面如何表達連續(xù)的整數(shù)數(shù)列？已經(jīng)有6人回復(fù)
很簡單的Fortran賦值出錯啦，求大神們幫忙找bug... 已經(jīng)有11人回復(fù)
fortran程序出現(xiàn)Error: Error in opening the Library module file.[MSIMSLMD] 已經(jīng)有7人回復(fù)
fortran語言漢字亂碼已經(jīng)有12人回復(fù)
fortran編譯中$符號的使用已經(jīng)有4人回復(fù)
fortran中的數(shù)組越界問題，已經(jīng)有3人回復(fù)
Fortran2003面向?qū)ο笄笾?/a> 已經(jīng)有3人回復(fù)

求助關(guān)于module中變量的問題已經(jīng)有4人回復(fù)
intel visual fortran中MKL如何使用，是用use module還是include？已經(jīng)有4人回復(fù)
FORTRAN　賦值錯亂問題，求大神解答~~~~急。。５５５已經(jīng)有4人回復(fù)
fortran error求助已經(jīng)有3人回復(fù)
想問一下影響fortran計算速度的因素都有哪些？已經(jīng)有12人回復(fù)
程序無法運行怎么回事已經(jīng)有13人回復(fù)
【求助】Fortran語言賦值問題？已經(jīng)有3人回復(fù)
【求助】如何提取TXT中某列的數(shù)據(jù)存入一個數(shù)組，再對數(shù)組做處理已經(jīng)有4人回復(fù)
【求助】求助：安裝abinit-6.2.3出現(xiàn)錯誤已經(jīng)有12人回復(fù)
【求助】FORTRAN中增加計算區(qū)域后出錯，已經(jīng)有5人回復(fù)
【求助】FORTRAN編譯通過，但是運行不了已經(jīng)有19人回復(fù)

道之所在，雖千萬人吾往矣。

1樓 2014-06-25 10:29:14

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

fish.yfyh

銅蟲 (小有名氣)

應(yīng)助: 42 (小學(xué)生)
金幣: 607.9
紅花: 4
帖子: 108
在線: 35.9小時
蟲號: 2867094
注冊: 2013-12-12
專業(yè): 化學(xué)生物學(xué)與生物有機化學(xué)

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

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感謝參與，應(yīng)助指數(shù) +1
hanye0517: 金幣+25, ★★★很有幫助, 雖然不是我想要的，但提供以一種解決問題的方法，謝謝，能不能有更方便的方法？》 2014-06-28 17:05:31

Fortran代碼如下:
<pre>
   module module_name
   real(8) :: a,b,c

   contains
      subroutine initial_ab
      namelist /ab/ a,b
      open(10,file='test.inp',action='read')
      read(10,nml=ab)
      close(10)
      end subroutine

      subroutine initial_c
      c = a*b - 2.0
      end subroutine
   end module

   ! main program
   program main
   use module_name
   implicit none

   call initial_ab
   call initial_c

   print*, 'a = ',a
   print*, 'b = ',b
   print*, 'c = ',c

   stop
   end program
</pre>
輸入文件test.inp如下
<pre>
&ab
a = 1.5
b = 2.5
/
</pre>
結(jié)果
<pre>
a = 1.50000000000000
b = 2.50000000000000
c = 1.75000000000000
</pre>

贊一下(1人)

回復(fù)此樓

2樓2014-06-28 03:34:52

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

hanye0517

木蟲 (小有名氣)

應(yīng)助: 1 (幼兒園)
金幣: 1700.7
散金: 98
紅花: 17
帖子: 144
在線: 116.8小時
蟲號: 1253805
注冊: 2011-04-02
性別: GG
專業(yè): 核物理

引用回帖:

2樓: Originally posted by fish.yfyh at 2014-06-28 03:34:52
Fortran代碼如下:
<pre>
   module module_name
   real(8) :: a,b,c

   contains
      subroutine initial_ab
      namelist /ab/ a,b
      open(10,file='test.in ...

謝謝你的回復(fù)，你的方法當然可行，在主程序中先把C 值調(diào)用計算后存入內(nèi)存�？梢园哑浞旁谥鞒绦蛑羞M行初始賦值。
相當于編了一個計算C 的程序，然后在主程序里邊調(diào)用（call），對C進行賦值，我的問題是，我要在多個子程序里邊調(diào)用A，B，C 的值，在多個子程序中。能不能在module中就進行計算，直接出C的值？不需要在主程序中調(diào)用？
這樣顯得會方便些，同時也省得記住要計算C的值。

贊一下

回復(fù)此樓

道之所在，雖千萬人吾往矣。

3樓2014-06-28 17:04:30

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

綠遍山原

銅蟲 (小有名氣)

應(yīng)助: 64 (初中生)
金幣: 707.7
紅花: 5
帖子: 159
在線: 201.2小時
蟲號: 1128371
注冊: 2010-10-21
性別: GG
專業(yè): 凝聚態(tài)物性I:結(jié)構(gòu)、力學(xué)和

引用回帖:

3樓: Originally posted by hanye0517 at 2014-06-28 17:04:30
謝謝你的回復(fù)，你的方法當然可行，在主程序中先把C 值調(diào)用計算后存入內(nèi)存�？梢园哑浞旁谥鞒绦蛑羞M行初始賦值。
相當于編了一個計算C 的程序，然后在主程序里邊調(diào)用（call），對C進行賦值，我的問題是，我要在多個 ...

最開頭調(diào)用一次不就行了。

贊一下

回復(fù)此樓

要夢遊，不要催眠。

4樓2014-06-28 17:48:57

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

fish.yfyh

銅蟲 (小有名氣)

應(yīng)助: 42 (小學(xué)生)
金幣: 607.9
紅花: 4
帖子: 108
在線: 35.9小時
蟲號: 2867094
注冊: 2013-12-12
專業(yè): 化學(xué)生物學(xué)與生物有機化學(xué)

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

★ ★ ★ ★ ★ ★ ★ ★ ★ ★
hanye0517: 金幣+10, ★有幫助, 與樓上方法相同，謝謝回復(fù) 2014-06-29 20:10:43

引用回帖:

3樓: Originally posted by hanye0517 at 2014-06-28 17:04:30
謝謝你的回復(fù)，你的方法當然可行，在主程序中先把C 值調(diào)用計算后存入內(nèi)存。可以把其放在主程序中進行初始賦值。
相當于編了一個計算C 的程序，然后在主程序里邊調(diào)用（call），對C進行賦值，我的問題是，我要在多個 ...

至少需要調(diào)用一次，不然c的值怎么得到？
解決辦法就是在主程序開始，調(diào)用一次初始化，把c的值放入內(nèi)存，后面的每一個subroutine都可以用了。

贊一下

回復(fù)此樓

5樓2014-06-28 19:21:57

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

hanye0517

木蟲 (小有名氣)

應(yīng)助: 1 (幼兒園)
金幣: 1700.7
散金: 98
紅花: 17
帖子: 144
在線: 116.8小時
蟲號: 1253805
注冊: 2011-04-02
性別: GG
專業(yè): 核物理

引用回帖:

5樓: Originally posted by fish.yfyh at 2014-06-28 19:21:57
至少需要調(diào)用一次，不然c的值怎么得到？
解決辦法就是在主程序開始，調(diào)用一次初始化，把c的值放入內(nèi)存，后面的每一個subroutine都可以用了。...

這么說沒辦法在module中直接計算么，我是覺得a，b的值計算C 這調(diào)用一次比較麻煩，如果值能這樣的話，只好做一個初始化的計算子歷程，把所有的需要初步計算的值都統(tǒng)一調(diào)用計算一遍了

贊一下

回復(fù)此樓

道之所在，雖千萬人吾往矣。

6樓2014-06-29 20:10:16

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

fish.yfyh

銅蟲 (小有名氣)

應(yīng)助: 42 (小學(xué)生)
金幣: 607.9
紅花: 4
帖子: 108
在線: 35.9小時
蟲號: 2867094
注冊: 2013-12-12
專業(yè): 化學(xué)生物學(xué)與生物有機化學(xué)

引用回帖:

6樓: Originally posted by hanye0517 at 2014-06-29 20:10:16
這么說沒辦法在module中直接計算么，我是覺得a，b的值計算C 這調(diào)用一次比較麻煩，如果值能這樣的話，只好做一個初始化的計算子歷程，把所有的需要初步計算的值都統(tǒng)一調(diào)用計算一遍了...

use只是在調(diào)用module中的變量。
里面的值要么是parameter，已經(jīng)定義好了的。
要么就你這樣，未定的，一定要計算一次才有值的，那么就必須顯式call一次。

調(diào)用一次，有“那么麻煩嗎”??

贊一下

回復(fù)此樓

7樓2014-06-30 10:58:15

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

hanye0517

木蟲 (小有名氣)

應(yīng)助: 1 (幼兒園)
金幣: 1700.7
散金: 98
紅花: 17
帖子: 144
在線: 116.8小時
蟲號: 1253805
注冊: 2011-04-02
性別: GG
專業(yè): 核物理

引用回帖:

7樓: Originally posted by fish.yfyh at 2014-06-30 10:58:15
use只是在調(diào)用module中的變量。
里面的值要么是parameter，已經(jīng)定義好了的。
要么就你這樣，未定的，一定要計算一次才有值的，那么就必須顯式call一次。

調(diào)用一次，有“那么麻煩嗎”??...

一個其實不麻煩，很多個就比較煩躁，只能集合在一起了

贊一下

回復(fù)此樓

道之所在，雖千萬人吾往矣。

8樓2014-06-30 14:51:28

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

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主 hanye0517 的主題更新

返回列表

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

[考研] 北科281學(xué)碩材料求調(diào)劑 +5	tcxiaoxx 2026-03-20	5/250	2026-03-20 21:35 by laoshidan
[考研] 材料與化工 322求調(diào)劑 +3	然11 2026-03-19	3/150	2026-03-20 21:05 by zhukairuo
[考研] 260求調(diào)劑 +3	朱芷琳 2026-03-20	3/150	2026-03-20 20:35 by 學(xué)員8dgXkO
[考研] 324求調(diào)劑 +3	lucky呀呀呀鴨 2026-03-20	3/150	2026-03-20 20:30 by JourneyLucky
[考研] 289求調(diào)劑 +6	懷瑾握瑜l 2026-03-20	6/300	2026-03-20 20:30 by 學(xué)員8dgXkO
[考研] 求調(diào)劑 +3	eation27 2026-03-20	3/150	2026-03-20 19:32 by JourneyLucky
[考研] 281求調(diào)劑（0805） +14	煙汐憶海 2026-03-16	25/1250	2026-03-20 15:47 by yuncha
[考研] 304求調(diào)劑 +5	曼殊2266 2026-03-18	5/250	2026-03-20 09:00 by ZHANG0tao
[考研] 生物學(xué)調(diào)劑招人�。�！ +3	山海天嵐 2026-03-17	4/200	2026-03-19 21:34 by 怎么釋懷
[考研] 復(fù)試調(diào)劑 +4	z1z2z3879 2026-03-14	6/300	2026-03-19 17:18 by fei626-918
[考研] 材料與化工求調(diào)劑 +7	為學(xué)666 2026-03-16	7/350	2026-03-19 14:48 by 盡舜堯1
[考研] 286求調(diào)劑 +6	lemonzzn 2026-03-16	10/500	2026-03-19 14:31 by lemonzzn
[考研] 收復(fù)試調(diào)劑生 +4	雨后秋荷 2026-03-18	4/200	2026-03-18 14:16 by elevennnne
[考研] 0703化學(xué)調(diào)劑 +3	妮妮ninicgb 2026-03-17	3/150	2026-03-18 10:29 by macy2011
[考博] 26博士申請 +3	1042136743 2026-03-17	3/150	2026-03-17 23:30 by 輕松不少隨
[考研] 277調(diào)劑 +5	自由煎餅果子 2026-03-16	6/300	2026-03-17 19:26 by 李leezz
[考研] 301求調(diào)劑 +4	A_JiXing 2026-03-16	4/200	2026-03-17 17:32 by ruiyingmiao
[考博] 26申博 +4	八6八68 2026-03-16	4/200	2026-03-17 13:00 by 輕松不少隨
[考研] 070300化學(xué)學(xué)碩求調(diào)劑 +6	太想進步了0608 2026-03-16	6/300	2026-03-16 16:13 by kykm678
[考研] 277材料科學(xué)與工程080500求調(diào)劑 +3	自由煎餅果子 2026-03-16	3/150	2026-03-16 14:10 by 運氣yunqi

24小時熱門版塊排行榜

[求助] fortran module 中如何進行賦值計算 已有1人參與

» 猜你喜歡

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

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

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

[求助] fortran module 中如何進行賦值計算已有1人參與

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