hanye0517

木蟲 (小有名氣)

應(yīng)助: 1 (幼兒園)
金幣: 1700.7
散金: 98
紅花: 17
帖子: 144
在線: 116.8小時
蟲號: 1253805
注冊: 2011-04-02
性別: GG
專業(yè): 核物理

[求助] fortran 如何在子程序中實現(xiàn)動態(tài)數(shù)組的定義和聲明？已有4人參與

我編了一個動態(tài)數(shù)組的小例子，代碼如下

CODE:

program allocatable

implicit none

real:: inteval=0.01,TI=0.03,Bc=0.24,Bdot=4.

real,dimension(:),allocatable :: time

real,dimension(:),allocatable :: B

real,dimension(:,:),allocatable:: TB

integer:: n=1,m=2

integer::i

print *,'The size of the shuzu?'

read *,n

allocate(time(n))

allocate(B(n))

allocate(TB(m,n))

do i=1,n

   time(i)=TI+inteval*i

   B(i)=Bdot*(time(i)-TI)+Bc

enddo

   TB(1,:)=time

   TB(2,:)=B

   print 100,TB

   100 format(f8.5,5x,f8.5)

end program allocatable

但是我覺得聲明數(shù)組和分配內(nèi)存的語句在主程序里太礙眼了，很煩躁。
想把他放到subroutine或者module或者function中，讓結(jié)構(gòu)更清晰。
但是子程序中的話，能編譯，但是顯示段錯誤。
module中干脆不能編譯。
function說是只能返回一個數(shù)值，不知到怎么能返回一個數(shù)組，還是一個動態(tài)數(shù)組。

其實我想實現(xiàn)的功能就是避開復(fù)雜的fortran聲明，像matlab那樣用一個函數(shù)什么的聲明一個動態(tài)數(shù)組。比如上邊程序中，如果要是能用time=func（n），生成一個n個元素的一維數(shù)組，TB=func（m，n）生成一個2位數(shù)組就最好了。不知到這樣的程序function要怎么整？求指導(dǎo)！

回復(fù)此樓

» 猜你喜歡

309求調(diào)劑已經(jīng)有8人回復(fù)
一志愿南航 335分 | 0856 | GPA 4.07 | 有科研經(jīng)歷已經(jīng)有8人回復(fù)
求調(diào)劑已經(jīng)有5人回復(fù)
求化學調(diào)劑已經(jīng)有5人回復(fù)
085600，材料與化工321分求調(diào)劑已經(jīng)有10人回復(fù)
0703 化學求調(diào)劑，一志愿山東大學 342 分已經(jīng)有5人回復(fù)
一志愿南開大學0710生物學359求調(diào)劑已經(jīng)有3人回復(fù)
085600，專業(yè)課化工原理，320分求調(diào)劑已經(jīng)有4人回復(fù)
材料與化工272求調(diào)劑已經(jīng)有16人回復(fù)
290求調(diào)劑已經(jīng)有3人回復(fù)

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

菜鳥求助fortran數(shù)組聲明及子程序的一些問題啊已經(jīng)有4人回復(fù)
主程序中未分配的可變數(shù)組，如何在子程序中調(diào)用？已經(jīng)有9人回復(fù)
fortran中的數(shù)組越界問題，已經(jīng)有3人回復(fù)
fortran中對變量取值已經(jīng)有3人回復(fù)
關(guān)于fortran子程序調(diào)用內(nèi)部函數(shù) 已經(jīng)有7人回復(fù)
fortran里一個子程序不運行是怎么回事已經(jīng)有13人回復(fù)
關(guān)于復(fù)數(shù)在Fortran中如何定義的問題已經(jīng)有3人回復(fù)
求助：用Fortran寫一個關(guān)于晶粒個數(shù)統(tǒng)計和編號的程序。卡了我好久了。已經(jīng)有4人回復(fù)
fortran 程序有write和沒有write兩種情況計算的結(jié)果為什么會不一樣? 已經(jīng)有14人回復(fù)
Fortran 聲明變量已經(jīng)有5人回復(fù)
想問一下影響fortran計算速度的因素都有哪些？已經(jīng)有12人回復(fù)
Fortran中數(shù)組的使用已經(jīng)有4人回復(fù)
又來求助啦，fortran里使用多文件，其中的子程序文件怎么觀察參數(shù)值�。� 已經(jīng)有3人回復(fù)
大家?guī)臀铱匆粋€fortran的程序，我總是計算不出正確的結(jié)果已經(jīng)有20人回復(fù)
Fortran中子程序與函數(shù)的區(qū)別已經(jīng)有7人回復(fù)
請教一個fortran小程序編譯出錯的問題，謝謝已經(jīng)有9人回復(fù)
Fortran中關(guān)于數(shù)組的變化已經(jīng)有5人回復(fù)
【求助】用fortran怎么描述下面這樣的情況，我是新手，請大家?guī)兔?/a> 已經(jīng)有8人回復(fù)

【求助】FORTRAN編譯通過，但是運行不了已經(jīng)有19人回復(fù)
【求助】Fortran如何調(diào)用模塊中子程序已經(jīng)有6人回復(fù)
【求助】求指點，在Fortran里面，怎樣實現(xiàn)“數(shù)組維度可調(diào)”的數(shù)組? 已經(jīng)有5人回復(fù)

道之所在，雖千萬人吾往矣。

1樓 2014-04-21 09:47:12

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

baobiao007

木蟲 (職業(yè)作家)

中國特色

應(yīng)助: 201 (大學生)
金幣: 6482.7
散金: 557
紅花: 40
帖子: 3050
在線: 1009.9小時
蟲號: 505962
注冊: 2008-02-18
專業(yè): 應(yīng)用地球物理學

很可能使得最后的程序結(jié)構(gòu)費力不討好

贊一下

回復(fù)此樓

我同意叔本華的觀點，人們投身藝術(shù)和科學領(lǐng)域的強烈愿望之一就是逃離痛苦、殘酷和枯燥無味的現(xiàn)實生活，逃離自己飄忽不定的七情六欲的桎梏。--愛因斯坦

2樓2014-04-21 13:31:51

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

虛空中的幻影

金蟲 (正式寫手)

應(yīng)助: 9 (幼兒園)
金幣: 1563.4
散金: 694
帖子: 335
在線: 232.7小時
蟲號: 1012166
注冊: 2010-05-05
性別: GG
專業(yè): 核物理

【答案】應(yīng)助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感謝參與，應(yīng)助指數(shù) +1
hanye0517: 金幣+10, ★有幫助 2014-06-26 13:14:34

module中就好，，不可能不能編譯

贊一下

回復(fù)此樓

3樓2014-04-21 15:18:46

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

hanye0517

木蟲 (小有名氣)

應(yīng)助: 1 (幼兒園)
金幣: 1700.7
散金: 98
紅花: 17
帖子: 144
在線: 116.8小時
蟲號: 1253805
注冊: 2011-04-02
性別: GG
專業(yè): 核物理

引用回帖:

3樓: Originally posted by 虛空中的幻影 at 2014-04-21 15:18:46
module中就好，，不可能不能編譯

能重復(fù)使用么，我要構(gòu)造幾十個數(shù)組，這不重復(fù)沒有意義啊

贊一下

回復(fù)此樓

道之所在，雖千萬人吾往矣。

4樓2014-04-21 15:36:15

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

hanye0517

木蟲 (小有名氣)

應(yīng)助: 1 (幼兒園)
金幣: 1700.7
散金: 98
紅花: 17
帖子: 144
在線: 116.8小時
蟲號: 1253805
注冊: 2011-04-02
性別: GG
專業(yè): 核物理

引用回帖:

2樓: Originally posted by baobiao007 at 2014-04-21 13:31:51
很可能使得最后的程序結(jié)構(gòu)費力不討好

想把結(jié)構(gòu)分的散一點兒，這樣容易改

贊一下

回復(fù)此樓

道之所在，雖千萬人吾往矣。

5樓2014-04-21 15:36:46

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

baobiao007

木蟲 (職業(yè)作家)

中國特色

應(yīng)助: 201 (大學生)
金幣: 6482.7
散金: 557
紅花: 40
帖子: 3050
在線: 1009.9小時
蟲號: 505962
注冊: 2008-02-18
專業(yè): 應(yīng)用地球物理學

我覺得沒啥好辦法，很可能是費力不討好的結(jié)局，看有不有高人吧

贊一下

回復(fù)此樓

6樓2014-04-21 17:10:12

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

虛空中的幻影

金蟲 (正式寫手)

應(yīng)助: 9 (幼兒園)
金幣: 1563.4
散金: 694
帖子: 335
在線: 232.7小時
蟲號: 1012166
注冊: 2010-05-05
性別: GG
專業(yè): 核物理

引用回帖:

4樓: Originally posted by hanye0517 at 2014-04-21 15:36:15
能重復(fù)使用么，我要構(gòu)造幾十個數(shù)組，這不重復(fù)沒有意義啊...

module本來就是傳遞變量用的，當然可以重復(fù)使用

贊一下

回復(fù)此樓

7樓2014-04-21 17:23:27

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

hanye0517

木蟲 (小有名氣)

應(yīng)助: 1 (幼兒園)
金幣: 1700.7
散金: 98
紅花: 17
帖子: 144
在線: 116.8小時
蟲號: 1253805
注冊: 2011-04-02
性別: GG
專業(yè): 核物理

引用回帖:

7樓: Originally posted by 虛空中的幻影 at 2014-04-21 17:23:27
module本來就是傳遞變量用的，當然可以重復(fù)使用...

我的意思是，比如要定義一個數(shù)組A，要先聲明allocatable，然后在下邊allocate，一個數(shù)組還是比較好解決的。
但是當我有100個數(shù)組的時候…………咋整，不能寫一百遍吧，加一起就200次？
即使allocate可以allocate（A（n），B(n)，......）這也太麻煩了點兒，而且如果更改的話不容易維護。能不能把allocatable和allocate合二為一，這樣就是100遍，如果能把（n）那塊再省略了，就更簡單，像是定義數(shù)組一樣就好了…………

贊一下

回復(fù)此樓

道之所在，雖千萬人吾往矣。

8樓2014-04-21 19:54:32

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

虛空中的幻影

金蟲 (正式寫手)

應(yīng)助: 9 (幼兒園)
金幣: 1563.4
散金: 694
帖子: 335
在線: 232.7小時
蟲號: 1012166
注冊: 2010-05-05
性別: GG
專業(yè): 核物理

引用回帖:

8樓: Originally posted by hanye0517 at 2014-04-21 19:54:32
我的意思是，比如要定義一個數(shù)組A，要先聲明allocatable，然后在下邊allocate，一個數(shù)組還是比較好解決的。
但是當我有100個數(shù)組的時候…………咋整，不能寫一百遍吧，加一起就200次？
即使allocate可以allocate ...

你可以考慮derived variables

贊一下

回復(fù)此樓

9樓2014-04-21 21:02:49

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

jerkwin

專家顧問 (正式寫手)

專家經(jīng)驗: +14
應(yīng)助: 454 (碩士)
金幣: 20699.1
散金: 148
紅花: 81
帖子: 813
在線: 2648.3小時
蟲號: 1023452
注冊: 2010-05-19
專業(yè): 理論和計算化學
管轄: 分子模擬

【答案】應(yīng)助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感謝參與，應(yīng)助指數(shù) +1
hanye0517: 金幣+5, ★有幫助 2014-04-27 16:25:06
hanye0517: 金幣+5, ★有幫助 2014-06-26 13:14:51

改改這個代碼試試
http://stackoverflow.com/questio ... an-array-in-fortran

贊一下

回復(fù)此樓

10樓2014-04-21 23:49:01

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

最具人氣熱帖推薦 [查看全部]	作者	回/看	最后發(fā)表

[考研] 求調(diào)劑 +5	家佳佳佳佳佳 2026-03-29	5/250	2026-03-29 23:53 by yokiii1
[考研] 337求調(diào)劑 +4	《樹》 2026-03-29	4/200	2026-03-29 20:52 by 唐沐兒
[考研] 各位老師好，我的一志愿為北京科技大學085601材料專碩 +9	Koxui 2026-03-28	9/450	2026-03-29 20:43 by 無際的草原
[考研] 求調(diào)劑 +9	張zz111 2026-03-27	10/500	2026-03-29 14:57 by 唐沐兒
[考研] 298求調(diào)劑 +4	種圣賜 2026-03-28	4/200	2026-03-29 08:42 by q1092522407
[考研] 食品工程專碩一志愿中海洋309求調(diào)劑 +4	小張zxy張 2026-03-26	8/400	2026-03-28 19:25 by lbsjt
[考研] 085701環(huán)境工程，267求調(diào)劑 +16	minht 2026-03-26	16/800	2026-03-28 12:16 by zllcz
[材料工程] 一志愿C9材料與化工專業(yè)總分300求調(diào)劑 +8	曼111 2026-03-24	9/450	2026-03-28 07:58 by YYYYX1234
[考研] 330一志愿中國海洋大學化學工程 085602 有讀博意愿求調(diào)劑 +3	wywy.. 2026-03-27	4/200	2026-03-28 03:32 by fmesaito
[考研] 化學調(diào)劑 +4	愛吃番茄的旭 2026-03-24	5/250	2026-03-27 17:50 by kiokin
[考研] 考研化學308分求調(diào)劑 +10	你好明天你好 2026-03-23	12/600	2026-03-27 14:43 by shangxh
[考研] 化學308分求調(diào)劑 +8	你好明天你好 2026-03-23	9/450	2026-03-27 14:01 by 楊光于青云
[考研] 求調(diào)劑 +3	劉柯@ 2026-03-24	4/200	2026-03-27 11:28 by shangxh
[考研] 調(diào)劑求收留 +7	果然有我 2026-03-26	7/350	2026-03-27 00:26 by wxiongid
[考研] 341求調(diào)劑 +7	青檸檬1 2026-03-26	7/350	2026-03-27 00:19 by wxiongid
[考研] 材料調(diào)劑 5+4	想要一壺桃花水 2026-03-25	10/500	2026-03-26 19:56 by 不吃魚的貓
[考研] 334分一志愿武理-080500 材料求調(diào)劑 +4	李李不服輸 2026-03-25	4/200	2026-03-25 21:26 by 星空星月
[考研] 求b區(qū)院校調(diào)劑 +4	周56 2026-03-24	5/250	2026-03-25 17:12 by yishunmin
[考研] 282求調(diào)劑 +3	wcq131415 2026-03-24	3/150	2026-03-25 12:16 by userper
[考研] 344求調(diào)劑 +3	desto 2026-03-24	3/150	2026-03-24 10:09 by 搏擊518