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

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

24小時(shí)熱門版塊排行榜

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

返回列表

當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖

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ù)此樓

» 猜你喜歡

283分材料與化工求調(diào)劑已經(jīng)有12人回復(fù)
349求調(diào)劑已經(jīng)有7人回復(fù)
296材料專碩求調(diào)劑已經(jīng)有11人回復(fù)
一志愿上海海洋大學(xué)083200食品學(xué)碩，求調(diào)劑，接受其他專業(yè) 已經(jīng)有7人回復(fù)
材料340分調(diào)劑已經(jīng)有8人回復(fù)
316求調(diào)劑已經(jīng)有13人回復(fù)
321求調(diào)劑已經(jīng)有11人回復(fù)
315求調(diào)劑已經(jīng)有6人回復(fù)
330分求調(diào)劑已經(jīng)有13人回復(fù)
化工調(diào)劑303分，過(guò)四級(jí) 已經(jīng)有9人回復(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的回帖

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的回帖

查看全部 15 個(gè)回答

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的回帖

查看全部 15 個(gè)回答

普通表情龍兔虎貓

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

[考研] 085600，320分求調(diào)劑 +5	大饞小子 2026-04-02	5/250	2026-04-02 14:32 by 二三365
[考研] 283求調(diào)劑 +3	jiouuu 2026-04-02	4/200	2026-04-02 14:08 by 噠噠噠呱呱呱
[考研] 總分328生物與醫(yī)藥考數(shù)學(xué)求調(diào)劑 +3	aaadim 2026-04-02	3/150	2026-04-02 14:04 by 喬噠噠噠
[考研] 環(huán)境285分，過(guò)六級(jí)，求調(diào)劑 +6	xhr12 2026-04-02	6/300	2026-04-02 13:38 by sun200805022
[考研] 0856材料與化工調(diào)劑，339 +13	10213207 2026-03-31	13/650	2026-04-02 11:35 by michael2011
[考研] 0805求調(diào)劑 +8	是水分 2026-03-31	8/400	2026-04-02 10:46 by guanxin1001
[考研] 材料科學(xué)與工程調(diào)劑 +18	深V宿舍吧 2026-03-30	19/950	2026-04-02 10:28 by sanrepian
[考研] 304求調(diào)劑 +12	素年祭語(yǔ) 2026-03-31	15/750	2026-04-01 22:41 by peike
[考研] 江蘇科技大學(xué)招材料研究生 +4	Su032713. 2026-04-01	5/250	2026-04-01 22:03 by cccchenso
[考研] 286求調(diào)劑 +5	Sa67890. 2026-04-01	7/350	2026-04-01 19:50 by 6781022
[考研] 一志愿北交材料工程總分358 +5	cs0106 2026-04-01	7/350	2026-04-01 11:45 by wangjy2002
[考研] 土木304求調(diào)劑 +5	頂級(jí)擦擦 2026-03-31	5/250	2026-04-01 08:15 by fdcxdystjk￥
[考研] 254材料與化工求調(diào)劑 +3	翰冬林楠 2026-03-30	4/200	2026-03-31 17:53 by yishunmin
[考研] 343求調(diào)劑 +8	愛(ài)羈絆 2026-03-28	8/400	2026-03-31 16:12 by 不吃魚(yú)的貓
[考研] 吉大生物學(xué)326分求調(diào)劑 +3	sunnyupup 2026-03-31	3/150	2026-03-31 09:28 by longlotian
[考研] 抱歉 +4	田洪有 2026-03-30	4/200	2026-03-30 21:26 by mumin1990
[考研] 抱歉 +3	田洪有 2026-03-30	3/150	2026-03-30 19:11 by 迷糊CCPs
[考研] 本科新能源科學(xué)與工程，一志愿華理能動(dòng)285求調(diào)劑 +7	AZMK 2026-03-28	11/550	2026-03-28 21:01 by xxxsssccc
[考研] 081200-314 +3	LILIQQ 2026-03-27	4/200	2026-03-28 09:41 by 保護(hù)地球你我做?/a>
[考研] 340求調(diào)劑 +5	jhx777 2026-03-27	5/250	2026-03-28 04:18 by fmesaito