 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 2583 | 回復(fù): 5 | |||
| 當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖 | |||
nano_xinxin金蟲 (小有名氣)
|
[交流]
【求助】求指點(diǎn)，在Fortran里面，怎樣實(shí)現(xiàn)“數(shù)組維度可調(diào)”的數(shù)組?
|
||
|
我剛開始學(xué)習(xí) Fortran 語言編程，最近在編程時(shí)，遇到一個(gè)問題，因?yàn)橐诔绦蚶锩嫔婕耙粋�(gè)do 循環(huán)，希望通過控制 do 循環(huán)的循環(huán)變量 I ，來調(diào)用一個(gè)維度可以改變的三維數(shù)組(第一維度已經(jīng)確定)，例如數(shù)組 A (I ，：，：) . 例如，我希望： .............. real(8) , allocatable :: A ( ： ，： ，：) .............. I=1 時(shí)， A (1 ，： ，：) 數(shù)組元素是一個(gè)4*3（四乘三) 的二維矩陣； I=2 時(shí)， A (2 ，：，：) 數(shù)組元素是一個(gè)3*5 的二維矩陣； .............. I=N時(shí)， A (N ，： ，：) 數(shù)組元素 是一個(gè)X*Y的二維矩陣. .............. 請問，怎樣定義、賦值、調(diào)用這樣一個(gè)維度可以改變的動(dòng)態(tài)數(shù)組？（三個(gè)維度同時(shí)改變或者只改變第二、第三維度？） 謝謝！ [ Last edited by nano_xinxin on 2010-9-2 at 19:26 ] |
回復(fù)此樓» 猜你喜歡
311求調(diào)劑
已經(jīng)有4人回復(fù)
-
304求調(diào)劑
已經(jīng)有4人回復(fù)
-
354求調(diào)劑
已經(jīng)有7人回復(fù)
-
321求調(diào)劑
已經(jīng)有3人回復(fù)
-
274求調(diào)劑
已經(jīng)有5人回復(fù)
-
281求調(diào)劑（0805）
已經(jīng)有15人回復(fù)
-
085600材料與化工調(diào)劑 324分
已經(jīng)有8人回復(fù)
-
能源材料化學(xué)課題組招收碩士研究生8-10名
已經(jīng)有10人回復(fù)
-
267一志愿南京工業(yè)大學(xué)0817化工求調(diào)劑
已經(jīng)有8人回復(fù)
-
328求調(diào)劑，英語六級551，有科研經(jīng)歷
已經(jīng)有10人回復(fù)
» 本主題相關(guān)價(jià)值貼推薦，對您同樣有幫助:
- Matlab的熟練用戶或者大神看過來，兩個(gè)隨機(jī)變量存在相互關(guān)系的簡單問題。重金求助！
已經(jīng)有1人回復(fù)
- 【求助】matlab帶有變量的矩陣求導(dǎo)
已經(jīng)有4人回復(fù)
- 【交流/求助】第一次發(fā)帖，請教藍(lán)白篩選后質(zhì)�；厥盏膯栴}
已經(jīng)有0人回復(fù)
- 【求助】一道算法題目
已經(jīng)有6人回復(fù)
- 【求助成功】murn.f用ifort編譯完運(yùn)行時(shí)不能正確執(zhí)行
已經(jīng)有2人回復(fù)
- 【求助】一個(gè)求積分的fortran程序，請高手指點(diǎn)（還是在物理區(qū)問好些）
已經(jīng)有4人回復(fù)
- 【求助】溶膠凝膠法制備TiO2，粒徑太大，求牛人指點(diǎn)
已經(jīng)有3人回復(fù)
- 【求助/交流】種子液中出現(xiàn)晶體，求指點(diǎn)
已經(jīng)有3人回復(fù)
- 【求助】癸酰乙醛能用HPLC分析嗎
已經(jīng)有0人回復(fù)
- 碩博家園求助匯總貼（發(fā)求助貼的可PM版主）
已經(jīng)有1人回復(fù)
- 【求助】關(guān)于擬合得到體彈性模量&自旋極化&LDA+U等問題，望大家指點(diǎn)指點(diǎn)
已經(jīng)有4人回復(fù)
- 【求助】太陽能極限效率計(jì)算程序中的積分運(yùn)算
已經(jīng)有0人回復(fù)
- 【求助】求短日照處理在林木育苗及草坪草方面的文章
已經(jīng)有1人回復(fù)
- 【求助】關(guān)于共形映射的問題，不甚感激！
已經(jīng)有12人回復(fù)
- 【求助】高人能給指點(diǎn)下不？【已解決】
已經(jīng)有3人回復(fù)
- 【分享】羊皮卷國語語音，療傷心靈的神藥【已搜索無重復(fù)】
已經(jīng)有2人回復(fù)
- 【求助】請問下面MATLAB程序哪兒不對呢
已經(jīng)有9人回復(fù)
nano_xinxin
金蟲 (小有名氣)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 919.1
- 散金: 311
- 紅花: 1
- 帖子: 189
- 在線: 33小時(shí)
- 蟲號: 927575
- 注冊: 2009-12-14
- 性別: GG
- 專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)
|
謝謝你！ 我仔細(xì)思考了一下，用子例行程序 SUBROTINE XX(A,I,J,K) 的話，假設(shè) XX 是程序名， A 是返回的矩陣，調(diào)用的時(shí)候，通過改變 I,J,K 的值，的確可以改變 A 的數(shù)組維度（需重新定義A）。但是，在調(diào)用的時(shí)候，首先要定義 A 的矩陣維度，當(dāng)改變I，J，K 的時(shí)候，相當(dāng)于又要重新定義一個(gè)矩陣A*，等價(jià)于在調(diào)用之前要定義N個(gè)不同維度的矩陣A1，A2，...，AN，即通過調(diào)用該 子例行程序 SUBROTINE XX(A,I,J,K) ，只是起到了一個(gè)定義多個(gè)矩陣維度不同的矩陣這樣一個(gè)功能，實(shí)際上數(shù)組名 A 已經(jīng)發(fā)生了變化。 我設(shè)想的是在數(shù)組名 A 不變的情況下，怎樣實(shí)現(xiàn)改變其數(shù)組維度。 感謝你的幫助！ |
6樓2010-09-07 22:10:01
nano_xinxin
金蟲 (小有名氣)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 919.1
- 散金: 311
- 紅花: 1
- 帖子: 189
- 在線: 33小時(shí)
- 蟲號: 927575
- 注冊: 2009-12-14
- 性別: GG
- 專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)
2樓2010-09-04 09:46:05
hakekill
木蟲 (小有名氣)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 1709.3
- 帖子: 131
- 在線: 19小時(shí)
- 蟲號: 246017
- 注冊: 2006-04-29
- 性別: GG
- 專業(yè): 水環(huán)境與生態(tài)水利
3樓2010-09-04 11:14:23
liubin1984
木蟲 (著名寫手)
不糾結(jié)的男人
- 應(yīng)助: 1 (幼兒園)
- 金幣: 2635.1
- 散金: 827
- 紅花: 3
- 帖子: 2874
- 在線: 447小時(shí)
- 蟲號: 627659
- 注冊: 2008-10-16
- 性別: GG
- 專業(yè): 粉末冶金與粉體工程
5樓2010-09-07 17:53:25
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 311求調(diào)劑 +4 | 冬十三 2026-03-18 | 4/200 |
|
|---|---|---|---|---|
|
|
[考研] 344求調(diào)劑 +6 | knight344 2026-03-16 | 7/350 |
|
|
[考研]
 271材料工程求調(diào)劑
+4
|
.6lL 2026-03-18 | 4/200 |
|
|
|
[考研] 一志愿吉林大學(xué)材料學(xué)碩321求調(diào)劑 +3 | Ymlll 2026-03-18 | 5/250 |
|
|
|
[考研] 化學(xué)工程321分求調(diào)劑 +15 | 大米飯！ 2026-03-15 | 18/900 |
|
|
|
[考研] 303求調(diào)劑 +4 | 睿08 2026-03-17 | 6/300 |
|
|
|
[考研] 326求調(diào)劑 +5 | 上岸的小葡 2026-03-15 | 6/300 |
|
|
|
[考研] 290求調(diào)劑 +3 | p asserby. 2026-03-15 | 4/200 |
|
|
|
[考研] 275求調(diào)劑 +4 | 太陽花天天開心 2026-03-16 | 4/200 |
|
|
|
[考研] 0854控制工程 359求調(diào)劑 可跨專業(yè) +3 | 626776879 2026-03-14 | 9/450 |
|
|
|
[考研] 304求調(diào)劑 +4 | ahbd 2026-03-14 | 4/200 |
|
|
|
[考研] 求老師收留調(diào)劑 +4 | jiang姜66 2026-03-14 | 5/250 |
|
|
|
[考研] 070305求調(diào)劑 +3 | mlpqaz03 2026-03-14 | 4/200 |
|
|
|
[基金申請] 現(xiàn)在如何回避去年的某一個(gè)專家，不知道名字 +3 | zk200107 2026-03-12 | 6/300 |
|
|
|
[考研] 材料與化工求調(diào)劑一志愿 985 總分 295 +8 | dream…… 2026-03-12 | 8/400 |
|
|
|
[考研] 0703化學(xué)求調(diào)劑 +7 | 綠豆芹菜湯 2026-03-12 | 7/350 |
|
|
|
[考研] 295求調(diào)劑 +3 | 小匕仔汁 2026-03-12 | 3/150 |
|
|
|
[考研] 0817化學(xué)工程與技術(shù)考研312分調(diào)劑 +3 | T123 tt 2026-03-12 | 3/150 |
|
|
|
[考研] 290求調(diào)劑 +3 | ADT 2026-03-13 | 3/150 |
|
|
|
[考研] 081200-11408-276學(xué)碩求調(diào)劑 +3 | 崔wj 2026-03-12 | 4/200 |
|