koorb

鐵蟲(chóng) (初入文壇)

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

[求助] allocate與data共存的問(wèn)題

Fortran代碼：
integer, allocatable::num(

allocate( num(2) )
data num /2*3/
程序報(bào)錯(cuò)，This is an invalid DATA statement object。請(qǐng)指點(diǎn)一下！謝謝！

回復(fù)此樓

» 猜你喜歡

材料調(diào)劑已經(jīng)有9人回復(fù)
321求調(diào)劑已經(jīng)有12人回復(fù)
調(diào)劑求助已經(jīng)有4人回復(fù)
22408 266求調(diào)劑已經(jīng)有3人回復(fù)
266分，一志愿電氣工程，本科材料，求材料專業(yè)調(diào)劑已經(jīng)有4人回復(fù)
279求調(diào)劑已經(jīng)有5人回復(fù)
一志愿華南師范大學(xué)-22408計(jì)算機(jī)-292分-求華南師范大學(xué)調(diào)劑已經(jīng)有3人回復(fù)
材料與化工306分找調(diào)劑已經(jīng)有10人回復(fù)
環(huán)境工程297分求調(diào)劑一志愿杭高院已經(jīng)有16人回復(fù)
296材料專碩求調(diào)劑已經(jīng)有12人回復(fù)

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

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

金蟲(chóng) (正式寫(xiě)手)

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

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

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

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

贊一下(1人)

回復(fù)此樓

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

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

holmescn

金蟲(chóng) (正式寫(xiě)手)

程序強(qiáng)帖: 37
應(yīng)助: 1 (幼兒園)
金幣: 1918.8
散金: 275
紅花: 1
帖子: 699
在線: 102.6小時(shí)
蟲(chóng)號(hào): 913482
注冊(cè): 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

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

程序強(qiáng)帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時(shí)
蟲(chóng)號(hào): 183750
注冊(cè): 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/
程序報(bào)錯(cuò)，This is an invalid DATA statement object。請(qǐng)指點(diǎn)一下！謝謝！

即使在 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

鐵蟲(chóng) (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 57.3
帖子: 30
在線: 9.8小時(shí)
蟲(chóng)號(hào): 1477156
注冊(cè): 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í)行程序之前”這種說(shuō)法在90里是不正確的，在77里我沒(méi)法驗(yàn)證。

贊一下

回復(fù)此樓

天道

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

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

koorb

鐵蟲(chóng) (初入文壇)

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

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

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

贊一下

回復(fù)此樓

天道

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

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

snoopyzhao

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

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

引用回帖:

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

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

贊一下

回復(fù)此樓

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

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

koorb

鐵蟲(chóng) (初入文壇)

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

引用回帖:

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

其實(shí)，你自己完全可以驗(yàn)證的。

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

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

贊一下

回復(fù)此樓

天道

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

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

snoopyzhao

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

程序強(qiáng)帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時(shí)
蟲(chóng)號(hào): 183750
注冊(cè): 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

鐵蟲(chóng) (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 57.3
帖子: 30
在線: 9.8小時(shí)
蟲(chóng)號(hào): 1477156
注冊(cè): 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是用來(lái)賦初值的，這一點(diǎn)毫無(wú)疑問(wèn)。無(wú)論你把它放在哪它都是只能是初始化一個(gè)數(shù)組變量，再有賦值語(yǔ)句當(dāng)然將它覆蓋了。

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

贊一下

回復(fù)此樓

天道

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

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

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

[考研] 一志愿上海海洋大學(xué)083200食品學(xué)碩，求調(diào)劑，接受其他專業(yè) +6	what張 2026-04-01	7/350	2026-04-02 16:48 by zzsw+
[考研] 085601一志愿北理325分求調(diào)劑 +3	找調(diào)劑，， 2026-04-02	3/150	2026-04-02 16:42 by asdfzly
[考研] 312 化工或制藥調(diào)劑 +4	小小墨123 2026-04-02	5/250	2026-04-02 16:04 by 小touming
[考研] 071000生物學(xué)調(diào)劑 +6	知昭蔓 2026-04-02	6/300	2026-04-02 15:28 by sophie2180
[考研] 一志愿復(fù)旦材料，英一專碩，總分357調(diào)劑 +3	1050389037 2026-04-02	4/200	2026-04-02 14:32 by olim
[考研] 309求調(diào)劑 +8	呆菇不是戴夫 2026-04-02	8/400	2026-04-02 14:30 by oooqiao
[考研] 能源動(dòng)力調(diào)劑 +3	不破不立0 2026-04-02	3/150	2026-04-02 12:46 by ffffjjjj
[考研] 材料求調(diào)劑一志愿哈工大總分298分，前三科223分 +12	dongfang59 2026-03-27	12/600	2026-04-02 12:26 by ms629
[考研] 一志愿346上海大學(xué)生物學(xué) +3	上海大學(xué)346調(diào)劑 2026-04-01	3/150	2026-04-02 08:36 by w蟲(chóng)蟲(chóng)123
[考研] 292求調(diào)劑 +17	木蟲(chóng)er12138 2026-04-01	17/850	2026-04-01 21:37 by 七度不信任
[考研] 350求調(diào)劑 +7	阿佳～ 2026-03-31	7/350	2026-04-01 16:12 by yanflower7133
[考研] 生物學(xué)296求調(diào)劑 +10	湯圓包 2026-03-29	14/700	2026-04-01 10:44 by 求調(diào)劑zz
[考研] 環(huán)境工程 085701，267求調(diào)劑 +15	minht 2026-03-29	16/800	2026-04-01 10:13 by li_sujuan99
[考研] 286求調(diào)劑 +6	Faune 2026-03-30	6/300	2026-03-31 14:37 by jp9609
[考博] 材料專業(yè)申博 +5	杜雨婷dyt 2026-03-29	5/250	2026-03-31 11:19 by oooqiao
[考研] 085601一志愿西北工業(yè)大學(xué)初試346 +4	085601初試346 2026-03-30	4/200	2026-03-31 07:47 by jp9609
[考研] 083000環(huán)境科學(xué)與工程調(diào)劑，總分281 +4	橙子（勝意） 2026-03-30	4/200	2026-03-31 00:44 by Linzejun
[考研] 330一志愿中國(guó)海洋大學(xué) 化學(xué)工程 085602 有讀博意愿求調(diào)劑 +3	wywy.. 2026-03-27	4/200	2026-03-28 03:32 by fmesaito
[考研] 298調(diào)劑 +3	jiyingjie123 2026-03-27	3/150	2026-03-27 11:57 by wxiongid
[考研] 一志愿吉大071010，316分求調(diào)劑 +3	xgbiknn 2026-03-27	3/150	2026-03-27 10:36 by guoweigw