 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 6 | 1/1 | 返回列表 |
| 查看: 2577 | 回復(fù): 5 | |||
nano_xinxin金蟲 (小有名氣)
|
[交流]
【求助】求指點(diǎn)，在Fortran里面，怎樣實(shí)現(xiàn)“數(shù)組維度可調(diào)”的數(shù)組?
|
|
我剛開始學(xué)習(xí) Fortran 語言編程，最近在編程時，遇到一個問題，因?yàn)橐诔绦蚶锩嫔婕耙粋�do 循環(huán)，希望通過控制 do 循環(huán)的循環(huán)變量 I ，來調(diào)用一個維度可以改變的三維數(shù)組(第一維度已經(jīng)確定)，例如數(shù)組 A (I ，：，：) . 例如，我希望： .............. real(8) , allocatable :: A ( ： ，： ，：) .............. I=1 時， A (1 ，： ，：) 數(shù)組元素是一個4*3（四乘三) 的二維矩陣； I=2 時， A (2 ，：，：) 數(shù)組元素是一個3*5 的二維矩陣； .............. I=N時， A (N ，： ，：) 數(shù)組元素 是一個X*Y的二維矩陣. .............. 請問，怎樣定義、賦值、調(diào)用這樣一個維度可以改變的動態(tài)數(shù)組？（三個維度同時改變或者只改變第二、第三維度？） 謝謝！ [ Last edited by nano_xinxin on 2010-9-2 at 19:26 ] |
回復(fù)此樓» 猜你喜歡
312求調(diào)劑
已經(jīng)有7人回復(fù)
-
化學(xué)工程321分求調(diào)劑
已經(jīng)有16人回復(fù)
-
280求調(diào)劑
已經(jīng)有3人回復(fù)
-
266求調(diào)劑
已經(jīng)有7人回復(fù)
-
工科材料085601 279求調(diào)劑
已經(jīng)有5人回復(fù)
-
環(huán)境工程調(diào)劑
已經(jīng)有8人回復(fù)
-
302求調(diào)劑
已經(jīng)有9人回復(fù)
-
297求調(diào)劑
已經(jīng)有4人回復(fù)
-
298-一志愿中國農(nóng)業(yè)大學(xué)-求調(diào)劑
已經(jīng)有4人回復(fù)
-
焦慮
已經(jīng)有10人回復(fù)
» 本主題相關(guān)價值貼推薦，對您同樣有幫助:
- Matlab的熟練用戶或者大神看過來，兩個隨機(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)行時不能正確執(zhí)行
已經(jīng)有2人回復(fù)
- 【求助】一個求積分的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ù)
- 【求助】太陽能極限效率計算程序中的積分運(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小時
- 蟲號: 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小時
- 蟲號: 246017
- 注冊: 2006-04-29
- 性別: GG
- 專業(yè): 水環(huán)境與生態(tài)水利
3樓2010-09-04 11:14:23
250748574
銀蟲 (正式寫手)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 375.9
- 帖子: 315
- 在線: 9.6小時
- 蟲號: 946303
- 注冊: 2010-01-21
- 性別: GG
- 專業(yè): 運(yùn)籌學(xué)
4樓2010-09-05 20:22:26
liubin1984
木蟲 (著名寫手)
不糾結(jié)的男人
- 應(yīng)助: 1 (幼兒園)
- 金幣: 2635.1
- 散金: 827
- 紅花: 3
- 帖子: 2874
- 在線: 447小時
- 蟲號: 627659
- 注冊: 2008-10-16
- 性別: GG
- 專業(yè): 粉末冶金與粉體工程
5樓2010-09-07 17:53:25
nano_xinxin
金蟲 (小有名氣)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 919.1
- 散金: 311
- 紅花: 1
- 帖子: 189
- 在線: 33小時
- 蟲號: 927575
- 注冊: 2009-12-14
- 性別: GG
- 專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)
|
謝謝你！ 我仔細(xì)思考了一下，用子例行程序 SUBROTINE XX(A,I,J,K) 的話，假設(shè) XX 是程序名， A 是返回的矩陣，調(diào)用的時候，通過改變 I,J,K 的值，的確可以改變 A 的數(shù)組維度（需重新定義A）。但是，在調(diào)用的時候，首先要定義 A 的矩陣維度，當(dāng)改變I，J，K 的時候，相當(dāng)于又要重新定義一個矩陣A*，等價于在調(diào)用之前要定義N個不同維度的矩陣A1，A2，...，AN，即通過調(diào)用該 子例行程序 SUBROTINE XX(A,I,J,K) ，只是起到了一個定義多個矩陣維度不同的矩陣這樣一個功能，實(shí)際上數(shù)組名 A 已經(jīng)發(fā)生了變化。 我設(shè)想的是在數(shù)組名 A 不變的情況下，怎樣實(shí)現(xiàn)改變其數(shù)組維度。 感謝你的幫助！ |
6樓2010-09-07 22:10:01
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 nano_xinxin 的主題更新
| 6 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 298-一志愿中國農(nóng)業(yè)大學(xué)-求調(diào)劑 +4 | 手機(jī)用戶 2026-03-17 | 4/200 |
|
|---|---|---|---|---|
|
[考博] 環(huán)境領(lǐng)域全國重點(diǎn)實(shí)驗(yàn)室招收博士1-2名 +3 | QGZDSYS 2026-03-13 | 3/150 |
|
|
|
[考研] 一志愿天津大學(xué)化學(xué)工藝專業(yè)（081702）315分求調(diào)劑 +7 | yangfz 2026-03-17 | 7/350 |
|
|
|
[考研] 296求調(diào)劑 +5 | 大口吃飯 身體健 2026-03-13 | 5/250 |
|
|
|
[考研] 085600材料與化工 +4 | 安全上岸！ 2026-03-16 | 4/200 |
|
|
|
[考研] 08工科 320總分 求調(diào)劑 +4 | 梨花珞晚風(fēng) 2026-03-17 | 4/200 |
|
|
|
[考研] 271求調(diào)劑 +12 | 生如夏花… 2026-03-11 | 14/700 |
|
|
|
[考研] 考研調(diào)劑 +3 | 淇ya_~ 2026-03-17 | 5/250 |
|
|
|
[考研] 274求調(diào)劑 +5 | 時間點(diǎn) 2026-03-13 | 5/250 |
|
|
|
[考研]
 11408 一志愿西電，277分求調(diào)劑
+3
|
zhouzhen654 2026-03-16 | 3/150 |
|
|
|
[考研] 0703化學(xué)調(diào)劑 290分有科研經(jīng)歷，論文在投 +7 | 膩膩gk 2026-03-14 | 7/350 |
|
|
|
[考研] 265求調(diào)劑 +4 | 威化餅07 2026-03-12 | 4/200 |
|
|
|
[考研] 330求調(diào)劑 +3 | ?醬給調(diào)劑跪了 2026-03-13 | 3/150 |
|
|
|
[考研] 材料與化工（0856）304求B區(qū)調(diào)劑 +6 | 邱gl 2026-03-12 | 7/350 |
|
|
|
[考研] 一志愿西南交大，材料專碩317求調(diào)劑 +5 | lx8568 2026-03-11 | 5/250 |
|
|
|
[考研] 0703化學(xué)一志愿211 總分320求調(diào)劑 +5 | 瑪卡巴卡啊哈 2026-03-11 | 5/250 |
|
|
|
[考研] 材料與化工085600調(diào)劑求老師收留 +9 | jiaanl 2026-03-11 | 9/450 |
|
|
|
[考研] 0703化學(xué)求調(diào)劑 +7 | 綠豆芹菜湯 2026-03-12 | 7/350 |
|
|
|
[考研] 0856化學(xué)工程280分求調(diào)劑 +4 | shenzxsn 2026-03-11 | 4/200 |
|
|
|
[考研] 070303一志愿西北大學(xué)學(xué)碩310找調(diào)劑 +3 | d如愿上岸 2026-03-13 | 3/150 |
|