 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 6 | 1/1 | 返回列表 |
| 查看: 2582 | 回復(fù): 5 | |||
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的二維矩陣. .............. 請(qǐng)問，怎樣定義、賦值、調(diào)用這樣一個(gè)維度可以改變的動(dòng)態(tài)數(shù)組？（三個(gè)維度同時(shí)改變或者只改變第二、第三維度？） 謝謝！ [ Last edited by nano_xinxin on 2010-9-2 at 19:26 ] |
回復(fù)此樓» 猜你喜歡
267一志愿南京工業(yè)大學(xué)0817化工求調(diào)劑
已經(jīng)有7人回復(fù)
-
一志愿華中科技大學(xué)，080502，354分求調(diào)劑
已經(jīng)有3人回復(fù)
-
一志愿中國(guó)海洋大學(xué)，生物學(xué)，301分，求調(diào)劑
已經(jīng)有4人回復(fù)
-
一志愿武理材料305分求調(diào)劑
已經(jīng)有6人回復(fù)
-
材料專碩英一數(shù)二306
已經(jīng)有3人回復(fù)
-
085600材料與化工調(diào)劑 324分
已經(jīng)有7人回復(fù)
-
311求調(diào)劑
已經(jīng)有3人回復(fù)
-
26調(diào)劑/材料/英一數(shù)二/總分289/已過A區(qū)線
已經(jīng)有7人回復(fù)
-
295求調(diào)劑
已經(jīng)有5人回復(fù)
-
354求調(diào)劑
已經(jīng)有5人回復(fù)
» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:
- Matlab的熟練用戶或者大神看過來，兩個(gè)隨機(jī)變量存在相互關(guān)系的簡(jiǎn)單問題。重金求助！
已經(jīng)有1人回復(fù)
- 【求助】matlab帶有變量的矩陣求導(dǎo)
已經(jīng)有4人回復(fù)
- 【交流/求助】第一次發(fā)帖，請(qǐng)教藍(lán)白篩選后質(zhì)�；厥盏膯栴}
已經(jīng)有0人回復(fù)
- 【求助】一道算法題目
已經(jīng)有6人回復(fù)
- 【求助成功】murn.f用ifort編譯完運(yùn)行時(shí)不能正確執(zhí)行
已經(jīng)有2人回復(fù)
- 【求助】一個(gè)求積分的fortran程序，請(qǐng)高手指點(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ù)
- 【分享】羊皮卷國(guó)語語音，療傷心靈的神藥【已搜索無重復(fù)】
已經(jīng)有2人回復(fù)
- 【求助】請(qǐng)問下面MATLAB程序哪兒不對(duì)呢
已經(jīng)有9人回復(fù)
nano_xinxin
金蟲 (小有名氣)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 919.1
- 散金: 311
- 紅花: 1
- 帖子: 189
- 在線: 33小時(shí)
- 蟲號(hào): 927575
- 注冊(cè): 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í)
- 蟲號(hào): 246017
- 注冊(cè): 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小時(shí)
- 蟲號(hào): 946303
- 注冊(cè): 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小時(shí)
- 蟲號(hào): 627659
- 注冊(cè): 2008-10-16
- 性別: GG
- 專業(yè): 粉末冶金與粉體工程
5樓2010-09-07 17:53:25
nano_xinxin
金蟲 (小有名氣)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 919.1
- 散金: 311
- 紅花: 1
- 帖子: 189
- 在線: 33小時(shí)
- 蟲號(hào): 927575
- 注冊(cè): 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
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 nano_xinxin 的主題更新
| 6 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 085600材料與化工調(diào)劑 324分 +7 | llllkkkhh 2026-03-18 | 7/350 |
|
|---|---|---|---|---|
|
[考研] 070300化學(xué)319求調(diào)劑 +6 | 錦鯉0909 2026-03-17 | 6/300 |
|
|
|
[考研] 288求調(diào)劑，一志愿華南理工大學(xué)071005 +4 | ioodiiij 2026-03-17 | 4/200 |
|
|
|
[考研] 299求調(diào)劑 +5 | △小透明* 2026-03-17 | 5/250 |
|
|
|
[考研] 材料與化工求調(diào)劑 +6 | 為學(xué)666 2026-03-16 | 6/300 |
|
|
|
[考研] 材料工程專碩調(diào)劑 +5 | 204818@lcx 2026-03-17 | 5/250 |
|
|
|
[考研] 326求調(diào)劑 +5 | 上岸的小葡 2026-03-15 | 6/300 |
|
|
|
[考研] 考研化學(xué)學(xué)碩調(diào)劑，一志愿985 +4 | 張vvvv 2026-03-15 | 6/300 |
|
|
|
[考研] 有沒有道鐵/土木的想調(diào)劑南林，給自己招師弟中～ +3 | TqlXswl 2026-03-16 | 7/350 |
|
|
|
[考研] 0703化學(xué)調(diào)劑，求各位老師收留 +8 | 秋有木北 2026-03-14 | 8/400 |
|
|
|
[考研] 0703 物理化學(xué)調(diào)劑 +3 | 我可以上岸的對(duì)?/a> 2026-03-13 | 5/250 |
|
|
|
[考研] 0703化學(xué)調(diào)劑 290分有科研經(jīng)歷，論文在投 +7 | 膩膩gk 2026-03-14 | 7/350 |
|
|
|
[考研] 26考研一志愿中國(guó)石油大學(xué)(華東)305分求調(diào)劑 +3 | 嘉年新程 2026-03-15 | 3/150 |
|
|
|
[考研] 中科大材料與化工319求調(diào)劑 +3 | 孟鑫材料 2026-03-14 | 3/150 |
|
|
|
[考研] 復(fù)試調(diào)劑 +3 | 呼呼？~+123456 2026-03-14 | 3/150 |
|
|
|
[考研] ［0860］321分求調(diào)劑，ab區(qū)皆可 +4 | 寶貴熱 2026-03-13 | 4/200 |
|
|
|
[考研] 274求調(diào)劑 +3 | S.H1 2026-03-12 | 3/150 |
|
|
|
[考研] 308求調(diào)劑 +3 | 是Lupa啊 2026-03-12 | 3/150 |
|
|
|
[考博] 福州大學(xué)楊黃浩課題組招收2026年專業(yè)學(xué)位博士研究生，2026.03.20截止 +3 | Xiangyu_ou 2026-03-12 | 3/150 |
|
|
|
[考研] 283求調(diào)劑，材料、化工皆可 +8 | 蘇打水7777 2026-03-11 | 10/500 |
|