版塊導(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í)熱門(mén)版塊排行榜

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

返回列表

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

賀儀

鐵桿木蟲(chóng) (著名寫(xiě)手)

應(yīng)助: 93 (初中生)
貴賓: 0.636
金幣: 5937
散金: 1063
紅花: 38
沙發(fā): 2
帖子: 2499
在線: 588.7小時(shí)
蟲(chóng)號(hào): 995125
注冊(cè): 2010-04-12
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

[求助] fortran 隨機(jī)數(shù) 每次運(yùn)行都是一樣的！

如題 fortran 隨機(jī)數(shù) 每次運(yùn)行都是一樣的！
call random_seed ()
call random_number (rd);
由于計(jì)算的時(shí)間很短，運(yùn)行起來(lái)每次還是一樣的！
大家怎么忙解決？

回復(fù)此樓

» 猜你喜歡

材料求調(diào)劑一志愿哈工大總分298分，前三科223分已經(jīng)有4人回復(fù)
086502化學(xué)工程342求調(diào)劑已經(jīng)有3人回復(fù)
求調(diào)劑已經(jīng)有9人回復(fù)
352分化工與材料已經(jīng)有5人回復(fù)
085602 化工專碩 338分求調(diào)劑已經(jīng)有10人回復(fù)
0856材料化工調(diào)劑總分330 已經(jīng)有10人回復(fù)
330一志愿中國(guó)海洋大學(xué) 化學(xué)工程 085602 有讀博意愿求調(diào)劑已經(jīng)有4人回復(fù)
一志愿哈爾濱工業(yè)大學(xué)材料與化工方向336分已經(jīng)有6人回復(fù)
材料求調(diào)劑一志愿哈工大324 已經(jīng)有6人回復(fù)
085600 286分材料求調(diào)劑已經(jīng)有4人回復(fù)

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

我們都是大作家已經(jīng)有12人回復(fù)
測(cè)試POSCAR的腳本不運(yùn)行已經(jīng)有10人回復(fù)
fortran程序運(yùn)行黑框閃下就消失已經(jīng)有5人回復(fù)
【求助】Fortran程序，如何讓exe文件可以單獨(dú)運(yùn)行？已經(jīng)有6人回復(fù)
【討論】大家進(jìn)來(lái)說(shuō)下為什么學(xué)matlab 已經(jīng)有44人回復(fù)

嘟啦啦嘟啦啦嘟

1樓 2011-09-04 14:36:35

已閱回復(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é)

★ ★
微塵、夢(mèng)想(金幣+2): 2011-09-07 12:04:14

參考一下下面的程序，后面那個(gè)子程序抄自 gfortran 的幫助文件。

CODE:

program test

   real :: r

!  call random_seed()

   call init_random_seed()

   do i=1,10

      call random_number(r)

      write(*,*) r

   end do

end program test

subroutine init_random_seed()

   integer :: i, n, clock

   integer, dimension(:), allocatable :: seed

   call random_seed(size = n)

   allocate(seed(n))

   call system_clock(count=clock)

   seed = clock + 37 * (/ (i - 1, i = 1, n) /)

   call random_seed(put = seed)

   deallocate(seed)

end subroutine init_random_seed

贊一下(2人)

回復(fù)此樓

9樓2011-09-05 21:42:29

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

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

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é)

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

賀儀(金幣+5): 多謝你的熱心幫助 2011-09-05 19:42:11

每次都一樣是什么意思？同一個(gè)程序，每次運(yùn)行結(jié)果當(dāng)然應(yīng)該是一樣的啊……

贊一下

回復(fù)此樓

2樓2011-09-04 14:56:30

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

賀儀

鐵桿木蟲(chóng) (著名寫(xiě)手)

應(yīng)助: 93 (初中生)
貴賓: 0.636
金幣: 5937
散金: 1063
紅花: 38
沙發(fā): 2
帖子: 2499
在線: 588.7小時(shí)
蟲(chóng)號(hào): 995125
注冊(cè): 2010-04-12
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

引用回帖:

2樓: Originally posted by snoopyzhao at 2011-09-04 14:56:30:
每次都一樣是什么意思？同一個(gè)程序，每次運(yùn)行結(jié)果當(dāng)然應(yīng)該是一樣的啊……

但我是個(gè)隨機(jī)過(guò)程就不應(yīng)該一樣的。我用matlab得到的是不同的，但是用fortran得到的就是相同的。在取種子的時(shí)候seed取時(shí)間能不能精確到毫秒呢？要能到就可以了

贊一下

回復(fù)此樓

嘟啦啦嘟啦啦嘟

3樓2011-09-04 15:07:58

已閱回復(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é)

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

★
xzhdty(金幣+1): 歡迎常來(lái)程序語(yǔ)言看看 2011-09-05 06:52:00

引用回帖:

3樓: Originally posted by 賀儀 at 2011-09-04 15:07:58:
但我是個(gè)隨機(jī)過(guò)程就不應(yīng)該一樣的。我用matlab得到的是不同的，但是用fortran得到的就是相同的。在取種子的時(shí)候seed取時(shí)間能不能精確到毫秒呢？要能到就可以了

你的意思是，你在程序中取了很多隨機(jī)數(shù)，然后，隨機(jī)數(shù)是一樣的嗎？

另外，種子與時(shí)間有啥關(guān)系？你以時(shí)間作種嗎？

給段代碼看看吧……

贊一下(1人)

回復(fù)此樓

4樓2011-09-04 15:29:13

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

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

普通表情龍兔虎貓

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

[考研] 0856材料化工調(diào)劑總分330 +10	zhubinhao 2026-03-27	10/500	2026-03-28 03:34 by fmesaito
[考研] 085600材料與化工調(diào)劑 +10	A-哆啦Z夢(mèng) 2026-03-23	16/800	2026-03-27 15:13 by caszguilin
[考研] 考研化學(xué)308分求調(diào)劑 +10	你好明天你好 2026-03-23	12/600	2026-03-27 14:43 by shangxh
[考研] 22408 359分調(diào)劑 +3	Qshers 2026-03-27	3/150	2026-03-27 12:22 by wxiongid
[考研] 312求調(diào)劑 +9	上岸吧ZJY 2026-03-22	13/650	2026-03-27 11:24 by sanrepian
[考研] 324求調(diào)劑 +8	hanamiko 2026-03-26	10/500	2026-03-27 08:06 by hypershenger
[考研] 284求調(diào)劑 +11	junqihahaha 2026-03-26	12/600	2026-03-27 04:37 by wxiongid
[考研] 294分080500材料科學(xué)與工程求調(diào)劑 +4	柳溪邊 2026-03-26	4/200	2026-03-26 21:14 by XPU李慶
[考研] 289求調(diào)劑 +17	碩星赴 2026-03-23	17/850	2026-03-26 16:18 by 不吃魚(yú)的貓
[考研] 一志愿北京化工大學(xué)材料與化工（085600）296求調(diào)劑 +9	稻妻小編 2026-03-26	9/450	2026-03-26 16:16 by 不吃魚(yú)的貓
[考研] 尋找調(diào)劑 +5	倔強(qiáng)芒? 2026-03-21	8/400	2026-03-26 13:25 by 0906ljy
[考研] 0854電子信息求調(diào)劑 +7	α____ 2026-03-22	9/450	2026-03-25 13:37 by α____
[考研] 318求調(diào)劑 +5	plum李子 2026-03-21	8/400	2026-03-25 09:26 by aa331100
[考研] 調(diào)劑 +4	13853210211 2026-03-24	4/200	2026-03-24 19:44 by ms629
[考研] 求調(diào)劑一志愿武漢理工大學(xué)材料工程（085601） +5	WW.' 2026-03-23	7/350	2026-03-24 14:50 by sprinining
[基金申請(qǐng)] 請(qǐng)教下大家 2026年國(guó)家基金申請(qǐng)是雙盲審嗎？ +3	lishucheng1 2026-03-22	5/250	2026-03-24 08:22 by gltch
[考研] 一志愿山東大學(xué)藥學(xué)學(xué)碩求調(diào)劑 +3	開(kāi)開(kāi)心心沒(méi)煩惱 2026-03-23	4/200	2026-03-24 00:06 by 開(kāi)開(kāi)心心沒(méi)煩惱
[考研] 276求調(diào)劑 +3	YNRYG 2026-03-21	4/200	2026-03-23 08:31 by 醉在風(fēng)里
[考研] 293求調(diào)劑 +3	濤濤Wjt 2026-03-22	5/250	2026-03-22 22:21 by jiangpengfei
[考研] 285求調(diào)劑 +6	ytter 2026-03-22	6/300	2026-03-22 12:09 by 星空星月