 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 8 | 1/1 | 返回列表 |
| 查看: 1036 | 回復(fù): 7 | |||
kuangrenabc金蟲 (小有名氣)
|
[交流]
【求助】懂Fortran并行計(jì)算的高手請(qǐng)進(jìn) 已有3人參與
|
|
本人初次接觸Fortran，想學(xué)習(xí)Fortran并行計(jì)算。 我安裝網(wǎng)上的說(shuō)明，安裝了并行計(jì)算庫(kù)MPICH2，并且對(duì)Visual Fortran 6.5 環(huán)境作了設(shè)置。經(jīng)調(diào)試一些小的程序發(fā)現(xiàn)沒(méi)有問(wèn)題。但是運(yùn)行IMSL上的含有并行計(jì)算的實(shí)例，就發(fā)現(xiàn)總出問(wèn)題，請(qǐng)高手指點(diǎn)。 這個(gè)是IMSL中的一個(gè)實(shí)例，代碼如下： program Parallel_Example_1 use imsl use linear_operators use mpi_setup_int use mpi implicit none integer, parameter :: n=32, nr=4 real(kind(1e0)) :: one=1e0 real(kind(1e0)), dimension(n,n,nr) :: A, b, x, err(nr) MP_NPROCS=MP_SETUP() ! Generate random matrices for A and b: A = rand(A) b = rand(b) ! Compute the box solution matrix of Ax = b. x = A .ix. b ! Check the results. err = norm(b - (A .x. x))/(norm(A)*norm(x)+norm(b)) if (ALL(err <= sqrt(epsilon(one))) .and. MP_RANK == 0) & write (*,*) 'Parallel Example 1 is correct.' ! See to any error messages and quit MPI. MP_NPROCS=MP_SETUP('Final') end program Parallel_Example_1 運(yùn)行的結(jié)果是： *** FATAL ERROR 1 from MPI_INIT. A CALL was excuted using the IMSL *** dummy routine. Parallel performance needs a functioning MPI *** library 請(qǐng)高手看后指點(diǎn)一二，謝謝。 [ Last edited by javeey on 2010-5-19 at 00:01 ] |
回復(fù)此樓» 猜你喜歡
283求調(diào)劑
已經(jīng)有5人回復(fù)
-
一志愿哈爾濱工業(yè)大學(xué)材料與化工方向336分
已經(jīng)有7人回復(fù)
-
數(shù)一英一271專碩（085401）求調(diào)劑，可跨
已經(jīng)有4人回復(fù)
-
0856，材料與化工321分求調(diào)劑
已經(jīng)有11人回復(fù)
-
0703化學(xué)求調(diào)劑
已經(jīng)有8人回復(fù)
-
277跪求調(diào)劑
已經(jīng)有9人回復(fù)
-
材料277求調(diào)劑
已經(jīng)有6人回復(fù)
-
085602 307分 求調(diào)劑
已經(jīng)有7人回復(fù)
-
一志愿南昌大學(xué)324求調(diào)劑
已經(jīng)有7人回復(fù)
-
材料與化工272求調(diào)劑
已經(jīng)有6人回復(fù)
» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:
- JAP狀態(tài)看不懂了 怎么第一次投稿就遇見(jiàn)這樣的事情
已經(jīng)有6人回復(fù)
- 昆蟲RNA 提�。‰娪緢D，看不懂！請(qǐng)高手指點(diǎn)！
已經(jīng)有9人回復(fù)
- 我是金屬材料專業(yè)的新人，有很多金屬固態(tài)相變的問(wèn)題不懂，望高手指教
已經(jīng)有24人回復(fù)
- 首屆【唱我最想唱的外語(yǔ)歌曲】xxx(the song I want to sing for u)比賽
已經(jīng)有141人回復(fù)
- 【交流】電解拋光的高手來(lái)交流一下啊
已經(jīng)有31人回復(fù)
- 【求助】SAS編程出了錯(cuò)，看不懂，請(qǐng)教高手
已經(jīng)有8人回復(fù)
- 【求助】怎樣看懂質(zhì)譜圖
已經(jīng)有21人回復(fù)
onesupeng
金蟲 (職業(yè)作家)
- 數(shù)學(xué)EPI: 17
- 應(yīng)助: 256 (大學(xué)生)
- 貴賓: 1.36
- 金幣: 2336.2
- 散金: 9228
- 紅花: 92
- 帖子: 4583
- 在線: 1303.8小時(shí)
- 蟲號(hào): 394701
- 注冊(cè): 2007-06-07
- 專業(yè): 流體力學(xué)
2樓2010-05-18 22:40:50
kuangrenabc
金蟲 (小有名氣)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 523.5
- 紅花: 1
- 帖子: 80
- 在線: 15小時(shí)
- 蟲號(hào): 968081
- 注冊(cè): 2010-03-11
- 性別: GG
- 專業(yè): 零件加工制造
3樓2010-05-18 22:46:52
onesupeng
金蟲 (職業(yè)作家)
- 數(shù)學(xué)EPI: 17
- 應(yīng)助: 256 (大學(xué)生)
- 貴賓: 1.36
- 金幣: 2336.2
- 散金: 9228
- 紅花: 92
- 帖子: 4583
- 在線: 1303.8小時(shí)
- 蟲號(hào): 394701
- 注冊(cè): 2007-06-07
- 專業(yè): 流體力學(xué)
4樓2010-05-19 02:49:10
再見(jiàn)北極雪
木蟲 (著名寫手)
快樂(lè)家族之打醬油的小伙計(jì)
- 數(shù)學(xué)EPI: 1
- 應(yīng)助: 0 (幼兒園)
- 金幣: 3957.8
- 紅花: 1
- 帖子: 1155
- 在線: 163小時(shí)
- 蟲號(hào): 917802
- 注冊(cè): 2009-12-01
- 專業(yè): 地震學(xué)
5樓2010-05-19 10:04:28
kuangrenabc
金蟲 (小有名氣)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 523.5
- 紅花: 1
- 帖子: 80
- 在線: 15小時(shí)
- 蟲號(hào): 968081
- 注冊(cè): 2010-03-11
- 性別: GG
- 專業(yè): 零件加工制造
6樓2010-05-19 12:44:58
onesupeng
金蟲 (職業(yè)作家)
- 數(shù)學(xué)EPI: 17
- 應(yīng)助: 256 (大學(xué)生)
- 貴賓: 1.36
- 金幣: 2336.2
- 散金: 9228
- 紅花: 92
- 帖子: 4583
- 在線: 1303.8小時(shí)
- 蟲號(hào): 394701
- 注冊(cè): 2007-06-07
- 專業(yè): 流體力學(xué)
7樓2010-05-19 13:25:02
kuangrenabc
金蟲 (小有名氣)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 523.5
- 紅花: 1
- 帖子: 80
- 在線: 15小時(shí)
- 蟲號(hào): 968081
- 注冊(cè): 2010-03-11
- 性別: GG
- 專業(yè): 零件加工制造
8樓2010-05-26 19:56:52
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 kuangrenabc 的主題更新
| 8 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研]
 材料與化工考研調(diào)劑
+17
|
孅華 2026-03-22 | 17/850 |
|
|---|---|---|---|---|
|
[考研] 291求調(diào)劑 +6 | HanBeiNingZC 2026-03-24 | 6/300 |
|
|
|
[考研]
一志愿廈門大學(xué)化學(xué)學(xué)碩307求調(diào)劑
+9
|
y7czhao 2026-03-26 | 9/450 |
|
|
|
[考研] 張芳銘-中國(guó)農(nóng)業(yè)大學(xué)-環(huán)境工程專碩-298 +4 | 手機(jī)用戶 2026-03-26 | 4/200 |
|
|
|
[考研] 331環(huán)境科學(xué)與工程求調(diào)劑 +3 | 熠然好運(yùn)氣 2026-03-27 | 3/150 |
|
|
|
[考研] 085602 化工專碩 338分 求調(diào)劑 +10 | 路癡小琪 2026-03-27 | 10/500 |
|
|
|
[考研] 0856材料化工調(diào)劑 總分330 +10 | zhubinhao 2026-03-27 | 10/500 |
|
|
|
[考研] 學(xué)碩274求調(diào)劑 +5 | Li李魚 2026-03-26 | 5/250 |
|
|
|
[考研] 一志愿211院校 344分 東北農(nóng)業(yè)大學(xué)生物學(xué)學(xué)碩，求調(diào)劑 +5 | 丶風(fēng)雪夜歸人丶 2026-03-26 | 8/400 |
|
|
|
[考研] 食品工程專碩一志愿中海洋309求調(diào)劑 +3 | 小張zxy張 2026-03-26 | 5/250 |
|
|
|
[考研] 考研調(diào)劑 +10 | 呼呼？~+123456 2026-03-24 | 10/500 |
|
|
|
[碩博家園] 北京林業(yè)大學(xué)碩導(dǎo)招生廣告 +6 | kongweilin 2026-03-26 | 8/400 |
|
|
|
[考研]
一志愿武漢理工，總分321，英一數(shù)二，求老師收留。
+5
|
nnnnnnn5 2026-03-25 | 5/250 |
|
|
|
[考研] 一志愿華理，數(shù)一英一285求A區(qū)調(diào)劑 +8 | AZMK 2026-03-25 | 10/500 |
|
|
|
[考研] 化學(xué)工程085602 305分求調(diào)劑 +17 | RichLi_ 2026-03-25 | 17/850 |
|
|
|
[考研] 291 求調(diào)劑 +7 | 化工2026屆畢業(yè)?/a> 2026-03-21 | 8/400 |
|
|
|
[考研] 調(diào)劑310 +3 | 溫柔的晚安 2026-03-25 | 4/200 |
|
|
|
[考研] 一志愿吉林大學(xué)材料與化工303分求調(diào)劑 +4 | 為學(xué)666 2026-03-24 | 4/200 |
|
|
|
[考研] 食品專碩 一志愿雙一流 328 +3 | xiaom99 2026-03-21 | 4/200 |
|
|
|
[有機(jī)交流]
有機(jī)合成求助
 20+3
|
FENGSHUJEI 2026-03-23 | 5/250 |
|