 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 3 | 1/1 | 返回列表 |
| 查看: 577 | 回復: 2 | |||
[求助]
初學MPI，以下Fortran程序請教
|
|
以下程序編譯后運行： mpiexec -n 4 test.exe 出現(xiàn)如下結(jié)果： myid= 2 results( 3 )= 10 myid= 1 results( 2 )= 10 myid= 3 results( 4 )= 10 myid= 0 results( 1 )= 10 results( 1 )= 10 results( 2 )= -842150451 results( 3 )= -842150451 results( 4 )= -842150451 期望所有輸出結(jié)果均為10，請問哪里錯了？ 謝謝！ 附：Fortran程序： program test implicit none include 'mpif.h' integer::i integer rank, size, myid, ierror,commandsize integer,allocatable::results(  commandsize=4 allocate(results(commandsize)) call MPI_INIT(ierror) call MPI_COMM_SIZE(MPI_COMM_WORLD, size, ierror) call MPI_COMM_RANK(MPI_COMM_WORLD, myid, ierror) write(*,*)'myid=',myid results(myid+1)=10 write(*,*)'results(',myid+1,')=',results(myid+1) call MPI_ALLGATHER(results,commandsize,MPI_INTEGER,results,commandsize,MPI_INTEGER,MPI_COMM_WORLD,ierror) if(myid==0)then do i=1,commandsize write(*,*)'results(',i,')=',results(i) enddo endif call MPI_FINALIZE(ierror) deallocate(results) end |
回復此樓» 收錄本帖的淘帖專輯推薦
 資源收集 |
» 猜你喜歡
調(diào)劑
已經(jīng)有0人回復
-
【新加坡】納米電子器件項目組有“聯(lián)合培養(yǎng)博士生”名額
已經(jīng)有0人回復
-
物理學I論文潤色/翻譯怎么收費?
已經(jīng)有137人回復
-
中德博士后2026項目5月30日截止- 國內(nèi)博士后入站、德國兩年全職
已經(jīng)有0人回復
-
面向全球申請人的中德博士后2026項目5月30日截止- 國內(nèi)博后入站德國兩年全職
已經(jīng)有0人回復
-
【新加坡】納米電子器件項目組有“聯(lián)合培養(yǎng)博士生”名額
已經(jīng)有2人回復
-
重慶交大材料學院26年碩士招生復試實施細則已出。歡迎加入光子學微結(jié)構(gòu)與器件課題組。
已經(jīng)有0人回復
-
北工大宋曉艷教授團隊招收2026年9月入學博士【學博和專博名額均有】！
已經(jīng)有1人回復
-
天津城建大學理學院化學、環(huán)境工程、材料物理等方向接收10人
已經(jīng)有0人回復
-
天津城建大學理學院化學、環(huán)境工程、材料物理等方向接收調(diào)劑，10人
已經(jīng)有0人回復
» 本主題相關價值貼推薦，對您同樣有幫助:
- fortran和c混合編譯問題？
已經(jīng)有9人回復
- ABAQUS中的用戶子程序fortran編寫問題
已經(jīng)有4人回復
- 求教，我沒安裝FORTRAN，能不能用其它簡單的方法打開后綴為.f的FORTRAN源程序呢？
已經(jīng)有13人回復
- 急求fortran運行錯誤原因，在線等
已經(jīng)有7人回復
- 請教 fortran 運行錯誤的原因
已經(jīng)有13人回復
- 配置一臺1萬左右的計算機跑Fortran程序以及高斯的計算
已經(jīng)有8人回復
- 關于Fortran程序運行的求助
已經(jīng)有2人回復
- fortran程序怎樣調(diào)用lapack庫進行矩陣對角化？
已經(jīng)有7人回復
- 大家?guī)臀铱匆粋�fortran的程序，我總是計算不出正確的結(jié)果
已經(jīng)有20人回復
- 我編的Simpson積分法fortran程序給不出結(jié)果，大俠們看看哪里出了問題？
已經(jīng)有4人回復
- 請教一個fortran小程序編譯出錯的問題，謝謝
已經(jīng)有9人回復
- 關于MPI并行編程的基本問題
已經(jīng)有8人回復
- 請教關于in cell形式向original形式坐標轉(zhuǎn)化的fortran算法
已經(jīng)有3人回復
- 【求助】如何寫FORTRAN程序?qū)崿F(xiàn)求平均最近鄰距離
已經(jīng)有34人回復
- 【求助】初學fortran，
已經(jīng)有15人回復
- 請教fortran導txt數(shù)據(jù)進origin問題
已經(jīng)有1人回復
baghnac
金蟲 (小有名氣)
- 應助: 14 (小學生)
- 金幣: 1706.4
- 紅花: 6
- 帖子: 177
- 在線: 44小時
- 蟲號: 1365578
- 注冊: 2011-08-11
- 性別: GG
- 專業(yè): 宇宙學
【答案】應助回帖
tang76(金幣+1): 2011-10-26 00:08:22
|
⑴發(fā)送與接收緩沖區(qū)如果一樣，會沖突 ⑵接收緩沖區(qū)應大于各發(fā)送緩沖區(qū)的總大小 雖然書上沒有找到這么說，但是我試出來的是這個結(jié)果 結(jié)果如下 myid=0 results( 1 )= 10 results( 2 )= 0 results( 3 )= 0 results( 4 )= 0 recvs( 1 )= 10 recvs( 2 )= 0 recvs( 3 )= 0 recvs( 4 )= 0 recvs( 5 )= 0 recvs( 6 )= 10 recvs( 7 )= 0 recvs( 8 )= 0 recvs( 9 )= 0 recvs( 10 )= 0 recvs( 11 )= 10 recvs( 12 )= 0 recvs( 13 )= 0 recvs( 14 )= 0 recvs( 15 )= 0 recvs( 16 )= 10 myid=1 results( 1 )= 0 results( 2 )= 10 results( 3 )= 0 results( 4 )= 0 myid=2 results( 1 )= 0 results( 2 )= 0 results( 3 )= 10 results( 4 )= 0 myid=3 results( 1 )= 0 results( 2 )= 0 results( 3 )= 0 results( 4 )= 10 附程序： program test implicit none include 'mpif.h' integer::i integer rank, size, myid, ierror,commandsize,sendcnt,recvcnt,sendssize integer,allocatable::results( integer,allocatable::recvs( commandsize=4 sendssize=16 allocate(results(commandsize)) allocate(recvs(sendssize)) call MPI_INIT(ierror) call MPI_COMM_SIZE(MPI_COMM_WORLD, size, ierror) call MPI_COMM_RANK(MPI_COMM_WORLD, myid, ierror) ! write(*,*)'myid=',myid results(myid+1)=10 ! write(*,*)'results(',myid+1,')=',results(myid+1) call MPI_ALLGATHER(results,commandsize,MPI_INTEGER,recvs,commandsize,MPI_INTEGER,MPI_COMM_WORLD,ierror) if(myid==0)then do i=1,commandsize write(*,*)'results(',i,')=',results(i) enddo do i=1,sendssize write(*,*)'recvs(',i,')=',recvs(i) enddo endif call MPI_FINALIZE(ierror) deallocate(results) end 運行結(jié)果 |
2樓2011-10-25 14:29:53
3樓2011-10-26 00:09:47
相關版塊跳轉(zhuǎn)
我要訂閱樓主 tang76 的主題更新
| 3 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 一志愿中南大學化學0703總分337求調(diào)劑 +4 | niko- 2026-03-27 | 4/200 |
|
|---|---|---|---|---|
|
|
[考研] 291求調(diào)劑 +7 | 孅華 2026-03-22 | 7/350 |
|
|
[考研] 085602 化工專碩 338分 求調(diào)劑 +10 | 路癡小琪 2026-03-27 | 10/500 |
|
|
|
[考研] 085602 307分 求調(diào)劑 +6 | 不知道叫什么！ 2026-03-26 | 6/300 |
|
|
|
[考研] 考研調(diào)劑 +4 | Sanmu-124 2026-03-26 | 4/200 |
|
|
|
[考研] 0856調(diào)劑 +5 | 求求讓我有書讀?/a> 2026-03-26 | 6/300 |
|
|
|
[考研] 299求調(diào)劑 +6 | 嗯嗯嗯嗯2 2026-03-27 | 6/300 |
|
|
|
[考研] 298調(diào)劑 +3 | jiyingjie123 2026-03-27 | 3/150 |
|
|
|
[考研] 314求調(diào)劑 +3 | 溪云珂 2026-03-26 | 3/150 |
|
|
|
[考研] 286求調(diào)劑 +4 | lim0922 2026-03-26 | 4/200 |
|
|
|
[考研] 324求調(diào)劑 +8 | hanamiko 2026-03-26 | 10/500 |
|
|
|
[考研] 284求調(diào)劑 +11 | junqihahaha 2026-03-26 | 12/600 |
|
|
|
[考研] 271求調(diào)劑 +6 | 生如夏花… 2026-03-22 | 6/300 |
|
|
|
[考研] 材料277求調(diào)劑 +5 | min3 2026-03-24 | 5/250 |
|
|
|
[考研] 303求調(diào)劑 +6 | 藍山月 2026-03-25 | 6/300 |
|
|
|
[考研] 材料與化工304求B區(qū)調(diào)劑 +3 | 邱gl 2026-03-25 | 3/150 |
|
|
|
[考研] 296求調(diào)劑 +4 | 汪��？！ 2026-03-25 | 7/350 |
|
|
|
[考博] 26申博自薦 +3 | whh869393 2026-03-24 | 3/150 |
|
|
|
[考研] 336化工調(diào)劑 +4 | 王大坦1 2026-03-23 | 5/250 |
|
|
|
[考研] 一志愿北京化工大學070300 學碩336求調(diào)劑 +5 | vv迷 2026-03-21 | 8/400 |
|