版塊導(dǎo)航: 正在加載中...

登錄注冊

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進行實名認證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號能夠正常使用，請盡快對帳號進行手機號驗證，感謝您的理解與支持！

24小時熱門版塊排行榜

北京石油化工學(xué)院2026年研究生招生接收調(diào)劑公告

返回列表

koorb

鐵蟲 (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 57.3
帖子: 30
在線: 9.8小時
蟲號: 1477156
注冊: 2011-11-05
性別: GG
專業(yè): 固體力學(xué)

[求助] allocate與data共存的問題

Fortran代碼：
integer, allocatable::num(

allocate( num(2) )
data num /2*3/
程序報錯，This is an invalid DATA statement object。請指點一下！謝謝！

回復(fù)此樓

» 猜你喜歡

302求調(diào)劑一志愿華中師范大學(xué) 已經(jīng)有4人回復(fù)
288求調(diào)劑一志愿哈工大材料與化工已經(jīng)有32人回復(fù)
一志愿鄭大材料工程290求調(diào)劑已經(jīng)有20人回復(fù)
環(huán)境工程297分求調(diào)劑一志愿杭高院已經(jīng)有12人回復(fù)
366求調(diào)劑一志愿東北大學(xué) 已經(jīng)有7人回復(fù)
材料調(diào)劑已經(jīng)有6人回復(fù)
一志愿北京科技大學(xué)085601材料工程英一數(shù)二初試總分335求調(diào)劑已經(jīng)有9人回復(fù)
材料調(diào)劑已經(jīng)有5人回復(fù)
材料與化工306分找調(diào)劑已經(jīng)有5人回復(fù)
301求調(diào)劑已經(jīng)有5人回復(fù)

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

公派身份問題已經(jīng)有9人回復(fù)
關(guān)于接受文章的出來問題？已經(jīng)有4人回復(fù)
關(guān)于磁力循環(huán)泵和流量計的問題已經(jīng)有4人回復(fù)
脆性基體纖維復(fù)合材料的界面問題已經(jīng)有9人回復(fù)
沼氣工程的幾個問題已經(jīng)有4人回復(fù)
清除羥自由基能力的問題已經(jīng)有5人回復(fù)
新手求助關(guān)于中科院的問題一二·· 已經(jīng)有7人回復(fù)
想咨詢一下YAG晶體生長的問題已經(jīng)有15人回復(fù)
TLC摸展開劑條件的問題已經(jīng)有15人回復(fù)
bl21超聲破壁問題已經(jīng)有4人回復(fù)
安裝出現(xiàn)問題了 licensing 已經(jīng)有14人回復(fù)
MTT法求助--藥物溶解問題已經(jīng)有10人回復(fù)
請教大家關(guān)于藥品輔料沒有批文的問題已經(jīng)有5人回復(fù)
求助，同時使用read_data和create_atoms的問題已經(jīng)有4人回復(fù)
增強壁面函數(shù)與壁面粗糙度共存問題已經(jīng)有6人回復(fù)
ATK計算錯誤：Error: Not enough space to allocate，求解決！已經(jīng)有10人回復(fù)

天道

1樓 2011-11-10 09:51:32

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

holmescn

金蟲 (正式寫手)

程序強帖: 37
應(yīng)助: 1 (幼兒園)
金幣: 1918.8
散金: 275
紅花: 1
帖子: 699
在線: 102.6小時
蟲號: 913482
注冊: 2009-11-26
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

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

★
jjdg(金幣+1): 感謝參與 2011-11-10 13:07:33

F90的話，不用Data也行啊。直接num=/()/這樣的語法就行。

贊一下(1人)

回復(fù)此樓

2樓2011-11-10 11:14:42

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

holmescn

金蟲 (正式寫手)

程序強帖: 37
應(yīng)助: 1 (幼兒園)
金幣: 1918.8
散金: 275
紅花: 1
帖子: 699
在線: 102.6小時
蟲號: 913482
注冊: 2009-11-26
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

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

xzhdty: 謝謝參與 2011-11-10 12:13:24
koorb(金幣+2): 謝謝！ 2011-11-10 13:17:39

example:

CODE:

program test

 integer, allocatable :: num(:)

 integer i

 allocate (num(10))

 num = (/(10, i=1,10)/)

 print *, num

end program test

贊一下(1人)

回復(fù)此樓

3樓2011-11-10 11:24:51

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

snoopyzhao

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

程序強帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時
蟲號: 183750
注冊: 2006-02-13
專業(yè): 污染生態(tài)化學(xué)

★
余澤成(金幣+1): 謝謝參與應(yīng)助！ 2011-11-10 21:48:06

引用回帖:

1樓: Originally posted by koorb at 2011-11-10 09:51:32:
Fortran代碼：
integer, allocatable::num(

allocate( num(2) )
data num /2*3/
程序報錯，This is an invalid DATA statement object。請指點一下！謝謝！

即使在 Fortran 77 中這么用也是不正確的啊， data 必須出現(xiàn)在所有可執(zhí)行程序之前……

你的這種情況直接 num = 3 就可以了，呵呵……

贊一下(1人)

回復(fù)此樓

4樓2011-11-10 13:21:56

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

koorb

鐵蟲 (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 57.3
帖子: 30
在線: 9.8小時
蟲號: 1477156
注冊: 2011-11-05
性別: GG
專業(yè): 固體力學(xué)

引用回帖:

4樓: Originally posted by snoopyzhao at 2011-11-10 13:21:56:
即使在 Fortran 77 中這么用也是不正確的啊， data 必須出現(xiàn)在所有可執(zhí)行程序之前……

你的這種情況直接 num = 3 就可以了，呵呵……

“data必須出現(xiàn)在所有可執(zhí)行程序之前”這種說法在90里是不正確的，在77里我沒法驗證。

贊一下

回復(fù)此樓

天道

5樓2011-11-10 13:29:08

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

koorb

鐵蟲 (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 57.3
帖子: 30
在線: 9.8小時
蟲號: 1477156
注冊: 2011-11-05
性別: GG
專業(yè): 固體力學(xué)

剛才測試，
integer array(1E8)
通過。
但換一種方式，定義一個可變數(shù)組
allocate（1E8）就不可以了，
allocate (1E5)可以。

1.求解釋
2.求動態(tài)分配大數(shù)組的方法

贊一下

回復(fù)此樓

天道

6樓2011-11-10 13:44:07

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

snoopyzhao

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

程序強帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時
蟲號: 183750
注冊: 2006-02-13
專業(yè): 污染生態(tài)化學(xué)

引用回帖:

5樓: Originally posted by koorb at 2011-11-10 13:29:08:
“data必須出現(xiàn)在所有可執(zhí)行程序之前”這種說法在90里是不正確的，在77里我沒法驗證。

給個可以出現(xiàn)在可執(zhí)行程序之后的例子看一下吧……

贊一下

回復(fù)此樓

7樓2011-11-10 18:39:57

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

koorb

鐵蟲 (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 57.3
帖子: 30
在線: 9.8小時
蟲號: 1477156
注冊: 2011-11-05
性別: GG
專業(yè): 固體力學(xué)

引用回帖:

7樓: Originally posted by snoopyzhao at 2011-11-10 18:39:57:
給個可以出現(xiàn)在可執(zhí)行程序之后的例子看一下吧……

其實，你自己完全可以驗證的。

integer :: num(5)
print *, num
data num /5*3/
print *, num

反正我這里可以運行出結(jié)果。data在print這條執(zhí)行語句之后。

贊一下

回復(fù)此樓

天道

8樓2011-11-11 07:43:54

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

snoopyzhao

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

程序強帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時
蟲號: 183750
注冊: 2006-02-13
專業(yè): 污染生態(tài)化學(xué)

★
jjdg(金幣+1): 感謝參與 2011-11-12 00:45:03

可以跑得通，但不知道如何解釋它們的結(jié)果：

CODE:

program test

integer :: num(5)

print *,  num

data num /5*3/

print *, num

end program test      

D:\>gfortran -Wall -std=f95 zvv.f90

D:\>a

           3           3           3           3           3

           3           3           3           3           3

CODE:

program test

integer :: num(5)

num = 5

print *, num

data num /5*3/

print *, num

end program test      

D:\>gfortran -Wall -std=f95 zvv.f90

D:\>a

           5           5           5           5           5

           5           5           5           5           5

贊一下(1人)

回復(fù)此樓

9樓2011-11-11 13:29:58

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

koorb

鐵蟲 (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 57.3
帖子: 30
在線: 9.8小時
蟲號: 1477156
注冊: 2011-11-05
性別: GG
專業(yè): 固體力學(xué)

引用回帖:

9樓: Originally posted by snoopyzhao at 2011-11-11 13:29:58:
可以跑得通，但不知道如何解釋它們的結(jié)果：

[code]
program test
integer :: num(5)
print *, num
data num /5*3/
print *, num
end program test

D:\>gfortran -Wall -std=f95 zvv.f90

...

Data是用來賦初值的，這一點毫無疑問。無論你把它放在哪它都是只能是初始化一個數(shù)組變量，再有賦值語句當(dāng)然將它覆蓋了。

我發(fā)帖的本意是想問問，對于一個動態(tài)分配維數(shù)的數(shù)組，為什么不能用data初始化。用其它的方法是可以給它賦值的，我只想知道為啥不能用data來賦初值。

贊一下

回復(fù)此樓

天道

10樓2011-11-14 06:47:30

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

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主 koorb 的主題更新

返回列表

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

[考研] 一志愿復(fù)旦材料，英一專碩，總分357調(diào)劑 +3	1050389037 2026-04-02	4/200	2026-04-02 14:32 by olim
[考研] 282求調(diào)劑 +13	呼吸都是減肥 2026-04-01	13/650	2026-04-02 14:10 by baoball
[考研] 材料考研調(diào)劑 +9	Gs大王 2026-04-02	9/450	2026-04-02 10:24 by olim
[考研] 一志愿9初試366 本雙非求調(diào)劑 +4	運氣來得若有似?/a> 2026-04-02	4/200	2026-04-02 09:56 by guanxin1001
[考研] 一志愿211，335分，0856，求調(diào)劑院校和導(dǎo)師 +14	傾____蕭 2026-03-27	15/750	2026-04-02 09:21 by olim
[考研] 303求調(diào)劑 +8	DLkz1314. 2026-03-30	8/400	2026-04-02 09:08 by sanrepian
[考研] 282求調(diào)劑 +17	ycy1201 2026-04-01	19/950	2026-04-01 22:54 by peike
[考研] 310分求調(diào)劑 +4	成功上岸wang 2026-04-01	4/200	2026-04-01 20:35 by liu823948201
[考研] 285求調(diào)劑 +5	FZAC123 2026-03-30	5/250	2026-04-01 15:50 by 韓雨涵
[考研] 322求調(diào)劑 +8	三水sss 2026-04-01	8/400	2026-04-01 10:19 by 唐沐兒
[考研] 288資源與環(huán)境專碩求調(diào)劑，不限專業(yè)，有學(xué)上就行 +25	lllllos 2026-03-30	26/1300	2026-04-01 09:52 by 一只好果子?
[考研] 335求調(diào)劑 +3	321* 2026-03-31	4/200	2026-04-01 00:00 by 321*
[考研] 289求調(diào)劑 +7	BrightLL 2026-03-29	7/350	2026-03-31 22:05 by 544594351
[考研] 318求調(diào)劑 +10	陳晨79 2026-03-30	10/500	2026-03-31 17:37 by 544594351
[考研] 材料與化工272求調(diào)劑 +25	阿斯蒂芬2004 2026-03-28	25/1250	2026-03-31 16:27 by hypershenger
[考研] 085701求調(diào)劑初試286分 +5	secret0328 2026-03-28	5/250	2026-03-30 12:54 by fangnagu
[考研] 求調(diào)劑，一志愿南京航空航天大學(xué)大學(xué) ，080500材料科學(xué)與工程學(xué)碩 +6	@taotao 2026-03-26	7/350	2026-03-30 10:43 by 我是小康
[考研] 081200-314 +3	LILIQQ 2026-03-27	4/200	2026-03-28 09:41 by 保護地球你我做?/a>
[考研] 330一志愿中國海洋大學(xué) 化學(xué)工程 085602 有讀博意愿求調(diào)劑 +3	wywy.. 2026-03-27	4/200	2026-03-28 03:32 by fmesaito
[考研] 272求調(diào)劑 +7	腳滑的守法公民 2026-03-27	7/350	2026-03-27 17:23 by laoshidan

24小時熱門版塊排行榜

[求助] allocate與data共存的問題

» 猜你喜歡

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

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

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

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