| 24小時(shí)熱門(mén)版塊排行榜 |
| 5 | 1/1 | 返回列表 |
| 查看: 1042 | 回復(fù): 7 | |||
| 當(dāng)前只顯示滿足指定條件的回帖,點(diǎn)擊這里查看本話題的所有回帖 | |||
kuangrenabc金蟲(chóng) (小有名氣)
|
[交流]
【求助】懂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 ] |
金蟲(chóng) (小有名氣)
金蟲(chóng) (職業(yè)作家)

金蟲(chóng) (小有名氣)
金蟲(chóng) (職業(yè)作家)

| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 一志愿食品科學(xué)與工程083200求調(diào)劑 +4 | XQTJZ 2026-03-30 | 4/200 |
|
|---|---|---|---|---|
|
[考研] 一志愿鄭大材料工程290求調(diào)劑 +12 | Youth_ 2026-03-30 | 12/600 |
|
|
[考研] 307求調(diào)劑 +18 | 超級(jí)伊昂大王 2026-03-24 | 20/1000 |
|
|
[考研] 070300化學(xué)279求調(diào)劑 +3 | 哈哈哈^_^ 2026-03-31 | 5/250 |
|
|
[考研] 求調(diào)劑 +3 | 圖鑒212 2026-03-30 | 3/150 |
|
|
[有機(jī)交流]
10+3
|
kaobao456 2026-03-29 | 4/200 |
|
|
[考研] 291求調(diào)劑 +8 | Y-cap 2026-03-29 | 11/550 |
|
|
[考研] 化學(xué)308分調(diào)劑 +7 | 你好明天你好 2026-03-30 | 8/400 |
|
|
[考研]
|
nnnnnnn5 2026-03-25 | 11/550 |
|
|
[考研] 291求調(diào)劑 +5 | Y-cap 2026-03-29 | 6/300 |
|
|
[考研] 349求調(diào)劑 +6 | 李木子啊哈哈 2026-03-25 | 6/300 |
|
|
[考研] 2026年華南師范大學(xué)歡迎化學(xué),化工,生物,生醫(yī)工等專業(yè)優(yōu)秀學(xué)子加入! +3 | llss0711 2026-03-28 | 6/300 |
|
|
[考研] 一志愿華理,數(shù)一英一285求A區(qū)調(diào)劑 +8 | AZMK 2026-03-25 | 12/600 |
|
|
[考研] 320分,材料與化工專業(yè),求調(diào)劑 +9 | 一定上岸aaa 2026-03-27 | 13/650 |
|
|
[考研] 339求調(diào)劑,想調(diào)回江蘇 +6 | 烤麥芽 2026-03-27 | 8/400 |
|
|
[考研] 086502化學(xué)工程342求調(diào)劑 +6 | 阿姨復(fù)古不過(guò) 2026-03-27 | 6/300 |
|
|
[考研] 331環(huán)境科學(xué)與工程求調(diào)劑 +3 | 熠然好運(yùn)氣 2026-03-27 | 3/150 |
|
|
[考研] 315分求調(diào)劑 +7 | 26考研上岸版26 2026-03-26 | 7/350 |
|
|
[考研] 334分 一志愿武理-080500 材料求調(diào)劑 +4 | 李李不服輸 2026-03-25 | 4/200 |
|
|
[考研] 一志愿北化315 求調(diào)劑 +3 | akrrain 2026-03-24 | 3/150 |
|