 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 2579 | 回復(fù): 5 | |||
| 當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖 | |||
nano_xinxin金蟲 (小有名氣)
|
[交流]
【求助】求指點(diǎn)，在Fortran里面，怎樣實(shí)現(xiàn)“數(shù)組維度可調(diào)”的數(shù)組?
|
||
|
我剛開始學(xué)習(xí) Fortran 語(yǔ)言編程，最近在編程時(shí)，遇到一個(gè)問(wèn)題，因?yàn)橐诔绦蚶锩嫔婕耙粋�(gè)do 循環(huán)，希望通過(guò)控制 do 循環(huán)的循環(huán)變量 I ，來(lá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)問(wèn)，怎樣定義、賦值、調(diào)用這樣一個(gè)維度可以改變的動(dòng)態(tài)數(shù)組？（三個(gè)維度同時(shí)改變或者只改變第二、第三維度？） 謝謝！ [ Last edited by nano_xinxin on 2010-9-2 at 19:26 ] |
回復(fù)此樓» 猜你喜歡
314求調(diào)劑
已經(jīng)有8人回復(fù)
-
08工科 320總分 求調(diào)劑
已經(jīng)有5人回復(fù)
-
085601專碩，總分342求調(diào)劑，地區(qū)不限
已經(jīng)有5人回復(fù)
-
085600材料與化工調(diào)劑 324分
已經(jīng)有4人回復(fù)
-
311求調(diào)劑
已經(jīng)有6人回復(fù)
-
化工學(xué)碩306求調(diào)劑
已經(jīng)有10人回復(fù)
-
286求調(diào)劑
已經(jīng)有8人回復(fù)
-
材料與化工一志愿南昌大學(xué)327求調(diào)劑推薦
已經(jīng)有9人回復(fù)
-
311求調(diào)劑
已經(jīng)有12人回復(fù)
-
271材料工程求調(diào)劑
已經(jīng)有3人回復(fù)
» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:
- Matlab的熟練用戶或者大神看過(guò)來(lái)，兩個(gè)隨機(jī)變量存在相互關(guān)系的簡(jiǎn)單問(wèn)題。重金求助！
已經(jīng)有1人回復(fù)
- 【求助】matlab帶有變量的矩陣求導(dǎo)
已經(jīng)有4人回復(fù)
- 【交流/求助】第一次發(fā)帖，請(qǐng)教藍(lán)白篩選后質(zhì)�；厥盏膯�(wèn)題
已經(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ū)問(wèn)好些）
已經(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等問(wèn)題，望大家指點(diǎn)指點(diǎn)
已經(jīng)有4人回復(fù)
- 【求助】太陽(yáng)能極限效率計(jì)算程序中的積分運(yùn)算
已經(jīng)有0人回復(fù)
- 【求助】求短日照處理在林木育苗及草坪草方面的文章
已經(jīng)有1人回復(fù)
- 【求助】關(guān)于共形映射的問(wèn)題，不甚感激！
已經(jīng)有12人回復(fù)
- 【求助】高人能給指點(diǎn)下不？【已解決】
已經(jīng)有3人回復(fù)
- 【分享】羊皮卷國(guó)語(yǔ)語(yǔ)音，療傷心靈的神藥【已搜索無(wú)重復(fù)】
已經(jīng)有2人回復(fù)
- 【求助】請(qǐng)問(wèn)下面MATLAB程序哪兒不對(duì)呢
已經(jīng)有9人回復(fù)
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)
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
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í)候，通過(guò)改變 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，即通過(guò)調(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
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 0854可跨調(diào)劑，一作一項(xiàng)核心論文五項(xiàng)專利，省、國(guó)級(jí)證書40+數(shù)一英一287 +8 | 小李0854 2026-03-16 | 8/400 |
|
|---|---|---|---|---|
|
[考研] 能源材料化學(xué)課題組招收碩士研究生8-10名 +4 | 脫穎而出 2026-03-16 | 9/450 |
|
|
|
[考研] 一志愿中國(guó)海洋大學(xué)，生物學(xué)，301分，求調(diào)劑 +3 | 1孫悟空 2026-03-17 | 3/150 |
|
|
|
[考研] 296求調(diào)劑 +5 | 大口吃飯 身體健 2026-03-13 | 5/250 |
|
|
|
[考研] 332求調(diào)劑 +6 | Zz版 2026-03-13 | 6/300 |
|
|
|
[考研] 【0856】化學(xué)工程（085602）313 分，本科學(xué)科評(píng)估A類院�；瘜W(xué)工程與工藝，誠(chéng)求調(diào)劑 +7 | 小劉快快上岸 2026-03-11 | 8/400 |
|
|
|
[考研] 085600材料與化工 +4 | 安全上岸！ 2026-03-16 | 4/200 |
|
|
|
[考研]
 11408 一志愿西電，277分求調(diào)劑
+3
|
zhouzhen654 2026-03-16 | 3/150 |
|
|
|
[基金申請(qǐng)]
今年的國(guó)基金是打分制嗎？
 50+3
|
zhanghaozhu 2026-03-14 | 3/150 |
|
|
|
[考研] 283求調(diào)劑 +10 | 小樓。 2026-03-12 | 14/700 |
|
|
|
[考研] 0856求調(diào)劑 +3 | 劉夢(mèng)微 2026-03-15 | 3/150 |
|
|
|
[考研]
機(jī)械專碩調(diào)劑
+3
|
笨笨兔子 2026-03-12 | 3/150 |
|
|
|
[考研] 26考研一志愿中國(guó)石油大學(xué)(華東)305分求調(diào)劑 +3 | 嘉年新程 2026-03-15 | 3/150 |
|
|
|
[考研] 294求調(diào)劑 +3 | Zys010410@ 2026-03-13 | 4/200 |
|
|
|
[考研] 材料專碩350 求調(diào)劑 +4 | 王金科 2026-03-12 | 4/200 |
|
|
|
[考研] 274求調(diào)劑 +3 | S.H1 2026-03-12 | 3/150 |
|
|
|
[考研] 求調(diào)劑 +3 | 程雨杭 2026-03-12 | 3/150 |
|
|
|
[考研] 277求調(diào)劑 +4 | anchor17 2026-03-12 | 4/200 |
|
|
|
[考研] 0817化學(xué)工程與技術(shù)考研312分調(diào)劑 +3 | T123 tt 2026-03-12 | 3/150 |
|
|
|
[考研] 290求調(diào)劑 +3 | ADT 2026-03-13 | 3/150 |
|