 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 8 | 1/1 | 返回列表 |
| 查看: 2625 | 回復(fù): 7 | |||
hanye0517木蟲 (小有名氣)
|
[求助]
fortran module 中如何進(jìn)行賦值計(jì)算 已有1人參與
|
|
我想實(shí)現(xiàn)這樣一個(gè)功能，就是有一些變量，比如 A，B，C，用module聲明之后在其他子程序中調(diào)用 其中，C=A*B-2 ，用namelist 對A，B 賦初值。然后由前式計(jì)算C 在子程序中，USE module_name ，ONLY ：A，B，C 但是實(shí)際上在module中賦值時(shí)，module中不允許進(jìn)行計(jì)算聲明，同時(shí)，用contains 包含子程序也需要調(diào)用才能執(zhí)行。 如何在module中，讀入A ，B 兩個(gè)值后，自動(dòng)計(jì)算C 的值，并使之可以在 subroutine中被調(diào)用？ 或者有沒有其他的實(shí)現(xiàn)方法？ Plus ， 雖然可以在子程序中進(jìn)行計(jì)算C，但是我C其實(shí)也算是一個(gè)初始變量，只不過需要一個(gè)簡單的計(jì)算，多個(gè)子程序都要用到C的值，所以 希望它能像A B 一樣可以被調(diào)用，求幫助！ |
回復(fù)此樓» 猜你喜歡
南昌大學(xué)材料專碩311分求調(diào)劑
已經(jīng)有6人回復(fù)
-
316求調(diào)劑
已經(jīng)有6人回復(fù)
-
346求調(diào)劑[0856]
已經(jīng)有7人回復(fù)
-
一志愿山大07化學(xué) 332分 四六級已過 本科山東雙非 求調(diào)劑！
已經(jīng)有3人回復(fù)
-
310求調(diào)劑
已經(jīng)有3人回復(fù)
-
機(jī)械專碩299求調(diào)劑至材料
已經(jīng)有4人回復(fù)
-
070300化學(xué)319求調(diào)劑
已經(jīng)有7人回復(fù)
-
08工科 320總分 求調(diào)劑
已經(jīng)有6人回復(fù)
-
一志愿天津大學(xué)化學(xué)工藝專業(yè)（081702）315分求調(diào)劑
已經(jīng)有12人回復(fù)
-
307求調(diào)劑
已經(jīng)有3人回復(fù)
» 本主題相關(guān)價(jià)值貼推薦，對您同樣有幫助:
- fortran 如何在子程序中實(shí)現(xiàn)動(dòng)態(tài)數(shù)組的定義和聲明？
已經(jīng)有15人回復(fù)
- FORTRAN中不定個(gè)數(shù)傳遞參數(shù)
已經(jīng)有5人回復(fù)
- fortran里面如何表達(dá)連續(xù)的整數(shù)數(shù)列？
已經(jīng)有6人回復(fù)
- 很簡單的Fortran賦值出錯(cuò)啦，求大神們幫忙找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 賦值錯(cuò)亂問題，求大神解答~~~~急。。５５５
已經(jīng)有4人回復(fù)
- fortran error求助
已經(jīng)有3人回復(fù)
- 想問一下影響fortran計(jì)算速度的因素都有哪些？
已經(jīng)有12人回復(fù)
- 程序無法運(yùn)行怎么回事
已經(jīng)有13人回復(fù)
- 【求助】Fortran語言賦值問題？
已經(jīng)有3人回復(fù)
- 【求助】如何提取TXT中某列的數(shù)據(jù)存入一個(gè)數(shù)組，再對數(shù)組做處理
已經(jīng)有4人回復(fù)
- 【求助】求助：安裝abinit-6.2.3出現(xiàn)錯(cuò)誤
已經(jīng)有12人回復(fù)
- 【求助】FORTRAN中增加計(jì)算區(qū)域后出錯(cuò)，
已經(jīng)有5人回復(fù)
- 【求助】FORTRAN編譯通過，但是運(yùn)行不了
已經(jīng)有19人回復(fù)
【答案】應(yīng)助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感謝參與，應(yīng)助指數(shù) +1
hanye0517: 金幣+25, ★★★很有幫助, 雖然不是我想要的，但提供以一種解決問題的方法，謝謝，能不能有更方便的方法？》 2014-06-28 17:05:31
感謝參與，應(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> |
2樓2014-06-28 03:34:52
hanye0517
木蟲 (小有名氣)
- 應(yīng)助: 1 (幼兒園)
- 金幣: 1700.7
- 散金: 98
- 紅花: 17
- 帖子: 144
- 在線: 116.8小時(shí)
- 蟲號: 1253805
- 注冊: 2011-04-02
- 性別: GG
- 專業(yè): 核物理
3樓2014-06-28 17:04:30
4樓2014-06-28 17:48:57
5樓2014-06-28 19:21:57
hanye0517
木蟲 (小有名氣)
- 應(yīng)助: 1 (幼兒園)
- 金幣: 1700.7
- 散金: 98
- 紅花: 17
- 帖子: 144
- 在線: 116.8小時(shí)
- 蟲號: 1253805
- 注冊: 2011-04-02
- 性別: GG
- 專業(yè): 核物理
6樓2014-06-29 20:10:16
7樓2014-06-30 10:58:15
hanye0517
木蟲 (小有名氣)
- 應(yīng)助: 1 (幼兒園)
- 金幣: 1700.7
- 散金: 98
- 紅花: 17
- 帖子: 144
- 在線: 116.8小時(shí)
- 蟲號: 1253805
- 注冊: 2011-04-02
- 性別: GG
- 專業(yè): 核物理
8樓2014-06-30 14:51:28
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 hanye0517 的主題更新
| 8 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 346求調(diào)劑[0856] +4 | WayneLim327 2026-03-16 | 7/350 |
|
|---|---|---|---|---|
|
[考研] 265求調(diào)劑 +9 | 梁梁校校 2026-03-17 | 9/450 |
|
|
|
[考研] 085700資源與環(huán)境308求調(diào)劑 +12 | 墨墨漠 2026-03-18 | 13/650 |
|
|
|
[考研] 329求調(diào)劑 +9 | 想上學(xué)吖吖 2026-03-19 | 9/450 |
|
|
|
[考研] 北科281學(xué)碩材料求調(diào)劑 +5 | tcxiaoxx 2026-03-20 | 5/250 |
|
|
|
[考研] 求調(diào)劑一志愿南京航空航天大學(xué)289分 +3 | @taotao 2026-03-19 | 3/150 |
|
|
|
[考研] 本人考085602 化學(xué)工程 專碩 +19 | 不知道叫什么！ 2026-03-15 | 21/1050 |
|
|
|
[基金申請]
學(xué)校已經(jīng)提交到NSFC，還能修改嗎？
 40+4
|
babangida 2026-03-19 | 8/400 |
|
|
|
[考研] 招收調(diào)劑碩士 +4 | lidianxing 2026-03-19 | 12/600 |
|
|
|
[考研] 梁成偉老師課題組歡迎你的加入 +9 | 一鴨鴨喲 2026-03-14 | 11/550 |
|
|
|
[考研] 復(fù)試調(diào)劑 +4 | z1z2z3879 2026-03-14 | 6/300 |
|
|
|
[考研] 0703化學(xué) 305求調(diào)劑 +4 | FY_yy 2026-03-14 | 4/200 |
|
|
|
[考研] 材料專碩306英一數(shù)二 +10 | z1z2z3879 2026-03-16 | 13/650 |
|
|
|
[考研] 收復(fù)試調(diào)劑生 +4 | 雨后秋荷 2026-03-18 | 4/200 |
|
|
|
[考研] 材料，紡織，生物（0856、0710），化學(xué)招生啦 +3 | Eember. 2026-03-17 | 9/450 |
|
|
|
[考研] 考研化學(xué)學(xué)碩調(diào)劑，一志愿985 +4 | 張vvvv 2026-03-15 | 6/300 |
|
|
|
[考研] 275求調(diào)劑 +4 | 太陽花天天開心 2026-03-16 | 4/200 |
|
|
|
[考研] 327求調(diào)劑 +6 | 拾光任染 2026-03-15 | 11/550 |
|
|
|
[考研] 297一志愿上交085600求調(diào)劑 +5 | 指尖八千里 2026-03-14 | 5/250 |
|
|
|
[考研] 復(fù)試調(diào)劑 +3 | 呼呼？~+123456 2026-03-14 | 3/150 |
|